V3FIT
vmec_persistent.f
1  MODULE vmec_persistent
2  USE stel_kinds, ONLY: rprec
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 :: ixm, jmin3
8  REAL(rprec), DIMENSION(:,:), ALLOCATABLE :: cosmu, sinmu,
9  1 cosmum, sinmum, cosmumi, sinmumi,
10  2 cosnv, sinnv, cosnvn, sinnvn
11  REAL(rprec), DIMENSION(:,:), ALLOCATABLE :: cosmui, sinmui,
12  1 cosmui3, cosmumi3
13  REAL(rprec), DIMENSION(:), ALLOCATABLE, TARGET ::
14  1 xm, xn, xm_nyq, xn_nyq
15  REAL(rprec), DIMENSION(:), ALLOCATABLE :: cos01, sin01
16 c-----------------------------------------------
17  END MODULE vmec_persistent