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