Go to the source code of this file.
|
subroutine | psi_fil (psicon, ncequi) |
|
subroutine | extfil (pcequi, ncequi) |
|
subroutine | exfmat (rk, zk, tk, nk, |
|
subroutine | cfr_mat (rk, zk, tk, nk, |
|
subroutine | coil_force |
|
subroutine | iter_force_limits (frcz, frcr) |
|
subroutine | ext_fil (pcequi, ncequi) |
|
subroutine | rdexf (ncequi) |
|
subroutine | bndmat |
|
subroutine | bndint (rk, zk, nk) |
|
subroutine | flux (psitok, rk, zk, nk) |
|
real *8 function | blin (i, j, r0, z0) |
|
real *8 function | bline (i, j, r0, z0) |
|
real *8 function | blint (i, j, r0, z0) |
|
subroutine | grid |
|
subroutine | geom |
|
subroutine | zero (isol) |
|
subroutine | zero_ax (isol) |
|
subroutine | cur_map (curden, rk, zk) |
|
real *8 function | blintr (tet0, ro0, |
|
real*8 function blin |
( |
|
i, |
|
|
|
j, |
|
|
|
r0, |
|
|
|
z0 |
|
) |
| |
real*8 function bline |
( |
|
i, |
|
|
|
j, |
|
|
|
r0, |
|
|
|
z0 |
|
) |
| |
real*8 function blint |
( |
|
i, |
|
|
|
j, |
|
|
|
r0, |
|
|
|
z0 |
|
) |
| |
real*8 function blintr |
( |
|
tet0, |
|
|
|
ro0 |
|
) |
| |
subroutine bndint |
( |
real*8, dimension(*) |
rk, |
|
|
real*8, dimension(*) |
zk, |
|
|
integer |
nk |
|
) |
| |
subroutine cfr_mat |
( |
real*8, dimension(*) |
rk, |
|
|
real*8, dimension(*) |
zk, |
|
|
real*8, dimension(*) |
tk, |
|
|
integer |
nk |
|
) |
| |
subroutine coil_force |
( |
| ) |
|
subroutine cur_map |
( |
|
curden, |
|
|
|
rk, |
|
|
|
zk |
|
) |
| |
subroutine exfmat |
( |
real*8, dimension(*) |
rk, |
|
|
real*8, dimension(*) |
zk, |
|
|
real*8, dimension(*) |
tk, |
|
|
integer |
nk |
|
) |
| |
subroutine ext_fil |
( |
real*8, dimension(*) |
pcequi, |
|
|
integer |
ncequi |
|
) |
| |
subroutine extfil |
( |
real*8, dimension(*) |
pcequi, |
|
|
integer |
ncequi |
|
) |
| |
subroutine flux |
( |
real*8, dimension(*) |
psitok, |
|
|
real*8, dimension(*) |
rk, |
|
|
real*8, dimension(*) |
zk, |
|
|
|
nk |
|
) |
| |
subroutine iter_force_limits |
( |
dimension(*) |
frcz, |
|
|
dimension(*) |
frcr |
|
) |
| |
subroutine psi_fil |
( |
real*8, dimension(*) |
psicon, |
|
|
|
ncequi |
|
) |
| |
subroutine rdexf |
( |
|
ncequi | ) |
|
subroutine zero |
( |
integer |
isol | ) |
|
subroutine zero_ax |
( |
integer |
isol | ) |
|