init_vf_currents.f

      SUBROUTINE init_vf_currents (nvariables, xvariables)
!-----------------------------------------------
!   M o d u l e s
!-----------------------------------------------
      USE vf_coils
      IMPLICIT NONE
!-----------------------------------------------
!   L o c a l   V a r i a b l e s
!-----------------------------------------------
      INTEGER :: i
      INTEGER :: nvariables
      REAL(rprec) :: xvariables(*)
!-----------------------------------------------
      nvariables = 0
 
      IF (lvfc) THEN
        DO i=1, num_vf
          IF (lcc_vf(i)) THEN
             nvariables = nvariables + 1
             xvariables(nvariables) = cc_vf(i)
          END IF
        END DO
      END IF
 
      END SUBROUTINE init_vf_currents