V3FIT
LIBSTELL
Sources
Modules
tf_coils.f
1
MODULE
tf_coils
2
USE
stel_constants
3
USE
vcoilpts
4
REAL
(rprec) :: i_pol, i_tfc, pol_cur
5
REAL
(rprec),
TARGET
:: dpc_wgt
6
INTEGER
:: mtfcoil, mtfwire
7
REAL
(rprec),
DIMENSION(ncdim)
:: tfc_cur
8
REAL
(rprec),
DIMENSION(:,:)
,
ALLOCATABLE
:: tfc_x, tfc_y, tfc_z
9
LOGICAL
:: ltfc, ltfcv
10
LOGICAL
:: lqos
11
LOGICAL
:: lpolcur
12
END MODULE
tf_coils
Generated on Thu Mar 5 2020 15:49:23 for V3FIT by
1.8.17