1 SUBROUTINE init_saddle_coils (nvariables, xvariables, nfp)
10 INTEGER :: i, n, nsv, nc, modes, nfp
12 REAL(rprec) :: xvariables(*)
15 nc = nsad_coils_per_period
22 nsad_unique_coils = nsmid
24 IF (nsad_coils .le. 0)
RETURN
37 IF (nvar_vc(i,n).ne.0)
THEN
39 xvariables(nsv) = sad_v_c(i,n)
46 xvariables(nsv) = sad_v_s(i,n)
49 IF (nsad_u .gt. 0)
THEN
52 IF (nvar_uc(i,n).ne.0)
THEN
54 xvariables(nsv) = sad_u_c(i,n)
61 xvariables(nsv) = sad_u_s(i,n)
73 xvariables(nsv) = sad_v_c(i,modes)
76 xvariables(nsv) = sad_v_c(i,modes)
78 xvariables(nsv) = sad_v_s(i,modes)
82 IF (nsad_u .gt. 0)
THEN
84 xvariables(nsv) = sad_u_c(i,modes)
87 xvariables(nsv) = sad_u_c(i,modes)
89 xvariables(nsv) = sad_u_s(i,modes)
104 END SUBROUTINE init_saddle_coils