V3FIT
booz_persistent.f
1  MODULE booz_persistent
2  USE stel_kinds
3 C ONLY ARRAYS SMALL ENOUGH TO SAVE BETWEEN INTERNAL CALLS SHOULD BE STORED HERE
4  IMPLICIT NONE
5 C-----------------------------------------------
6 C L o c a l V a r i a b l e s
7 C-----------------------------------------------
8  INTEGER :: nu2_b, nu3_b
9  REAL(rprec), DIMENSION(:), ALLOCATABLE ::
10  1 sfull, scl, thgrd, ztgrd, xm, xn, xm_nyq, xn_nyq, xnb, xmb
11  REAL(rprec), DIMENSION(:,:), ALLOCATABLE ::
12  1 cosm_b, cosn_b, sinm_b, sinn_b, rmnc, zmns, lmns,
13  2 rmns, zmnc, lmnc
14  REAL(rprec), DIMENSION(:,:), ALLOCATABLE ::
15  1 cosm_nyq, cosn_nyq, sinm_nyq, sinn_nyq
16 C-----------------------------------------------
17  END MODULE booz_persistent