V3FIT
saddle_coils.f
1  MODULE saddle_coils
2  USE vcoilpts
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 ::
27  1 lsad_wgt, lsad_tgt
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,
33  1 z_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