1 SUBROUTINE init_vf_coils (nvariables, xvariables)
12 REAL(rprec) :: xvariables(*)
19 DO i=nvf_fix+1, num_vf
22 xvariables(nsv) = zc_vf(i)
26 xvariables(nsv) = rc_vf(i)
28 IF (nrvf_c .gt. 0)
THEN
31 xvariables(nsv) = rcfc_vf(i,k)
33 xvariables(nsv) = rcfs_vf(i,k)
42 END SUBROUTINE init_vf_coils