V3FIT
VMEC2000
Sources
NESTOR_vacuum
vac_persistent.f
1
MODULE
vac_persistent
2
USE
stel_kinds
3
IMPLICIT NONE
4
C-----------------------------------------------
5
C L o c a l V a r i a b l e s
6
C-----------------------------------------------
7
INTEGER
,
DIMENSION(:)
,
ALLOCATABLE
:: imirr
8
REAL
(rprec),
DIMENSION(:)
,
ALLOCATABLE
:: sinper, cosper,
9
1 sinuv, cosuv, tanu, tanv, xmpot, xnpot, csign
10
REAL
(rprec),
DIMENSION(:,:)
,
ALLOCATABLE
:: sinu, cosu,
11
1 sinv, cosv, sinui, cosui, sinu1, cosu1, sinv1, cosv1,
12
2 cosmni, sinmni
13
REAL
(rprec),
DIMENSION(:,:,:)
,
ALLOCATABLE
:: cmns
14
15
!MRC 10-15-15
16
REAL
(rprec),
DIMENSION(:)
,
ALLOCATABLE
:: bsubu_sur, bsubv_sur
17
REAL
(rprec),
DIMENSION(:)
,
ALLOCATABLE
:: bsupu_sur, bsupv_sur
18
19
END MODULE
vac_persistent
Generated on Thu Mar 5 2020 15:49:27 for V3FIT by
1.8.17