V3FIT
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