Go to the source code of this file.
Functions/Subroutines | |
| subroutine | char_weak (FTILD, FTILD_WEAK, SURFAC, IKLE, NPOIN, NELEM, NELMAX, NG, NGAUSS, MESH, T2, TB, AGGLO, IELM, NPLAN, Z, CV1, AM1, SLV, UNSV, LISTIN, SOLV) |
Function/Subroutine Documentation
◆ char_weak()
| subroutine char_weak | ( | type(bief_obj), intent(inout) | FTILD, |
| type(bief_obj), intent(in) | FTILD_WEAK, | ||
| double precision, dimension(nelmax), intent(in) | SURFAC, | ||
| integer, dimension(nelmax,3), intent(in) | IKLE, | ||
| integer, intent(in) | NPOIN, | ||
| integer, intent(in) | NELEM, | ||
| integer, intent(in) | NELMAX, | ||
| integer, intent(in) | NG, | ||
| integer, intent(in) | NGAUSS, | ||
| type(bief_mesh), intent(inout) | MESH, | ||
| type(bief_obj), intent(inout) | T2, | ||
| type(bief_obj), intent(inout) | TB, | ||
| double precision, intent(in) | AGGLO, | ||
| integer, intent(in) | IELM, | ||
| integer, intent(in) | NPLAN, | ||
| double precision, dimension(*), intent(in) | Z, | ||
| type(bief_obj), intent(inout) | CV1, | ||
| type(bief_obj), intent(inout) | AM1, | ||
| type(slvcfg), intent(inout) | SLV, | ||
| type(bief_obj), intent(in) | UNSV, | ||
| logical, intent(in) | LISTIN, | ||
| logical, intent(in) | SOLV | ||
| ) |
- Parameters
-
[in] nelem AM1 Bief_obj work matrix [in] CV1 Bief_obj work array [in] FTILD Block of results [in] FTILD_WEAK Block of results for advected gauss points [in] IELM Type of element [in] IKLE Connectivity table for all points [in] NELEM Nombre d'elements [in] NELMAX Nombre maximum d'elements [in] NG Total number of gauss points in the mesh [in] NGAUSS Number of gauss points per element [in] NPOIN Number of points in the mesh [in] SOLV If yes, solve the linear system [in] SURFAC Area of elements [in] Z Elevations of points in the mesh. [in] nelmax AM1 Bief_obj work matrix [in] CV1 Bief_obj work array [in] FTILD Block of results [in] FTILD_WEAK Block of results for advected gauss points [in] IELM Type of element [in] IKLE Connectivity table for all points [in] NELEM Nombre d'elements [in] NELMAX Nombre maximum d'elements [in] NG Total number of gauss points in the mesh [in] NGAUSS Number of gauss points per element [in] NPOIN Number of points in the mesh [in] SOLV If yes, solve the linear system [in] SURFAC Area of elements [in] Z Elevations of points in the mesh. [in] npoin AM1 Bief_obj work matrix [in] CV1 Bief_obj work array [in] FTILD Block of results [in] FTILD_WEAK Block of results for advected gauss points [in] IELM Type of element [in] IKLE Connectivity table for all points [in] NELEM Nombre d'elements [in] NELMAX Nombre maximum d'elements [in] NG Total number of gauss points in the mesh [in] NGAUSS Number of gauss points per element [in] NPOIN Number of points in the mesh [in] SOLV If yes, solve the linear system [in] SURFAC Area of elements [in] Z Elevations of points in the mesh. [in] ng AM1 Bief_obj work matrix [in] CV1 Bief_obj work array [in] FTILD Block of results [in] FTILD_WEAK Block of results for advected gauss points [in] IELM Type of element [in] IKLE Connectivity table for all points [in] NELEM Nombre d'elements [in] NELMAX Nombre maximum d'elements [in] NG Total number of gauss points in the mesh [in] NGAUSS Number of gauss points per element [in] NPOIN Number of points in the mesh [in] SOLV If yes, solve the linear system [in] SURFAC Area of elements [in] Z Elevations of points in the mesh. [in] ielm AM1 Bief_obj work matrix [in] CV1 Bief_obj work array [in] FTILD Block of results [in] FTILD_WEAK Block of results for advected gauss points [in] IELM Type of element [in] IKLE Connectivity table for all points [in] NELEM Nombre d'elements [in] NELMAX Nombre maximum d'elements [in] NG Total number of gauss points in the mesh [in] NGAUSS Number of gauss points per element [in] NPOIN Number of points in the mesh [in] SOLV If yes, solve the linear system [in] SURFAC Area of elements [in] Z Elevations of points in the mesh.
Definition at line 8 of file char_weak.F.
Here is the call graph for this function: Here is the caller graph for this function: