V3FIT
gfile.f
1  MODULE gfile
2  USE precision
3  TYPE :: geqdsk
4  INTEGER :: shot
5  INTEGER :: time
6  INTEGER :: error
7  CHARACTER(len=63) :: source
8  CHARACTER(len=10), DIMENSION(6) :: ecase
9  INTEGER :: mw
10  INTEGER :: mh
11  REAL(rprec) :: xdim
12  REAL(rprec) :: zdim
13  REAL(rprec) :: rzero
14  REAL(rprec) :: rgrid1
15  REAL(rprec) :: zmid
16  REAL(rprec) :: rmaxis
17  REAL(rprec) :: zmaxis
18  REAL(rprec) :: ssimag
19  REAL(rprec) :: ssibry
20  REAL(rprec) :: bcentr
21  REAL(rprec) :: cpasma
22  REAL(rprec) ,DIMENSION(:), ALLOCATABLE :: fpol
23  REAL(rprec) ,DIMENSION(:), ALLOCATABLE :: pres
24  REAL(rprec) ,DIMENSION(:), ALLOCATABLE :: ffprim
25  REAL(rprec) ,DIMENSION(:), ALLOCATABLE :: pprime
26  REAL(rprec) ,DIMENSION(:,:), ALLOCATABLE :: psirz
27  REAL(rprec) ,DIMENSION(:), ALLOCATABLE :: qpsi
28  INTeger(rprec) :: nbdry
29  INTeger(rprec) :: limitr
30  REAL(rprec) ,DIMENSION(:), ALLOCATABLE :: rbdry
31  REAL(rprec) ,DIMENSION(:), ALLOCATABLE :: zbdry
32  REAL(rprec) ,DIMENSION(:), ALLOCATABLE :: xlim
33  REAL(rprec) ,DIMENSION(:), ALLOCATABLE :: ylim
34  REAL(rprec) ,DIMENSION(:), ALLOCATABLE :: R
35  REAL(rprec) ,DIMENSION(:), ALLOCATABLE :: Z
36  REAL(rprec) ,DIMENSION(:), ALLOCATABLE :: rhovn
37  REAL(rprec) ,DIMENSION(:), ALLOCATABLE :: epoten
38  END TYPE geqdsk
39  END MODULE gfile
gfile::geqdsk
Definition: gfile.f:3