V3FIT
xstuff.f
1  MODULE xstuff
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  REAL(rprec), DIMENSION(:), ALLOCATABLE ::
8  1 gc, xcdot, xsave, xstore, scalxc, col_scale
9  REAL(rprec), DIMENSION(:), ALLOCATABLE, TARGET ::
10  1 xc
11 
12  REAL(rprec), DIMENSION(:), ALLOCATABLE ::
13  1 pgc, pxcdot, pxsave, pxstore, pscalxc, pcol_scale
14  REAL(rprec), DIMENSION(:), ALLOCATABLE, TARGET ::
15  1 pxc
16 C-----------------------------------------------
17  END MODULE xstuff