13 namelist /coilsin/ nmod_coils_per_period, nf_phi, nf_rho, epsfcn,
14 1 lvf, lmodcur, lsurfv, lbnorm, rhoc, rhos, phic, phis, curmod,
15 2 dcc_wgt, dcc_exp, dcc_tgt, dcp_wgt, dcp_exp, dcp_tgt, rc_wgt,
16 3 rc_exp, rc_tgt, lmod_wgt, lmod_tgt, niter_opt, nstep, i_pol,
17 4 numsurf, m_num, n_num, rmn_sf, zmn_sf, num_vf, rc_vf, zc_vf,
18 5 cc_vf, lbcoil, lncsx, lsymm, lsaddle, nsad_coils_per_period,
19 6 ltfc, ltfcv, i_tfc, lsadsfv, nsad_u, nsad_v, nfils, sad_v_c,
20 7 sad_v_s, sad_u_c, sad_u_s, sad_v0, sad_u0, lsadcur, lpolcur,
21 8 cursad, numsurf_sad, m_sad, n_sad, rmn_sad, zmn_sad, dsc_wgt,
22 9 dsc_exp, dsc_tgt, r_ext, ymin_wgt, ymin_tgt, lmodular, lqos,
23 a rs_wgt, rs_exp, rs_tgt, lsmod, laccess, n_access, x0_access,
24 b y0_access, z0_access, x1_access, y1_access, z1_access,
25 c dac_wgt, dac_exp, dac_tgt, cvf_wgt, cvf_tgt, cs_wgt, cs_tgt,
26 d cu_wgt, cu_tgt, dpc_wgt, mc_bg, lp_bg, bcoil_cur, dscxp_wgt,
27 e dscxp_exp, dscxp_tgt, deln, delt, lspline, lsplbkp, nvar_vc,
28 f nvar_uc, bkp_wgt, bkp_tgt, mxb_wgt, lvfvar, nrvf_c, rcfc_vf,
29 g rcfs_vf, lvfr, lvfz, nopt_alg, lrestart, nopt_wsurf, rvf_wgt,
30 h rvf_tgt, nsad_group, ls_cur, csad_scl, lsad_wgt, lsad_tgt,
31 i rmax_wgt, rmax_tgt, bcoil_file, lbcoil_cur, lsadshape,
32 j lvfc, lcc_vf, csc_wgt, csc_tgt, scd_wgt, scd_tgt, lctrlpt,
33 k nwdim, nvf_fix, laxis, vacfld_wgt, sc_dmin_tgt, sc_dmin_wgt
200 SUBROUTINE read_coils_namelist (iunit, istat)
201 INTEGER :: iunit, istat
203 READ (iunit, nml=coilsin, iostat=istat)
205 END SUBROUTINE read_coils_namelist
207 END MODULE coilsnamin