The TELEMAC-MASCARET system
trunk
|
Go to the source code of this file.
Functions/Subroutines | |
subroutine | mt12ac (A11, A12, A13, A14, A15, A16, A21, A22, A23, A24, A25, A26, A31, A32, A33, A34, A35, A36, XMUL, SF, SU, SV, F, U, V, XEL, YEL, SURFAC, IKLE1, IKLE2, IKLE3, IKLE4, IKLE5, IKLE6, NELEM, NELMAX, ICOORD) |
subroutine mt12ac | ( | double precision, dimension(*), intent(inout) | A11, |
double precision, dimension(*), intent(inout) | A12, | ||
double precision, dimension(*), intent(inout) | A13, | ||
double precision, dimension(*), intent(inout) | A14, | ||
double precision, dimension(*), intent(inout) | A15, | ||
double precision, dimension(*), intent(inout) | A16, | ||
double precision, dimension(*), intent(inout) | A21, | ||
double precision, dimension(*), intent(inout) | A22, | ||
double precision, dimension(*), intent(inout) | A23, | ||
double precision, dimension(*), intent(inout) | A24, | ||
double precision, dimension(*), intent(inout) | A25, | ||
double precision, dimension(*), intent(inout) | A26, | ||
double precision, dimension(*), intent(inout) | A31, | ||
double precision, dimension(*), intent(inout) | A32, | ||
double precision, dimension(*), intent(inout) | A33, | ||
double precision, dimension(*), intent(inout) | A34, | ||
double precision, dimension(*), intent(inout) | A35, | ||
double precision, dimension(*), intent(inout) | A36, | ||
double precision, intent(in) | XMUL, | ||
type(bief_obj), intent(in) | SF, | ||
type(bief_obj), intent(in) | SU, | ||
type(bief_obj), intent(in) | SV, | ||
double precision, dimension(*), intent(in) | F, | ||
double precision, dimension(*), intent(in) | U, | ||
double precision, dimension(*), intent(in) | V, | ||
double precision, dimension(nelmax,3), intent(in) | XEL, | ||
double precision, dimension(nelmax,3), intent(in) | YEL, | ||
double precision, dimension(nelmax), intent(in) | SURFAC, | ||
integer, dimension(nelmax), intent(in) | IKLE1, | ||
integer, dimension(nelmax), intent(in) | IKLE2, | ||
integer, dimension(nelmax), intent(in) | IKLE3, | ||
integer, dimension(nelmax), intent(in) | IKLE4, | ||
integer, dimension(nelmax), intent(in) | IKLE5, | ||
integer, dimension(nelmax), intent(in) | IKLE6, | ||
integer, intent(in) | NELEM, | ||
integer, intent(in) | NELMAX, | ||
integer, intent(in) | ICOORD | ||
) |
[in] | nelem | [out] A36 Elements of matrix |
[in] | F | Function used in the formula |
[in] | ICOORD | 1: derivative along x, 2: along y |
[in] | IKLE1 | First points of triangles |
[in] | IKLE2 | Second points of triangles |
[in] | IKLE3 | Third points of triangles |
[in] | IKLE4 | Quasi-bubble point |
[in] | NELEM | Number of elements |
[in] | NELMAX | Maximum number of elements |
[in] | SF | Structure of functions f |
[in] | SU | Bief_obj structure of u |
[in] | SURFAC | Area of triangles |
[in] | SV | Bief_obj structure of v |
[in] | U | Function u used in the formula |
[in] | V | Function v used in the formula |
[in] | XEL | Abscissae of points in the mesh, per element |
[in] | YEL | Ordinates of points in the mesh, per element |
[in] | XMUL | Multiplication factor |
[in] | nelmax | [out] A36 Elements of matrix |
[in] | F | Function used in the formula |
[in] | ICOORD | 1: derivative along x, 2: along y |
[in] | IKLE1 | First points of triangles |
[in] | IKLE2 | Second points of triangles |
[in] | IKLE3 | Third points of triangles |
[in] | IKLE4 | Quasi-bubble point |
[in] | NELEM | Number of elements |
[in] | NELMAX | Maximum number of elements |
[in] | SF | Structure of functions f |
[in] | SU | Bief_obj structure of u |
[in] | SURFAC | Area of triangles |
[in] | SV | Bief_obj structure of v |
[in] | U | Function u used in the formula |
[in] | V | Function v used in the formula |
[in] | XEL | Abscissae of points in the mesh, per element |
[in] | YEL | Ordinates of points in the mesh, per element |
[in] | XMUL | Multiplication factor |
[in] | icoord | [out] A36 Elements of matrix |
[in] | F | Function used in the formula |
[in] | ICOORD | 1: derivative along x, 2: along y |
[in] | IKLE1 | First points of triangles |
[in] | IKLE2 | Second points of triangles |
[in] | IKLE3 | Third points of triangles |
[in] | IKLE4 | Quasi-bubble point |
[in] | NELEM | Number of elements |
[in] | NELMAX | Maximum number of elements |
[in] | SF | Structure of functions f |
[in] | SU | Bief_obj structure of u |
[in] | SURFAC | Area of triangles |
[in] | SV | Bief_obj structure of v |
[in] | U | Function u used in the formula |
[in] | V | Function v used in the formula |
[in] | XEL | Abscissae of points in the mesh, per element |
[in] | YEL | Ordinates of points in the mesh, per element |
[in] | XMUL | Multiplication factor |
Definition at line 13 of file mt12ac.f.