V3FIT
load_vf_coils.f
1  SUBROUTINE load_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  zc_vf(i) = xvariables(nsv)
23  END IF
24  IF (lvfr) THEN
25  nsv = nsv + 1
26  rc_vf(i) = xvariables(nsv)
27  END IF
28  IF (nrvf_c .gt. 0) THEN
29  DO k=1, nrvf_c
30  nsv = nsv + 1
31  rcfc_vf(i,k) = xvariables(nsv)
32  nsv = nsv + 1
33  rcfs_vf(i,k) = xvariables(nsv)
34  END DO
35  END IF
36  END DO
37  END IF
38 
39  nvariables = nsv
40 
41  END SUBROUTINE load_vf_coils