Go to the source code of this file.
|
subroutine | leq_gmres (VNAME, VNO, VAR, A_M, B_M, cmethod, TOL, ITMAX, MAX_IT, IER) |
|
subroutine | leq_gmres0 (VNAME, VNO, VAR, A_M, B_M, CMETHOD, TOL, ITMAX, MAX_IT, MATVEC, MSOLVE, IER) |
|
subroutine | rotmat (A, B, C, S) |
|
subroutine | leq_check (vname, A_m) |
|
subroutine leq_check |
( |
character(len=*), intent(in) |
vname, |
|
|
double precision, dimension(dimension_3, -3:3), intent(inout) |
A_m |
|
) |
| |
subroutine leq_gmres |
( |
character(len=*), intent(in) |
VNAME, |
|
|
integer, intent(in) |
VNO, |
|
|
double precision, dimension(dimension_3), intent(inout) |
VAR, |
|
|
|
A_M, |
|
|
double precision, dimension(dimension_3), intent(inout) |
B_M, |
|
|
character(len=*), intent(in) |
cmethod, |
|
|
double precision, intent(in) |
TOL, |
|
|
integer, intent(in) |
ITMAX, |
|
|
integer, intent(in) |
MAX_IT, |
|
|
integer, intent(inout) |
IER |
|
) |
| |
subroutine leq_gmres0 |
( |
character(len=*), intent(in) |
VNAME, |
|
|
integer, intent(in) |
VNO, |
|
|
double precision, dimension(dimension_3), intent(inout) |
VAR, |
|
|
double precision, dimension(dimension_3,-3:3), intent(inout) |
A_M, |
|
|
double precision, dimension(dimension_3), intent(inout) |
B_M, |
|
|
character(len=*), intent(in) |
CMETHOD, |
|
|
double precision, intent(in) |
TOL, |
|
|
integer, intent(in) |
ITMAX, |
|
|
integer, intent(in) |
MAX_IT, |
|
|
|
MATVEC, |
|
|
|
MSOLVE, |
|
|
integer, intent(inout) |
IER |
|
) |
| |
subroutine rotmat |
( |
double precision |
A, |
|
|
double precision |
B, |
|
|
double precision |
C, |
|
|
double precision |
S |
|
) |
| |