Go to the source code of this file.
Functions/Subroutines | |
| subroutine | diri04 (X1, X2, A11, A12, A21, A22, SM1, SM2, T1, T2, T3, T4, XBOR1, XBOR2, LIDIR1, LIDIR2, MESH, KDIR, MSK, MASKPT) |
Function/Subroutine Documentation
◆ diri04()
| subroutine diri04 | ( | type(bief_obj), intent(inout) | X1, |
| type(bief_obj), intent(inout) | X2, | ||
| type(bief_obj), intent(inout) | A11, | ||
| type(bief_obj), intent(inout) | A12, | ||
| type(bief_obj), intent(inout) | A21, | ||
| type(bief_obj), intent(inout) | A22, | ||
| type(bief_obj), intent(inout) | SM1, | ||
| type(bief_obj), intent(inout) | SM2, | ||
| type(bief_obj), intent(inout) | T1, | ||
| type(bief_obj), intent(inout) | T2, | ||
| type(bief_obj), intent(inout) | T3, | ||
| type(bief_obj), intent(inout) | T4, | ||
| type(bief_obj), intent(in) | XBOR1, | ||
| type(bief_obj), intent(in) | XBOR2, | ||
| integer, dimension(*), intent(in) | LIDIR1, | ||
| integer, dimension(*), intent(in) | LIDIR2, | ||
| type(bief_mesh), intent(inout) | MESH, | ||
| integer, intent(in) | KDIR, | ||
| logical, intent(in) | MSK, | ||
| type(bief_obj), intent(in) | MASKPT | ||
| ) |
- Parameters
-
[in,out] x1 [in, out] A12 Matrix in the 2x2 linear system [in,out] A12 Matrix in the 2x2 linear system [in,out] A21 Matrix in the 2x2 linear system [in,out] A22 Matrix in the 2x2 linear system [in] KDIR Convention for dirichlet boundary conditions [in] LIDIR1 Types of boundary conditions for variable 1 IF LIMDIR(K) = KDIR THE KTH BOUNDARY POINT IS OF DIRICHLET TYPE. [in] LIDIR2 Types of boundary conditions for variable 2 IF LIMDIR(K) = KDIR THE KTH BOUNDARY POINT IS OF DIRICHLET TYPE. [in] MASKPT Masking per point. =1. : NORMAL =0. : MASKED [in] MESH Mesh structure [in] MSK If yes, there is masked elements. [in] SM1 First right-hand side of the system. [in] SM2 Second right-hand side of the system. [in,out] T1 Work double precision array in a bief_obj [in,out] T2 Work double precision array in a bief_obj [in,out] T3 Work double precision array in a bief_obj [in,out] T4 Work double precision array in a bief_obj [in] XBOR1 Dirichlet boundary conditions of variable 1 [in] XBOR2 Dirichlet boundary conditions of variable 2 [in,out] x2 [in, out] A12 Matrix in the 2x2 linear system [in,out] A12 Matrix in the 2x2 linear system [in,out] A21 Matrix in the 2x2 linear system [in,out] A22 Matrix in the 2x2 linear system [in] KDIR Convention for dirichlet boundary conditions [in] LIDIR1 Types of boundary conditions for variable 1 IF LIMDIR(K) = KDIR THE KTH BOUNDARY POINT IS OF DIRICHLET TYPE. [in] LIDIR2 Types of boundary conditions for variable 2 IF LIMDIR(K) = KDIR THE KTH BOUNDARY POINT IS OF DIRICHLET TYPE. [in] MASKPT Masking per point. =1. : NORMAL =0. : MASKED [in] MESH Mesh structure [in] MSK If yes, there is masked elements. [in] SM1 First right-hand side of the system. [in] SM2 Second right-hand side of the system. [in,out] T1 Work double precision array in a bief_obj [in,out] T2 Work double precision array in a bief_obj [in,out] T3 Work double precision array in a bief_obj [in,out] T4 Work double precision array in a bief_obj [in] XBOR1 Dirichlet boundary conditions of variable 1 [in] XBOR2 Dirichlet boundary conditions of variable 2 [in,out] sm1 [in, out] A12 Matrix in the 2x2 linear system [in,out] A12 Matrix in the 2x2 linear system [in,out] A21 Matrix in the 2x2 linear system [in,out] A22 Matrix in the 2x2 linear system [in] KDIR Convention for dirichlet boundary conditions [in] LIDIR1 Types of boundary conditions for variable 1 IF LIMDIR(K) = KDIR THE KTH BOUNDARY POINT IS OF DIRICHLET TYPE. [in] LIDIR2 Types of boundary conditions for variable 2 IF LIMDIR(K) = KDIR THE KTH BOUNDARY POINT IS OF DIRICHLET TYPE. [in] MASKPT Masking per point. =1. : NORMAL =0. : MASKED [in] MESH Mesh structure [in] MSK If yes, there is masked elements. [in] SM1 First right-hand side of the system. [in] SM2 Second right-hand side of the system. [in,out] T1 Work double precision array in a bief_obj [in,out] T2 Work double precision array in a bief_obj [in,out] T3 Work double precision array in a bief_obj [in,out] T4 Work double precision array in a bief_obj [in] XBOR1 Dirichlet boundary conditions of variable 1 [in] XBOR2 Dirichlet boundary conditions of variable 2 [in,out] sm2 [in, out] A12 Matrix in the 2x2 linear system [in,out] A12 Matrix in the 2x2 linear system [in,out] A21 Matrix in the 2x2 linear system [in,out] A22 Matrix in the 2x2 linear system [in] KDIR Convention for dirichlet boundary conditions [in] LIDIR1 Types of boundary conditions for variable 1 IF LIMDIR(K) = KDIR THE KTH BOUNDARY POINT IS OF DIRICHLET TYPE. [in] LIDIR2 Types of boundary conditions for variable 2 IF LIMDIR(K) = KDIR THE KTH BOUNDARY POINT IS OF DIRICHLET TYPE. [in] MASKPT Masking per point. =1. : NORMAL =0. : MASKED [in] MESH Mesh structure [in] MSK If yes, there is masked elements. [in] SM1 First right-hand side of the system. [in] SM2 Second right-hand side of the system. [in,out] T1 Work double precision array in a bief_obj [in,out] T2 Work double precision array in a bief_obj [in,out] T3 Work double precision array in a bief_obj [in,out] T4 Work double precision array in a bief_obj [in] XBOR1 Dirichlet boundary conditions of variable 1 [in] XBOR2 Dirichlet boundary conditions of variable 2 [in,out] t1 [in, out] A12 Matrix in the 2x2 linear system [in,out] A12 Matrix in the 2x2 linear system [in,out] A21 Matrix in the 2x2 linear system [in,out] A22 Matrix in the 2x2 linear system [in] KDIR Convention for dirichlet boundary conditions [in] LIDIR1 Types of boundary conditions for variable 1 IF LIMDIR(K) = KDIR THE KTH BOUNDARY POINT IS OF DIRICHLET TYPE. [in] LIDIR2 Types of boundary conditions for variable 2 IF LIMDIR(K) = KDIR THE KTH BOUNDARY POINT IS OF DIRICHLET TYPE. [in] MASKPT Masking per point. =1. : NORMAL =0. : MASKED [in] MESH Mesh structure [in] MSK If yes, there is masked elements. [in] SM1 First right-hand side of the system. [in] SM2 Second right-hand side of the system. [in,out] T1 Work double precision array in a bief_obj [in,out] T2 Work double precision array in a bief_obj [in,out] T3 Work double precision array in a bief_obj [in,out] T4 Work double precision array in a bief_obj [in] XBOR1 Dirichlet boundary conditions of variable 1 [in] XBOR2 Dirichlet boundary conditions of variable 2 [in,out] t2 [in, out] A12 Matrix in the 2x2 linear system [in,out] A12 Matrix in the 2x2 linear system [in,out] A21 Matrix in the 2x2 linear system [in,out] A22 Matrix in the 2x2 linear system [in] KDIR Convention for dirichlet boundary conditions [in] LIDIR1 Types of boundary conditions for variable 1 IF LIMDIR(K) = KDIR THE KTH BOUNDARY POINT IS OF DIRICHLET TYPE. [in] LIDIR2 Types of boundary conditions for variable 2 IF LIMDIR(K) = KDIR THE KTH BOUNDARY POINT IS OF DIRICHLET TYPE. [in] MASKPT Masking per point. =1. : NORMAL =0. : MASKED [in] MESH Mesh structure [in] MSK If yes, there is masked elements. [in] SM1 First right-hand side of the system. [in] SM2 Second right-hand side of the system. [in,out] T1 Work double precision array in a bief_obj [in,out] T2 Work double precision array in a bief_obj [in,out] T3 Work double precision array in a bief_obj [in,out] T4 Work double precision array in a bief_obj [in] XBOR1 Dirichlet boundary conditions of variable 1 [in] XBOR2 Dirichlet boundary conditions of variable 2 [in,out] t3 [in, out] A12 Matrix in the 2x2 linear system [in,out] A12 Matrix in the 2x2 linear system [in,out] A21 Matrix in the 2x2 linear system [in,out] A22 Matrix in the 2x2 linear system [in] KDIR Convention for dirichlet boundary conditions [in] LIDIR1 Types of boundary conditions for variable 1 IF LIMDIR(K) = KDIR THE KTH BOUNDARY POINT IS OF DIRICHLET TYPE. [in] LIDIR2 Types of boundary conditions for variable 2 IF LIMDIR(K) = KDIR THE KTH BOUNDARY POINT IS OF DIRICHLET TYPE. [in] MASKPT Masking per point. =1. : NORMAL =0. : MASKED [in] MESH Mesh structure [in] MSK If yes, there is masked elements. [in] SM1 First right-hand side of the system. [in] SM2 Second right-hand side of the system. [in,out] T1 Work double precision array in a bief_obj [in,out] T2 Work double precision array in a bief_obj [in,out] T3 Work double precision array in a bief_obj [in,out] T4 Work double precision array in a bief_obj [in] XBOR1 Dirichlet boundary conditions of variable 1 [in] XBOR2 Dirichlet boundary conditions of variable 2 [in,out] t4 [in, out] A12 Matrix in the 2x2 linear system [in,out] A12 Matrix in the 2x2 linear system [in,out] A21 Matrix in the 2x2 linear system [in,out] A22 Matrix in the 2x2 linear system [in] KDIR Convention for dirichlet boundary conditions [in] LIDIR1 Types of boundary conditions for variable 1 IF LIMDIR(K) = KDIR THE KTH BOUNDARY POINT IS OF DIRICHLET TYPE. [in] LIDIR2 Types of boundary conditions for variable 2 IF LIMDIR(K) = KDIR THE KTH BOUNDARY POINT IS OF DIRICHLET TYPE. [in] MASKPT Masking per point. =1. : NORMAL =0. : MASKED [in] MESH Mesh structure [in] MSK If yes, there is masked elements. [in] SM1 First right-hand side of the system. [in] SM2 Second right-hand side of the system. [in,out] T1 Work double precision array in a bief_obj [in,out] T2 Work double precision array in a bief_obj [in,out] T3 Work double precision array in a bief_obj [in,out] T4 Work double precision array in a bief_obj [in] XBOR1 Dirichlet boundary conditions of variable 1 [in] XBOR2 Dirichlet boundary conditions of variable 2
Definition at line 8 of file diri04.f.
Here is the call graph for this function: Here is the caller graph for this function: