The TELEMAC-MASCARET system
trunk
|
Go to the source code of this file.
Functions/Subroutines | |
subroutine | gracjg (X, A, B, MESH, D, AD, G, R, CFG, INFOGR, AUX) |
subroutine gracjg | ( | type(bief_obj), intent(inout) | X, |
type(bief_obj), intent(in) | A, | ||
type(bief_obj), intent(inout) | B, | ||
type(bief_mesh), intent(inout) | MESH, | ||
type(bief_obj), intent(inout) | D, | ||
type(bief_obj), intent(inout) | AD, | ||
type(bief_obj), intent(inout) | G, | ||
type(bief_obj), intent(inout) | R, | ||
type(slvcfg), intent(inout) | CFG, | ||
logical, intent(in) | INFOGR, | ||
type(bief_obj), intent(inout) | AUX | ||
) |
[in,out] | cfg | [in] A Matrix of the system |
[in,out] | AD | Work array: matrice a multiplied by d. |
[in] | AUX | Matrix for preconditioning. |
[in] | B | Right-hand side of the system |
[in] | CFG | Structure of solver configuration |
[in,out] | D | Work array: direction of descent. |
[in,out] | G | Descent gradient. |
[in] | INFOGR | If yes, print a log. |
[in] | MESH | Mesh structure. |
[in,out] | R | Residual (may be in the same memory space as GRADIENT DEPENDING ON CONDITIONING) |
[in,out] | X | Initial value, then solution |
XADR(1)PR = -1.1D0
Definition at line 7 of file gracjg.F.