1 SUBROUTINE init_modular_coils (nvariables, xvariables, nfp)
10 INTEGER :: nc, i, n, nfp
11 INTEGER :: nvariables, modes
12 REAL(rprec) :: xvariables(*)
15 nc = nmod_coils_per_period
21 IF ((nodd.EQ.0) .AND. (.NOT.lsymm)) nmid = nmid + 1
37 IF ((nodd .EQ. 0) .AND. (.NOT.lsymm))
THEN
44 xvariables(n) = phis(i,modes)
49 xvariables(n) = rhos(i,modes)
55 xvariables(n) = phic(i,0)
58 xvariables(n) = phic(i,modes)
60 xvariables(n) = phis(i,modes)
64 xvariables(n) = rhoc(i,0)
67 xvariables(n) = rhoc(i,modes)
69 xvariables(n) = rhos(i,modes)
77 xvariables(n) = phis(i,modes)
82 xvariables(n) = rhos(i,modes)
94 xvariables(n) = phic(i,0)
97 xvariables(n) = phic(i,modes)
99 xvariables(n) = phis(i,modes)
103 xvariables(n) = rhoc(i,0)
106 xvariables(n) = rhoc(i,modes)
108 xvariables(n) = rhos(i,modes)
112 IF (nodd .EQ. 1)
THEN
116 xvariables(n) = phis(i,modes)
121 xvariables(n) = rhos(i,modes)
130 END SUBROUTINE init_modular_coils