V3FIT
ga_mod.f
1  MODULE ga_mod
2  USE gade_mod
3  IMPLICIT NONE
4 
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,
16  + kountmx
17  INTEGER :: iunit_ga_restart, iunit_ga_out
18  REAL(rprec), DIMENSION(:), POINTER :: f_obj
19 
20  END MODULE ga_mod