Go to the source code of this file.
|
subroutine | solve (isol, wdm) |
|
subroutine | solve_spar (isol, wdm) |
|
subroutine | nev (zw) |
|
subroutine | foursol (ni, nj, u, f, ff, x, y, axm, ax0, axp) |
|
subroutine | rft1 (MM, X, Y, MODE) |
|
subroutine | rpa |
|
subroutine | rps |
|
subroutine | rsa |
|
subroutine | rca |
|
subroutine | setft (MM) |
|
subroutine foursol |
( |
|
ni, |
|
|
|
nj, |
|
|
dimension(nip,njp) |
u, |
|
|
dimension(nip,njp) |
f, |
|
|
dimension(nip,njp) |
ff, |
|
|
dimension(nip) |
x, |
|
|
dimension(njp) |
y, |
|
|
dimension(nip) |
axm, |
|
|
dimension(nip) |
ax0, |
|
|
dimension(nip) |
axp |
|
) |
| |
subroutine nev |
( |
real*8, dimension(neqp) |
zw | ) |
|
subroutine rft1 |
( |
|
MM, |
|
|
dimension(*) |
X, |
|
|
dimension(*) |
Y, |
|
|
|
MODE |
|
) |
| |
subroutine solve |
( |
|
isol, |
|
|
real*8, dimension(nip,njp) |
wdm |
|
) |
| |
subroutine solve_spar |
( |
|
isol, |
|
|
real*8, dimension(nip,njp) |
wdm |
|
) |
| |