preverebe.f File Reference

Go to the source code of this file.

Functions/Subroutines
subroutine	preverebe (XAUX, AX, TYPDIA, TYPEXT, IKLE, NPOIN, NELEM, NELMAX, MESH, TYPEMESH)

Function/Subroutine Documentation

preverebe()

subroutine preverebe	(	double precision, dimension(npoin,*), intent(inout)	XAUX,
		double precision, dimension(nelmax,*), intent(in)	AX,
		character(len=1), intent(in)	TYPDIA,
		character(len=1), intent(in)	TYPEXT,
		integer, dimension(nelmax,6), intent(in)	IKLE,
		integer, intent(in)	NPOIN,
		integer, intent(in)	NELEM,
		integer, intent(in)	NELMAX,
		type(bief_mesh), intent(inout)	MESH,
		integer, intent(in)	TYPEMESH
	)

Parameters

[in]	nelem	AX Matrix off-diagonal terms
[in]	IKLE	Connectivity table.
[in]	MESH	Mesh structure
[in]	NELEM	Number of elements
[in]	NELMAX	Maximum number of elements
[in]	NPOIN	Number of points
[in]	TYPDIA	Type of diagonal: TYPDIA = 'Q' : ANY VALUE TYPDIA = 'I' : IDENTITY TYPDIA = '0' : ZERO
[in]	TYPEXT	Type of off-diagonal terms TYPEXT = 'Q' : ANY VALUE TYPEXT = 'S' : SYMMETRIC TYPEXT = '0' : ZERO
[in]	TYPEMESH	Type of mesh (40: prisms, 50: prisms cut into TETRAHEDRONS)
[out]	XAUX	Tridiagonal matrix
[in]	nelmax	AX Matrix off-diagonal terms
[in]	IKLE	Connectivity table.
[in]	MESH	Mesh structure
[in]	NELEM	Number of elements
[in]	NELMAX	Maximum number of elements
[in]	NPOIN	Number of points
[in]	TYPDIA	Type of diagonal: TYPDIA = 'Q' : ANY VALUE TYPDIA = 'I' : IDENTITY TYPDIA = '0' : ZERO
[in]	TYPEXT	Type of off-diagonal terms TYPEXT = 'Q' : ANY VALUE TYPEXT = 'S' : SYMMETRIC TYPEXT = '0' : ZERO
[in]	TYPEMESH	Type of mesh (40: prisms, 50: prisms cut into TETRAHEDRONS)
[out]	XAUX	Tridiagonal matrix
[in]	npoin	AX Matrix off-diagonal terms
[in]	IKLE	Connectivity table.
[in]	MESH	Mesh structure
[in]	NELEM	Number of elements
[in]	NELMAX	Maximum number of elements
[in]	NPOIN	Number of points
[in]	TYPDIA	Type of diagonal: TYPDIA = 'Q' : ANY VALUE TYPDIA = 'I' : IDENTITY TYPDIA = '0' : ZERO
[in]	TYPEXT	Type of off-diagonal terms TYPEXT = 'Q' : ANY VALUE TYPEXT = 'S' : SYMMETRIC TYPEXT = '0' : ZERO
[in]	TYPEMESH	Type of mesh (40: prisms, 50: prisms cut into TETRAHEDRONS)
[out]	XAUX	Tridiagonal matrix
[in]	typemesh	AX Matrix off-diagonal terms
[in]	IKLE	Connectivity table.
[in]	MESH	Mesh structure
[in]	NELEM	Number of elements
[in]	NELMAX	Maximum number of elements
[in]	NPOIN	Number of points
[in]	TYPDIA	Type of diagonal: TYPDIA = 'Q' : ANY VALUE TYPDIA = 'I' : IDENTITY TYPDIA = '0' : ZERO
[in]	TYPEXT	Type of off-diagonal terms TYPEXT = 'Q' : ANY VALUE TYPEXT = 'S' : SYMMETRIC TYPEXT = '0' : ZERO
[in]	TYPEMESH	Type of mesh (40: prisms, 50: prisms cut into TETRAHEDRONS)
[out]	XAUX	Tridiagonal matrix

Definition at line 7 of file preverebe.f.

Here is the call graph for this function:

Here is the caller graph for this function: