Go to the source code of this file.
|
| subroutine | spider (nstep, time, dt, key_dmf, k_grid, k_auto, k_fixfree, |
| |
| subroutine | get_psix (r_xp, z_xp, psi_xp) |
| |
| subroutine | get_fpsix (r_xp, z_xp, psi_xp) |
| |
| subroutine | get_psib (r_ax, z_ax, psi_b) |
| |
| subroutine | kpr_calc (kpr_xx) |
| |
| subroutine | pau () |
| |
| subroutine | put_name (name, ksym) |
| |
| subroutine | put_ipl (placur) |
| |
| subroutine | get_ipl (placur) |
| |
| subroutine get_fpsix |
( |
|
r_xp, |
|
|
|
z_xp, |
|
|
|
psi_xp |
|
) |
| |
| subroutine get_ipl |
( |
|
placur | ) |
|
| subroutine get_psib |
( |
|
r_ax, |
|
|
|
z_ax, |
|
|
|
psi_b |
|
) |
| |
| subroutine get_psix |
( |
|
r_xp, |
|
|
|
z_xp, |
|
|
|
psi_xp |
|
) |
| |
| subroutine kpr_calc |
( |
|
kpr_xx | ) |
|
| subroutine put_ipl |
( |
|
placur | ) |
|
| subroutine put_name |
( |
character*40 |
name, |
|
|
integer |
ksym |
|
) |
| |
| subroutine spider |
( |
|
nstep, |
|
|
|
time, |
|
|
|
dt, |
|
|
|
key_dmf, |
|
|
|
k_grid, |
|
|
|
k_auto, |
|
|
|
k_fixfree |
|
) |
| |