Go to the source code of this file.
|
subroutine | leq_cg (VNAME, VNO, VAR, A_M, B_m, cmethod, TOL, PC, ITMAX, IER) |
|
subroutine | leq_cg0 (VNAME, VNO, VAR, A_M, B_m, cmethod, TOL, ITMAX, MATVEC, MSOLVE, IER) |
|
subroutine leq_cg |
( |
character(len=*), intent(in) |
VNAME, |
|
|
integer, intent(in) |
VNO, |
|
|
|
VAR, |
|
|
|
A_M, |
|
|
|
B_m, |
|
|
character(len=*), intent(in) |
cmethod, |
|
|
double precision, intent(in) |
TOL, |
|
|
character(len=4), intent(in) |
PC, |
|
|
integer, intent(in) |
ITMAX, |
|
|
integer, intent(inout) |
IER |
|
) |
| |
subroutine leq_cg0 |
( |
character(len=*), intent(in) |
VNAME, |
|
|
integer, intent(in) |
VNO, |
|
|
double precision, dimension(ijkstart3:ijkend3), intent(inout) |
VAR, |
|
|
double precision, dimension(ijkstart3:ijkend3,-3:3), intent(inout) |
A_M, |
|
|
double precision, dimension(ijkstart3:ijkend3), intent(inout) |
B_m, |
|
|
character(len=*), intent(in) |
cmethod, |
|
|
double precision, intent(in) |
TOL, |
|
|
integer, intent(in) |
ITMAX, |
|
|
|
MATVEC, |
|
|
|
MSOLVE, |
|
|
integer, intent(inout) |
IER |
|
) |
| |