5 INTEGER,
DIMENSION(nparmax) :: ig2
6 INTEGER,
DIMENSION(nchrmax,indmax) :: iparent, ichild
7 INTEGER,
DIMENSION(nchrmax) :: ibest
8 REAL(rprec),
DIMENSION(nparmax,indmax) :: parent, child
9 REAL(rprec),
DIMENSION(indmax) :: fitness
10 REAL(rprec),
DIMENSION(nparmax) :: g0, g1,
11 + pardel, par_max, par_min
12 REAL(rprec),
DIMENSION(max_gen) :: geni, genavg, genmax
13 INTEGER :: nparam, nchrome, num_obj
14 INTEGER :: jbest,irestrt
15 INTEGER :: MAXgen,nfit_eval,
17 INTEGER :: iunit_ga_restart, iunit_ga_out
18 REAL(rprec),
DIMENSION(:),
POINTER :: f_obj