V3FIT
mapout.f
1 
2  MODULE mapout
3  USE precision
4  TYPE :: rszs
5 ! All MKS units !!!!!!!!!!!!
6  INTEGER :: npsi, nthet
7  REAL(rprec) :: raxis, zaxis, eaxis, qaxis, fraction_bndry
8  REAL(rprec), DIMENSION(:), ALLOCATABLE :: rcentr
9  REAL(rprec), DIMENSION(:), ALLOCATABLE :: zcentr
10  REAL(rprec), DIMENSION(:), ALLOCATABLE :: aminor
11  REAL(rprec), DIMENSION(:), ALLOCATABLE :: elong
12  REAL(rprec), DIMENSION(:), ALLOCATABLE :: tnedni ! indentation
13  REAL(rprec), DIMENSION(:), ALLOCATABLE :: triang
14  REAL(rprec), DIMENSION(:), ALLOCATABLE :: square ! squareness
15  REAL(rprec), DIMENSION(:), ALLOCATABLE :: psival
16  REAL(rprec), DIMENSION(:), ALLOCATABLE :: vplas
17  REAL(rprec), DIMENSION(:), ALLOCATABLE :: area
18  REAL(rprec), DIMENSION(:), ALLOCATABLE :: curint
19  REAL(rprec), DIMENSION(:), ALLOCATABLE :: curavg ! <Jtor>
20  REAL(rprec), DIMENSION(:), ALLOCATABLE :: curintp ! d(Itor/ds)
21  REAL(rprec), DIMENSION(:), ALLOCATABLE :: phi
22  REAL(rprec), DIMENSION(:), ALLOCATABLE :: qsi
23  REAL(rprec), DIMENSION(:), ALLOCATABLE :: fpol
24  REAL(rprec), DIMENSION(:), ALLOCATABLE :: pressure
25  REAL(rprec), DIMENSION(:), ALLOCATABLE :: tflx
26  REAL(rprec), DIMENSION(:), ALLOCATABLE :: vprime
27  REAL(rprec), DIMENSION(:), ALLOCATABLE :: ffprime
28  REAL(rprec), DIMENSION(:), ALLOCATABLE :: pprime
29  REAL(rprec), DIMENSION(:,:), ALLOCATABLE :: rs
30  REAL(rprec), DIMENSION(:,:), ALLOCATABLE :: zs
31  REAL(rprec), DIMENSION(:,:), ALLOCATABLE :: arcsur
32  REAL(rprec), DIMENSION(0:19,0:0) :: rbc, rbs, zbc, zbs
33  END TYPE rszs
34  END MODULE mapout
mapout::rszs
Definition: mapout.f:4