The TELEMAC-MASCARET system  trunk
puog1.f File Reference

Go to the source code of this file.


subroutine puog1 (X, A, B, DITR, MESH, COPY)

Function/Subroutine Documentation

◆ puog1()

subroutine puog1 ( type(bief_obj), intent(inout)  X,
type(bief_obj), intent(in)  A,
type(bief_obj), intent(inout)  B,
character(len=1), intent(in)  DITR,
type(bief_mesh), intent(inout)  MESH,
logical, intent(in)  COPY 
[in]ditr[out] A Matrix in ldu form
[out]BRight-hand side of the linear system to be solved
[in]COPYIf .true. b is copied into x to start with
[in]DITRCharacter, if 'd' : direct matrix a considered 'T' : TRANSPOSED MATRIX A CONSIDERED
[in]MESHMesh structure
[out]XSolution of the system ax = b

Definition at line 7 of file puog1.f.

+ Here is the call graph for this function:
+ Here is the caller graph for this function: