The TELEMAC-MASCARET system  trunk
Functions/Subroutines
asmvec.f File Reference

Go to the source code of this file.

Functions/Subroutines

subroutine asmvec (X, IKLE, NPOIN, NELEM, NELMAX, NDP, W, INIT, LV)
 

Function/Subroutine Documentation

◆ asmvec()

subroutine asmvec ( double precision, dimension(npoin), intent(inout)  X,
integer, dimension(nelmax,ndp), intent(in)  IKLE,
integer, intent(in)  NPOIN,
integer, intent(in)  NELEM,
integer, intent(in)  NELMAX,
integer, intent(in)  NDP,
double precision, dimension(nelmax,ndp), intent(in)  W,
logical, intent(in)  INIT,
integer, intent(in)  LV 
)
Parameters
[in]nelmaxIKLE Connectivity table
[in]INITLogical : if true x is initialised to 0.
[in]LVVector length of the computer
[in]NDPSecond dimension of ikle
[in]NELEMNumber of elements in the mesh
[in]NELMAXFirst dimension of ikle and w.
[in]NPOINNumber of points in x
[in]WWork array with a non assembled form of the RESULT W HAS DIMENSION NELMAX * NDP(IELM) NDP IS THE NUMBER OF POINTS IN THE ELEMENT
[in,out]XAssembled vector
[in]npoinIKLE Connectivity table
[in]INITLogical : if true x is initialised to 0.
[in]LVVector length of the computer
[in]NDPSecond dimension of ikle
[in]NELEMNumber of elements in the mesh
[in]NELMAXFirst dimension of ikle and w.
[in]NPOINNumber of points in x
[in]WWork array with a non assembled form of the RESULT W HAS DIMENSION NELMAX * NDP(IELM) NDP IS THE NUMBER OF POINTS IN THE ELEMENT
[in,out]XAssembled vector
[in]nelemIKLE Connectivity table
[in]INITLogical : if true x is initialised to 0.
[in]LVVector length of the computer
[in]NDPSecond dimension of ikle
[in]NELEMNumber of elements in the mesh
[in]NELMAXFirst dimension of ikle and w.
[in]NPOINNumber of points in x
[in]WWork array with a non assembled form of the RESULT W HAS DIMENSION NELMAX * NDP(IELM) NDP IS THE NUMBER OF POINTS IN THE ELEMENT
[in,out]XAssembled vector
[in]ndpIKLE Connectivity table
[in]INITLogical : if true x is initialised to 0.
[in]LVVector length of the computer
[in]NDPSecond dimension of ikle
[in]NELEMNumber of elements in the mesh
[in]NELMAXFirst dimension of ikle and w.
[in]NPOINNumber of points in x
[in]WWork array with a non assembled form of the RESULT W HAS DIMENSION NELMAX * NDP(IELM) NDP IS THE NUMBER OF POINTS IN THE ELEMENT
[in,out]XAssembled vector
[in]lvIKLE Connectivity table
[in]INITLogical : if true x is initialised to 0.
[in]LVVector length of the computer
[in]NDPSecond dimension of ikle
[in]NELEMNumber of elements in the mesh
[in]NELMAXFirst dimension of ikle and w.
[in]NPOINNumber of points in x
[in]WWork array with a non assembled form of the RESULT W HAS DIMENSION NELMAX * NDP(IELM) NDP IS THE NUMBER OF POINTS IN THE ELEMENT
[in,out]XAssembled vector

Definition at line 7 of file asmvec.f.

+ Here is the call graph for this function:
+ Here is the caller graph for this function: