V3FIT
LIBSTELL
Sources
Coils
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
Generated on Thu Mar 5 2020 15:49:23 for V3FIT by
1.8.17