Go to the source code of this file.
|
subroutine | fun (X, F) |
|
subroutine | ijmesh (NR, R, NZ, Z, RC, ZC, IC, JC) |
|
REAL *8 function | sumang (N, U, V, UC, VC) |
|
REAL *8 function | distan (N, U, V, UC, VC) |
|
subroutine | bp_prob (NOUT, NTER, KEYPRI, NPRO, RPRO, ZPRO, FIPRO, BRPRO, BZPRO, BPCOM) |
|
subroutine | probe (RPR, ZPR, FPR, BRPR, BZPR, BPNUM) |
|
subroutine | fl_loo (NOUT, NTER, KEYPRI, NLOO, RLOO, ZLOO, PSLOO) |
|
subroutine | floop (RPR, ZPR, PSPR) |
|
subroutine bp_prob |
( |
|
NOUT, |
|
|
|
NTER, |
|
|
|
KEYPRI, |
|
|
|
NPRO, |
|
|
dimension(*) |
RPRO, |
|
|
dimension(*) |
ZPRO, |
|
|
dimension(*) |
FIPRO, |
|
|
dimension(*) |
BRPRO, |
|
|
dimension(*) |
BZPRO, |
|
|
dimension(*) |
BPCOM |
|
) |
| |
REAL*8 function distan |
( |
|
N, |
|
|
dimension(1:n) |
U, |
|
|
dimension(1:n) |
V, |
|
|
|
UC, |
|
|
|
VC |
|
) |
| |
subroutine fl_loo |
( |
|
NOUT, |
|
|
|
NTER, |
|
|
|
KEYPRI, |
|
|
|
NLOO, |
|
|
dimension(1) |
RLOO, |
|
|
dimension(1) |
ZLOO, |
|
|
dimension(1) |
PSLOO |
|
) |
| |
subroutine floop |
( |
|
RPR, |
|
|
|
ZPR, |
|
|
|
PSPR |
|
) |
| |
Definition at line 10 of file Ev2.f.
subroutine ijmesh |
( |
|
NR, |
|
|
dimension(1) |
R, |
|
|
|
NZ, |
|
|
dimension(1) |
Z, |
|
|
|
RC, |
|
|
|
ZC, |
|
|
|
IC, |
|
|
|
JC |
|
) |
| |
Definition at line 84 of file Ev2.f.
subroutine probe |
( |
|
RPR, |
|
|
|
ZPR, |
|
|
|
FPR, |
|
|
|
BRPR, |
|
|
|
BZPR, |
|
|
|
BPNUM |
|
) |
| |
REAL*8 function sumang |
( |
|
N, |
|
|
dimension(1:n) |
U, |
|
|
dimension(1:n) |
V, |
|
|
|
UC, |
|
|
|
VC |
|
) |
| |