Go to the source code of this file.
Functions/Subroutines | |
| subroutine | diri09 (X1, X2, X3, A11, A12, A13, A21, A22, A23, A31, A32, A33, SM1, SM2, SM3, T1, T2, T3, T4, T5, T6, XBOR1, XBOR2, XBOR3, LIDIR1, LIDIR2, LIDIR3, MESH, KDIR, MSK, MASKPT) |
Function/Subroutine Documentation
◆ diri09()
| subroutine diri09 | ( | type(bief_obj), intent(inout) | X1, |
| type(bief_obj), intent(inout) | X2, | ||
| type(bief_obj), intent(inout) | X3, | ||
| type(bief_obj), intent(inout) | A11, | ||
| type(bief_obj), intent(inout) | A12, | ||
| type(bief_obj), intent(inout) | A13, | ||
| type(bief_obj), intent(inout) | A21, | ||
| type(bief_obj), intent(inout) | A22, | ||
| type(bief_obj), intent(inout) | A23, | ||
| type(bief_obj), intent(inout) | A31, | ||
| type(bief_obj), intent(inout) | A32, | ||
| type(bief_obj), intent(inout) | A33, | ||
| type(bief_obj), intent(inout) | SM1, | ||
| type(bief_obj), intent(inout) | SM2, | ||
| type(bief_obj), intent(inout) | SM3, | ||
| 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(inout) | T5, | ||
| type(bief_obj), intent(inout) | T6, | ||
| type(bief_obj), intent(in) | XBOR1, | ||
| type(bief_obj), intent(in) | XBOR2, | ||
| type(bief_obj), intent(in) | XBOR3, | ||
| integer, dimension(*), intent(in) | LIDIR1, | ||
| integer, dimension(*), intent(in) | LIDIR2, | ||
| integer, dimension(*), intent(in) | LIDIR3, | ||
| 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 3x3 linear system [in,out] A13 Matrix in the 3x3 linear system [in,out] A21 Matrix in the 3x3 linear system [in,out] A22 Matrix in the 3x3 linear system [in,out] A23 Matrix in the 3x3 linear system [in,out] A31 Matrix in the 3x3 linear system [in,out] A32 Matrix in the 3x3 linear system [in,out] A33 Matrix in the 3x3 linear system [in] KDIR Convention for dirichlet boundary conditions [in] LIDIR1 Types of boundary conditions for variable 1 IF LIMDIR(K) = KDIR LE 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] LIDIR2 Types of boundary conditions for variable 2 IF LIMDIR(K) = KDIR THE KTH BOUNDARY POINT IS OF DIRICHLET TYPE. [in] LIDIR3 Types of boundary conditions for variable 3 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] SM3 Third 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,out] T5 Work double precision array in a bief_obj [in,out] T6 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] XBOR3 Dirichlet boundary conditions of variable 3 [in,out] x2 [in, out] A12 Matrix in the 3x3 linear system [in,out] A13 Matrix in the 3x3 linear system [in,out] A21 Matrix in the 3x3 linear system [in,out] A22 Matrix in the 3x3 linear system [in,out] A23 Matrix in the 3x3 linear system [in,out] A31 Matrix in the 3x3 linear system [in,out] A32 Matrix in the 3x3 linear system [in,out] A33 Matrix in the 3x3 linear system [in] KDIR Convention for dirichlet boundary conditions [in] LIDIR1 Types of boundary conditions for variable 1 IF LIMDIR(K) = KDIR LE 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] LIDIR2 Types of boundary conditions for variable 2 IF LIMDIR(K) = KDIR THE KTH BOUNDARY POINT IS OF DIRICHLET TYPE. [in] LIDIR3 Types of boundary conditions for variable 3 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] SM3 Third 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,out] T5 Work double precision array in a bief_obj [in,out] T6 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] XBOR3 Dirichlet boundary conditions of variable 3 [in,out] x3 [in, out] A12 Matrix in the 3x3 linear system [in,out] A13 Matrix in the 3x3 linear system [in,out] A21 Matrix in the 3x3 linear system [in,out] A22 Matrix in the 3x3 linear system [in,out] A23 Matrix in the 3x3 linear system [in,out] A31 Matrix in the 3x3 linear system [in,out] A32 Matrix in the 3x3 linear system [in,out] A33 Matrix in the 3x3 linear system [in] KDIR Convention for dirichlet boundary conditions [in] LIDIR1 Types of boundary conditions for variable 1 IF LIMDIR(K) = KDIR LE 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] LIDIR2 Types of boundary conditions for variable 2 IF LIMDIR(K) = KDIR THE KTH BOUNDARY POINT IS OF DIRICHLET TYPE. [in] LIDIR3 Types of boundary conditions for variable 3 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] SM3 Third 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,out] T5 Work double precision array in a bief_obj [in,out] T6 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] XBOR3 Dirichlet boundary conditions of variable 3 [in,out] sm1 [in, out] A12 Matrix in the 3x3 linear system [in,out] A13 Matrix in the 3x3 linear system [in,out] A21 Matrix in the 3x3 linear system [in,out] A22 Matrix in the 3x3 linear system [in,out] A23 Matrix in the 3x3 linear system [in,out] A31 Matrix in the 3x3 linear system [in,out] A32 Matrix in the 3x3 linear system [in,out] A33 Matrix in the 3x3 linear system [in] KDIR Convention for dirichlet boundary conditions [in] LIDIR1 Types of boundary conditions for variable 1 IF LIMDIR(K) = KDIR LE 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] LIDIR2 Types of boundary conditions for variable 2 IF LIMDIR(K) = KDIR THE KTH BOUNDARY POINT IS OF DIRICHLET TYPE. [in] LIDIR3 Types of boundary conditions for variable 3 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] SM3 Third 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,out] T5 Work double precision array in a bief_obj [in,out] T6 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] XBOR3 Dirichlet boundary conditions of variable 3 [in,out] sm2 [in, out] A12 Matrix in the 3x3 linear system [in,out] A13 Matrix in the 3x3 linear system [in,out] A21 Matrix in the 3x3 linear system [in,out] A22 Matrix in the 3x3 linear system [in,out] A23 Matrix in the 3x3 linear system [in,out] A31 Matrix in the 3x3 linear system [in,out] A32 Matrix in the 3x3 linear system [in,out] A33 Matrix in the 3x3 linear system [in] KDIR Convention for dirichlet boundary conditions [in] LIDIR1 Types of boundary conditions for variable 1 IF LIMDIR(K) = KDIR LE 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] LIDIR2 Types of boundary conditions for variable 2 IF LIMDIR(K) = KDIR THE KTH BOUNDARY POINT IS OF DIRICHLET TYPE. [in] LIDIR3 Types of boundary conditions for variable 3 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] SM3 Third 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,out] T5 Work double precision array in a bief_obj [in,out] T6 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] XBOR3 Dirichlet boundary conditions of variable 3 [in,out] sm3 [in, out] A12 Matrix in the 3x3 linear system [in,out] A13 Matrix in the 3x3 linear system [in,out] A21 Matrix in the 3x3 linear system [in,out] A22 Matrix in the 3x3 linear system [in,out] A23 Matrix in the 3x3 linear system [in,out] A31 Matrix in the 3x3 linear system [in,out] A32 Matrix in the 3x3 linear system [in,out] A33 Matrix in the 3x3 linear system [in] KDIR Convention for dirichlet boundary conditions [in] LIDIR1 Types of boundary conditions for variable 1 IF LIMDIR(K) = KDIR LE 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] LIDIR2 Types of boundary conditions for variable 2 IF LIMDIR(K) = KDIR THE KTH BOUNDARY POINT IS OF DIRICHLET TYPE. [in] LIDIR3 Types of boundary conditions for variable 3 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] SM3 Third 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,out] T5 Work double precision array in a bief_obj [in,out] T6 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] XBOR3 Dirichlet boundary conditions of variable 3
Definition at line 11 of file diri09.f.
Here is the call graph for this function: Here is the caller graph for this function: