Go to the source code of this file.
Functions/Subroutines | |
| subroutine | diri01 (F, S, SM, FBOR, LIMDIR, WORK1, WORK2, MESH, KDIR, MSK, MASKPT) |
Function/Subroutine Documentation
◆ diri01()
| subroutine diri01 | ( | type(bief_obj), intent(inout) | F, |
| type(bief_obj), intent(inout) | S, | ||
| type(bief_obj), intent(inout) | SM, | ||
| type(bief_obj), intent(in) | FBOR, | ||
| integer, dimension(*), intent(in) | LIMDIR, | ||
| type(bief_obj), intent(inout) | WORK1, | ||
| type(bief_obj), intent(inout) | WORK2, | ||
| type(bief_mesh), intent(inout) | MESH, | ||
| integer, intent(in) | KDIR, | ||
| logical, intent(in) | MSK, | ||
| type(bief_obj), intent(in) | MASKPT | ||
| ) |
- Parameters
-
[in,out] f [in, out] F Values at time n+1 and initialisation [in] FBOR Dirichlet boundary conditions [in] KDIR Convention for dirichlet boundary conditions [in] LIMDIR Types of boundary conditions IF LIMDIR(K) = KDIR LE 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,out] S Matrix of the linear system [in] SM Right hand side [in,out] WORK1 Work array [in,out] WORK2 Work array [in,out] s [in, out] F Values at time n+1 and initialisation [in] FBOR Dirichlet boundary conditions [in] KDIR Convention for dirichlet boundary conditions [in] LIMDIR Types of boundary conditions IF LIMDIR(K) = KDIR LE 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,out] S Matrix of the linear system [in] SM Right hand side [in,out] WORK1 Work array [in,out] WORK2 Work array [in,out] sm [in, out] F Values at time n+1 and initialisation [in] FBOR Dirichlet boundary conditions [in] KDIR Convention for dirichlet boundary conditions [in] LIMDIR Types of boundary conditions IF LIMDIR(K) = KDIR LE 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,out] S Matrix of the linear system [in] SM Right hand side [in,out] WORK1 Work array [in,out] WORK2 Work array [in,out] work1 [in, out] F Values at time n+1 and initialisation [in] FBOR Dirichlet boundary conditions [in] KDIR Convention for dirichlet boundary conditions [in] LIMDIR Types of boundary conditions IF LIMDIR(K) = KDIR LE 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,out] S Matrix of the linear system [in] SM Right hand side [in,out] WORK1 Work array [in,out] WORK2 Work array [in,out] work2 [in, out] F Values at time n+1 and initialisation [in] FBOR Dirichlet boundary conditions [in] KDIR Convention for dirichlet boundary conditions [in] LIMDIR Types of boundary conditions IF LIMDIR(K) = KDIR LE 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,out] S Matrix of the linear system [in] SM Right hand side [in,out] WORK1 Work array [in,out] WORK2 Work array
Definition at line 7 of file diri01.f.
Here is the call graph for this function: Here is the caller graph for this function: