6 INTEGER,
PARAMETER :: indmax=500, nchrmax=5000, nparmax=500
7 INTEGER,
PARAMETER :: max_gen=1000
9 INTEGER :: npopsiz, ngen, idum, ibound
11 REAL(rprec),
DIMENSION(nparmax) :: parmax, parmin
15 INTEGER :: nowrite,microga,unique_ind
16 REAL(rprec) :: pmutate,pcreep
17 INTEGER :: iskip,iend,nchild,itourny,ielite,icreep,iunifrm,
19 INTEGER,
DIMENSION(nparmax) :: nposibl, nichflg
22 INTEGER :: strategy, CR_strategy, out_iter
23 REAL(rprec) :: f_cross
25 namelist /ga_de/ npopsiz,ngen,idum,ibound,pcross,
26 + strategy, cr_strategy, out_iter, f_cross,
27 + nowrite,microga,unique_ind,pmutate,pcreep,
28 + iskip,iend,nchild,itourny,ielite,icreep,iunifrm,
30 + parmin,parmax,nposibl,nichflg
34 SUBROUTINE read_gade_namelist (iunit, istat)
35 INTEGER :: iunit, istat
37 READ (iunit, nml=ga_de, iostat=istat)
39 END SUBROUTINE read_gade_namelist