Go to the source code of this file.
|
subroutine | output (NGRID, betpol, zli3) |
|
subroutine | loop |
|
subroutine | rpoint (ut, rt, zt, dp) |
|
subroutine | zpoint (ut, rt, zt, dp) |
|
subroutine | gap (ut, rt, zt, rg, zg) |
|
subroutine | f_gap (ut, rt, zt, rg, zg) |
|
subroutine | adapol |
|
subroutine | magpol |
|
subroutine | btpol (betpol) |
|
subroutine | bttor (bettor) |
|
subroutine | arcle (NBAS, RBAS, ZBAS, ARC, ARCMAX) |
|
subroutine | tcontr (KAS, A, JA, IA, NN, Z, B, IPRT, IGRF, BZ, ERR) |
|
subroutine | rarvec (A, JA, IA, N, X, Y) |
|
subroutine | sarvec (A, JA, IA, N, X, Y) |
|
subroutine | aprt (N, A, IA, JA) |
|
subroutine | agrf (N, IA, JA) |
|
subroutine | wrd |
|
subroutine | wrrec |
|
subroutine | wrdfmv (numwr, time) |
|
subroutine | rdd |
|
subroutine | wrdbnd |
|
subroutine | wrdbin (nk) |
|
subroutine | rddbnd |
|
subroutine | rddbin (nk) |
|
subroutine | eqdsk_rebild |
|
subroutine | eqdsk_build (eqdfn) |
|
subroutine | get (qpsi, nw) |
|
subroutine agrf |
( |
integer |
N, |
|
|
integer, dimension(1) |
IA, |
|
|
integer, dimension(1) |
JA |
|
) |
| |
subroutine aprt |
( |
|
N, |
|
|
dimension(1) |
A, |
|
|
dimension(1) |
IA, |
|
|
dimension(1) |
JA |
|
) |
| |
subroutine arcle |
( |
|
NBAS, |
|
|
dimension(*) |
RBAS, |
|
|
dimension(*) |
ZBAS, |
|
|
dimension(*) |
ARC, |
|
|
|
ARCMAX |
|
) |
| |
subroutine btpol |
( |
|
betpol | ) |
|
subroutine bttor |
( |
|
bettor | ) |
|
subroutine eqdsk_build |
( |
character*40 |
eqdfn | ) |
|
subroutine eqdsk_rebild |
( |
| ) |
|
subroutine f_gap |
( |
|
ut, |
|
|
|
rt, |
|
|
|
zt, |
|
|
|
rg, |
|
|
|
zg |
|
) |
| |
subroutine gap |
( |
|
ut, |
|
|
|
rt, |
|
|
|
zt, |
|
|
|
rg, |
|
|
|
zg |
|
) |
| |
subroutine get |
( |
|
q_spline, |
|
|
dimension(*) |
qpsi, |
|
|
|
nw |
|
) |
| |
subroutine output |
( |
|
NGRID, |
|
|
|
betpol, |
|
|
|
zli3 |
|
) |
| |
subroutine rarvec |
( |
dimension(1) |
A, |
|
|
dimension(1) |
JA, |
|
|
dimension(1) |
IA, |
|
|
|
N, |
|
|
dimension(1) |
X, |
|
|
dimension(1) |
Y |
|
) |
| |
subroutine rddbin |
( |
integer |
nk | ) |
|
subroutine rpoint |
( |
|
ut, |
|
|
|
rt, |
|
|
|
zt, |
|
|
real*8, dimension(5) |
dp |
|
) |
| |
subroutine sarvec |
( |
dimension(1) |
A, |
|
|
dimension(1) |
JA, |
|
|
dimension(1) |
IA, |
|
|
|
N, |
|
|
dimension(1) |
X, |
|
|
dimension(1) |
Y |
|
) |
| |
subroutine tcontr |
( |
|
KAS, |
|
|
dimension(*) |
A, |
|
|
dimension(*) |
JA, |
|
|
dimension(*) |
IA, |
|
|
|
NN, |
|
|
dimension(*) |
Z, |
|
|
dimension(*) |
B, |
|
|
|
IPRT, |
|
|
|
IGRF, |
|
|
dimension(*) |
BZ, |
|
|
|
ERR |
|
) |
| |
subroutine wrdbin |
( |
integer |
nk | ) |
|
subroutine wrdfmv |
( |
|
numwr, |
|
|
|
time |
|
) |
| |
subroutine zpoint |
( |
|
ut, |
|
|
|
rt, |
|
|
|
zt, |
|
|
real*8, dimension(5) |
dp |
|
) |
| |