init_modular_wsurf.f

      SUBROUTINE init_modular_wsurf (nvariables, xvariables)
!-----------------------------------------------
!   M o d u l e s
!-----------------------------------------------
      USE modular_coils
      IMPLICIT NONE
!-----------------------------------------------
!   L o c a l   V a r i a b l e s
!-----------------------------------------------
      INTEGER :: nvariables
      REAL(rprec) :: xvariables(*)
!-----------------------------------------------
      xvariables(1:numsurf) = rmn_sf(1:numsurf)
      xvariables(numsurf+1:2*numsurf) = zmn_sf(1:numsurf)
      nvariables = 2*numsurf
 
      END SUBROUTINE init_modular_wsurf