V3FIT
load_tf_coils.f
1  SUBROUTINE load_tf_coils (nvariables, xvariables)
2 !-----------------------------------------------
3 ! M o d u l e s
4 !-----------------------------------------------
5  USE tf_coils
6  IMPLICIT NONE
7 !-----------------------------------------------
8 ! L o c a l V a r i a b l e s
9 !-----------------------------------------------
10  INTEGER :: i, nvariables
11  REAL(rprec) :: xvariables(*)
12 !-----------------------------------------------
13  nvariables = 1
14  i_tfc = xvariables(1)
15  tfc_cur(1) = xvariables(1)
16 
17  IF (lqos) THEN
18  DO i = 1, mtfcoil
19  tfc_cur(i) = xvariables(1)/mtfcoil
20  END DO
21  END IF
22 
23  END SUBROUTINE load_tf_coils