4 REAL(rprec),
PARAMETER :: fturnon_axis = 3.e-9_dp
5 REAL(rprec),
PARAMETER :: fopt_axis = 3.e-2_dp*fturnon_axis
6 INTEGER,
PARAMETER :: isamecoil = -2
7 INTEGER,
PARAMETER :: needit = -1
8 INTEGER,
PARAMETER :: idontneed = 0
9 INTEGER,
PARAMETER :: isymcoil = 1
10 INTEGER,
PARAMETER :: ithom0 = 1
11 INTEGER,
PARAMETER :: istark0 = 2
12 INTEGER,
PARAMETER :: islope0 = 3
13 INTEGER,
PARAMETER :: icurr0 = 4
14 INTEGER,
PARAMETER :: idiam0 = 5
15 INTEGER,
PARAMETER :: iflxs0 = 6
16 INTEGER,
PARAMETER :: ibrzfld = 7
17 INTEGER,
PARAMETER :: natur = 0
18 INTEGER,
PARAMETER :: ideriv = 1
19 INTEGER,
PARAMETER :: intder = 1
20 INTEGER,
PARAMETER :: intfun = 2
21 INTEGER,
PARAMETER :: nmse = 100
22 INTEGER,
PARAMETER :: ntse = 100
23 INTEGER,
PARAMETER :: nfloops = 100
24 INTEGER,
PARAMETER :: nbsetsp = 5
25 INTEGER,
PARAMETER :: nbcoilsp = 100
26 INTEGER,
PARAMETER :: nbctotp = nbsetsp*nbcoilsp
27 INTEGER,
PARAMETER :: jngrn = 1001
28 INTEGER,
PARAMETER :: jchix = 7
29 INTEGER,
PARAMETER :: mstp = 100
30 INTEGER,
PARAMETER :: jchix1 = jchix + 1
31 INTEGER,
PARAMETER :: nparts = 4
32 INTEGER,
PARAMETER :: npfcoil = 40
33 INTEGER,
PARAMETER :: nigroup = 300
34 INTEGER,
PARAMETER :: ipedsvd = 8