V3FIT
write_gade_nml.f
1  SUBROUTINE write_gade_nml(iunit)
2  USE stel_kinds
3  USE gade_mod
4  USE write_array_generic
5  IMPLICIT NONE
6 C-----------------------------------------------
7 C D u m m y A r g u m e n t s
8 C-----------------------------------------------
9  INTEGER :: iunit
10 C-----------------------------------------------
11 C L o c a l V a r i a b l e s
12 C-----------------------------------------------
13  INTEGER :: i
14 C-----------------------------------------------
15  WRITE (iunit,'(a)')'&GA_DE'
16  WRITE (iunit,200) 'NPOPSIZ = ', npopsiz
17  WRITE (iunit,200) 'NGEN = ', ngen
18  WRITE (iunit,200) 'IDUM = ', idum
19  WRITE (iunit,200) 'IBOUND = ', ibound
20  WRITE (iunit,200) 'NOWRITE = ', nowrite
21  WRITE (iunit,200) 'MICROGA = ', microga
22  WRITE (iunit,200) 'ISKIP = ', iskip
23  WRITE (iunit,200) 'IEND = ', iend
24  WRITE (iunit,200) 'NCHILD = ', nchild
25  WRITE (iunit,200) 'ITOURNY = ', itourny
26  WRITE (iunit,200) 'IELITE = ', ielite
27  WRITE (iunit,200) 'ICREEP = ', icreep
28  WRITE (iunit,200) 'IUNIFRM = ', iunifrm
29  WRITE (iunit,200) 'INICHE = ', iniche
30  WRITE (iunit,200) 'STRATEGY= ', strategy
31  WRITE (iunit,200) 'CR_STRATEGY = ', cr_strategy
32  WRITE (iunit,200) 'OUT_ITER= ', out_iter
33  WRITE (iunit,200) 'UNIQUE_IND = ', unique_ind
34  WRITE (iunit,210) 'PCROSS = ', pcross
35  WRITE (iunit,210) 'F_CROSS = ', f_cross
36  WRITE (iunit,210) 'PMUTATE = ', pmutate
37  WRITE (iunit,210) 'PCREEP = ', pcreep
38  WRITE (iunit,101) 'SAVE_SPACE = ', save_space
39  WRITE (iunit,100) 'NICHFLG = '
40  WRITE (iunit,110) (nichflg(i), i=1,nparmax)
41  WRITE (iunit,100) 'NPOSIBL = '
42  WRITE (iunit,110) (nposibl(i), i=1,nparmax)
43  CALL write_array (iunit, 'PARMIN', parmin, nparmax)
44  CALL write_array (iunit, 'PARMAX', parmax, nparmax)
45  WRITE (iunit,'(a)') '/'
46 
47  100 FORMAT (2x,a)
48  101 FORMAT (2x,a,l2)
49  110 FORMAT (2x, 16i5)
50  200 FORMAT (2x,a,i5)
51  210 FORMAT (2x,a,1pe20.14)
52 
53  END SUBROUTINE write_gade_nml
write_array_generic::write_array
Definition: write_array_generic.f:11