V3FIT
LIBSTELL
Sources
Optimization
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
Generated on Thu Mar 5 2020 15:49:24 for V3FIT by
1.8.17