V3FIT
vf_coils.f
1  MODULE vf_coils
2  USE vcoilpts
3  INTEGER :: nvf_fix
4  INTEGER :: num_vf, nvf, nrvf_c, nvf_coeffs
5  REAL(rprec), DIMENSION(ncdim) :: rc_vf, zc_vf, cc_vf
6  REAL(rprec), DIMENSION(ncdim,ncdim) :: rcfc_vf, rcfs_vf
7  REAL(rprec), DIMENSION(ncdim) :: rvf, zvf, cvf, cvf_tgt
8  REAL(rprec), DIMENSION(ncdim), TARGET :: cvf_wgt, rvf_wgt
9  REAL(rprec), DIMENSION(ncdim) :: rvf_tgt, rvf_max
10  REAL(rprec), DIMENSION(:,:,:), ALLOCATABLE :: x_vf, y_vf, z_vf
11  REAL(rprec) :: cvf_ssq
12  LOGICAL :: lvf, lvfc, lvfvar, lvfr, lvfz
13  LOGICAL, DIMENSION(ncdim) :: lcc_vf
14  END MODULE vf_coils