3 INTEGER,
PARAMETER :: nfourier=20, nsurf_p=200
4 INTEGER :: nf_rho, nf_phi, nstep, niter_opt, nmod_coils,
5 1 nmid, nodd, nfper, nmod_coils_per_period,
6 2 m_in, n_in, nmod_unique_coils, nmod_coeffs, nmod_currents
8 REAL(rprec),
TARGET :: dcp_wgt
9 REAL(rprec) :: epsfcn, dcp_exp, dcp_tgt
10 REAL(rprec),
DIMENSION(ncdim),
TARGET ::
11 1 dcc_wgt, dcc_exp, dcc_tgt, cc_min
12 REAL(rprec),
DIMENSION(ncdim),
TARGET ::
13 1 rc_wgt, rc_exp, rc_tgt, rc_min
14 REAL(rprec),
DIMENSION(ncdim),
TARGET ::
15 1 lmod_wgt, lmod_tgt, cmod_scl
16 REAL(rprec),
DIMENSION(ncdim),
TARGET ::
17 1 ymin_wgt, ymin_tgt, ymin_cls
18 REAL(rprec),
DIMENSION(ncdim),
TARGET ::
19 1 cu_wgt, cu_tgt, cu_sum
20 REAL(rprec),
DIMENSION(ncdim),
TARGET :: r_ext
21 REAL(rprec),
DIMENSION(ncdim),
TARGET :: curmod
22 REAL(rprec),
DIMENSION(ncdim) :: phimin, phimax
23 REAL(rprec),
DIMENSION(ncdim) :: mod_length
24 REAL(rprec),
DIMENSION(:,:,:),
ALLOCATABLE :: x_mod, y_mod, z_mod
25 REAL(rprec),
DIMENSION(ncdim) :: curcon
26 REAL(rprec),
DIMENSION(ncdim,0:nfourier) :: phic, phis, rhoc, rhos
27 REAL(rprec),
DIMENSION(:,:),
ALLOCATABLE :: rho , phi,
29 INTEGER,
DIMENSION(nsurf_p) :: m_num,n_num
30 REAL(rprec),
DIMENSION(nsurf_p) :: rmn_sf, zmn_sf
31 REAL(rprec),
DIMENSION(ncdim) :: phi_full
32 REAL(rprec) :: p_d_min, p_d_max
33 REAL (rprec),
DIMENSION (ncdim) :: b_max
39 END MODULE modular_coils