Go to the source code of this file.
|
subroutine | ad_solve (X, A, B, TB, CFG, INFOGR, MESH, AUX) |
|
recursive subroutine | ad_t1x_set_bief_obj (TGT, TWHAT, SRC, SWHAT, RECLVL) |
|
recursive subroutine | ad_t1x_set_int_bief_obj (TGT, WHAT, VAL, RECLVL) |
|
recursive subroutine | ad_deep_copy_bief_obj (TGT, SRC, SCNT, RECLVL) |
|
recursive subroutine | ad_print_bief_obj (TGT, SCNT, RECLVL, MSG, FIL) |
|
recursive subroutine | ad_diff_int_print_bief_obj (TGTA, WHTA, PVAL, SCNT, RECLVL, MSG, FIL) |
|
recursive subroutine | ad_diff_print_bief_obj (TGTA, WHTA, TGTB, WHTB, SCNT, RECLVL, MSG, FIL) |
|
◆ ad_deep_copy_bief_obj()
recursive subroutine ad_solve::ad_deep_copy_bief_obj |
( |
type(bief_obj), intent(inout) |
TGT, |
|
|
type(bief_obj), intent(in) |
SRC, |
|
|
integer, intent(in) |
SCNT, |
|
|
integer, intent(in) |
RECLVL |
|
) |
| |
◆ ad_diff_int_print_bief_obj()
recursive subroutine ad_solve::ad_diff_int_print_bief_obj |
( |
type(bief_obj), intent(in) |
TGTA, |
|
|
integer, intent(in) |
WHTA, |
|
|
integer, intent(in) |
PVAL, |
|
|
integer, intent(in) |
SCNT, |
|
|
integer, intent(in) |
RECLVL, |
|
|
character(len=*) |
MSG, |
|
|
character(len=*) |
FIL |
|
) |
| |
◆ ad_diff_print_bief_obj()
recursive subroutine ad_solve::ad_diff_print_bief_obj |
( |
type(bief_obj), intent(in) |
TGTA, |
|
|
integer, intent(in) |
WHTA, |
|
|
type(bief_obj), intent(in) |
TGTB, |
|
|
integer, intent(in) |
WHTB, |
|
|
integer, intent(in) |
SCNT, |
|
|
integer, intent(in) |
RECLVL, |
|
|
character(len=*) |
MSG, |
|
|
character(len=*) |
FIL |
|
) |
| |
◆ ad_print_bief_obj()
recursive subroutine ad_solve::ad_print_bief_obj |
( |
type(bief_obj), intent(in) |
TGT, |
|
|
integer, intent(in) |
SCNT, |
|
|
integer, intent(in) |
RECLVL, |
|
|
character(len=*) |
MSG, |
|
|
character(len=*) |
FIL |
|
) |
| |
◆ ad_solve()
subroutine ad_solve |
( |
type(bief_obj), intent(inout), target |
X, |
|
|
type(bief_obj), intent(inout) |
A, |
|
|
type(bief_obj), intent(inout), target |
B, |
|
|
type(bief_obj), intent(inout) |
TB, |
|
|
type(slvcfg), intent(inout) |
CFG, |
|
|
logical, intent(in) |
INFOGR, |
|
|
type(bief_mesh), intent(inout) |
MESH, |
|
|
type(bief_obj), intent(inout) |
AUX |
|
) |
| |
- Parameters
-
[in,out] | cfg | [in] A Matrix of the system (or block of matrices) |
[in] | AUX | Matrix for preconditioning. |
[in] | B | Right-hand side of the system |
[in] | CFG | Structure of solver configuration CFGKRYLOV IS USED ONLY IF CFGSLV = 7 (GMRES) |
[in] | INFOGR | If yes, print a log. |
[in] | MESH | Mesh structure. |
[in] | TB | Block of vectors with at least MAX(7,2+2*CFGKRYLOV)*S VECTORS, S IS 1 IF A IS A MATRIX, 2 IF A BLOCK OF 4 MATRICES AND 3 IF A BLOCK OF 9. |
[in,out] | X | Initial value, then solution |
Definition at line 33 of file ad_solve.F.
◆ ad_t1x_set_bief_obj()
recursive subroutine ad_solve::ad_t1x_set_bief_obj |
( |
type(bief_obj), intent(inout) |
TGT, |
|
|
integer, intent(in) |
TWHAT, |
|
|
type(bief_obj), intent(in) |
SRC, |
|
|
integer, intent(in) |
SWHAT, |
|
|
integer, intent(in) |
RECLVL |
|
) |
| |
◆ ad_t1x_set_int_bief_obj()
recursive subroutine ad_solve::ad_t1x_set_int_bief_obj |
( |
type(bief_obj), intent(inout) |
TGT, |
|
|
integer, intent(in) |
WHAT, |
|
|
integer, intent(in) |
VAL, |
|
|
integer, intent(in) |
RECLVL |
|
) |
| |