V3FIT
gade_mod.f
1  MODULE gade_mod
2  USE stel_kinds
3  IMPLICIT NONE
4 
5 ! shared
6  INTEGER, PARAMETER :: indmax=500, nchrmax=5000, nparmax=500
7  INTEGER, PARAMETER :: max_gen=1000
8 
9  INTEGER :: npopsiz, ngen, idum, ibound
10  REAL(rprec) :: pcross
11  REAL(rprec), DIMENSION(nparmax) :: parmax, parmin
12  LOGICAL :: save_space
13 !
14 ! GA Specific
15  INTEGER :: nowrite,microga,unique_ind
16  REAL(rprec) :: pmutate,pcreep
17  INTEGER :: iskip,iend,nchild,itourny,ielite,icreep,iunifrm,
18  + iniche
19  INTEGER, DIMENSION(nparmax) :: nposibl, nichflg
20 !
21 ! DE specific
22  INTEGER :: strategy, CR_strategy, out_iter
23  REAL(rprec) :: f_cross
24 
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,
29  + iniche,save_space,
30  + parmin,parmax,nposibl,nichflg
31 
32  CONTAINS
33 
34  SUBROUTINE read_gade_namelist (iunit, istat)
35  INTEGER :: iunit, istat
36 
37  READ (iunit, nml=ga_de, iostat=istat)
38 
39  END SUBROUTINE read_gade_namelist
40 
41  END MODULE gade_mod