V3FIT
init_vf_coils.f
1  SUBROUTINE init_vf_coils (nvariables, xvariables)
2 !-----------------------------------------------
3 ! M o d u l e s
4 !-----------------------------------------------
5  USE vf_coils
6  IMPLICIT NONE
7 !-----------------------------------------------
8 ! L o c a l V a r i a b l e s
9 !-----------------------------------------------
10  INTEGER :: i, k, nsv
11  INTEGER :: nvariables
12  REAL(rprec) :: xvariables(*)
13 !-----------------------------------------------
14 
15  nsv = 0
16 
17  IF (lvfvar) THEN
18 ! DO i=1, num_vf
19  DO i=nvf_fix+1, num_vf
20  IF (lvfz) THEN
21  nsv = nsv + 1
22  xvariables(nsv) = zc_vf(i)
23  END IF
24  IF (lvfr) THEN
25  nsv = nsv + 1
26  xvariables(nsv) = rc_vf(i)
27  END IF
28  IF (nrvf_c .gt. 0) THEN
29  DO k=1, nrvf_c
30  nsv = nsv + 1
31  xvariables(nsv) = rcfc_vf(i,k)
32  nsv = nsv + 1
33  xvariables(nsv) = rcfs_vf(i,k)
34  END DO
35  END IF
36  END DO
37  END IF
38 
39  nvariables = nsv
40  nvf_coeffs = nsv
41 
42  END SUBROUTINE init_vf_coils