3 INTEGER,
PARAMETER :: mfourier = 100
4 INTEGER :: nsad_v, nsad_u, nsad_coeffs, nfils
5 INTEGER :: nsad_coils_per_period, nsad_coils, nsmid, nsodd
6 INTEGER :: nsad_unique_coils
7 INTEGER :: nsad_currents, num_cursad
8 INTEGER,
DIMENSION(ncdim) :: nsad_group
9 LOGICAL :: ls_cur(ncdim)
10 REAL(rprec),
DIMENSION(ncdim) :: csad_scl
11 REAL(rprec),
DIMENSION(ncdim,0:mfourier) :: sad_v_c,
12 1 sad_v_s, sad_u_c, sad_u_s
13 REAL(rprec),
DIMENSION(ncdim) :: sad_u0, sad_v0,
14 1 sad_phi0, sad_theta0
15 REAL(rprec),
DIMENSION(ncdim) :: cursad, c_sad, sad_length
16 REAL(rprec),
DIMENSION(ncdim),
TARGET ::
17 1 dsc_wgt, dsc_exp, dsc_tgt, sc_min
18 REAL(rprec),
DIMENSION(ncdim,ncdim),
TARGET ::
19 1 sc_dmin_tgt, sc_dmin_wgt, sc_dmin
20 REAL(rprec),
DIMENSION(ncdim),
TARGET ::
21 1 rs_wgt, rs_exp, rs_tgt, rs_min
22 REAL(rprec),
DIMENSION(ncdim),
TARGET ::
23 1 cs_wgt, cs_tgt, cs_sum
24 REAL(rprec),
DIMENSION(ncdim),
TARGET ::
25 1 dscxp_wgt, dscxp_exp, dscxp_tgt, scxp_min
26 REAL(rprec),
DIMENSION(ncdim),
TARGET ::
28 REAL(rprec),
DIMENSION(ncdim),
TARGET ::
29 1 rmax_sad, rmax_wgt, rmax_tgt
30 REAL(rprec),
DIMENSION(ncdim),
TARGET :: ymin_sad
31 REAL(rprec),
DIMENSION(:,:),
ALLOCATABLE :: u_sad, v_sad
32 REAL(rprec),
DIMENSION(:,:,:),
ALLOCATABLE :: x_sad, y_sad,
34 REAL(rprec) :: deln, delt, p_s_min, bkp_min, bkp_wgt, bkp_tgt
35 REAL(rprec),
DIMENSION(ncdim),
TARGET :: csc_wgt, scd_wgt
36 REAL(rprec),
DIMENSION(ncdim) :: csc_tgt, scd_tgt
37 LOGICAL :: lsaddle, lsadsfv, lsadcur, lsmod, lsadshape,
38 1 lspline, lctrlpt, lsplbkp
39 INTEGER,
DIMENSION(ncdim,0:mfourier) :: nvar_vc, nvar_uc
40 END MODULE saddle_coils