Go to the source code of this file.
|
subroutine | geom_from_wf_param (EQUILIBRIUM, EQUILIBRIUM_OUT, GEO_AX, MAG_AX, PLASMA_AX, IP, AMIN, ELONG_UP, ELONG_LOW, TRIA_UP, TRIA_LOW, NPSI, NDIM1, NDIM2, NPOINTS) |
|
subroutine geom_from_wf_param |
( |
type (type_equilibrium), dimension(:), pointer |
EQUILIBRIUM, |
|
|
type (type_equilibrium), dimension(:), pointer |
EQUILIBRIUM_OUT, |
|
|
real (r8), dimension(3) |
GEO_AX, |
|
|
real (r8), dimension(3) |
MAG_AX, |
|
|
real (r8), dimension(3) |
PLASMA_AX, |
|
|
real (r8) |
IP, |
|
|
real (r8) |
AMIN, |
|
|
real (r8) |
ELONG_UP, |
|
|
real (r8) |
ELONG_LOW, |
|
|
real (r8) |
TRIA_UP, |
|
|
real (r8) |
TRIA_LOW, |
|
|
integer |
NPSI, |
|
|
integer |
NDIM1, |
|
|
integer |
NDIM2, |
|
|
integer |
NPOINTS |
|
) |
| |