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

Go to the source code of this file.

Functions/Subroutines

subroutine fropro (NBOR, IKLE, NELEM, NELMAX, NPOIN, NPMAX, NPTFR, IELM, IKLEM1, LIMVOI, OPTASS, PRODUC, MXPTVS, T1, GLOSEG, SIZGLO, NSEG)
 

Function/Subroutine Documentation

◆ fropro()

subroutine fropro ( integer, dimension(*), intent(in)  NBOR,
integer, dimension(nelmax,*), intent(in)  IKLE,
integer, intent(in)  NELEM,
integer, intent(in)  NELMAX,
integer, intent(in)  NPOIN,
integer, intent(in)  NPMAX,
integer, intent(in)  NPTFR,
integer, intent(in)  IELM,
integer, dimension(npmax,mxptvs,4,2), intent(out)  IKLEM1,
integer, dimension(11,2), intent(out)  LIMVOI,
integer, intent(in)  OPTASS,
integer, intent(in)  PRODUC,
integer, intent(in)  MXPTVS,
integer, dimension(npoin), intent(out)  T1,
integer, dimension(sizglo,2), intent(in)  GLOSEG,
integer, intent(in)  SIZGLO,
integer, intent(in)  NSEG 
)
Parameters
[in]nelmaxGLOSEG First and second point of segments
[in]IELMType of element. 11 : TRIANGLES. 21 : QUADRANGLES.
[in]IKLEConnectivity table.
[out]IKLEM1Various addresses in off-diagonal part OF A MATRIX
[out]LIMVOILimvoi(k,1) : beginning of series with k neighbours LIMVOI(K,2) : END OF SERIES WITH K NEIGHBOURS
[in]MXPTVSMaximum number of neighbours of a point
[in]NBORGlobal number of boundary points
[in]NELEMNumber of elements
[in]NELMAXMaximum number of elements
[in]NPMAXMaximum number of points
[in]NPOINNumber of points
[in]NPTFRNumber of boundary points
[in]NSEGNumber of segments
[in]OPTASSOption of matrix storage 1: ELEMENT PER ELEMENT 3: EDGE-BASED
[in]PRODUCChoice of matrix-vector product 1: NORMAL 2: FRONTAL
[in]SIZGLOFirst dimension of gloseg
[in]T1Integer work array
[in]npmaxGLOSEG First and second point of segments
[in]IELMType of element. 11 : TRIANGLES. 21 : QUADRANGLES.
[in]IKLEConnectivity table.
[out]IKLEM1Various addresses in off-diagonal part OF A MATRIX
[out]LIMVOILimvoi(k,1) : beginning of series with k neighbours LIMVOI(K,2) : END OF SERIES WITH K NEIGHBOURS
[in]MXPTVSMaximum number of neighbours of a point
[in]NBORGlobal number of boundary points
[in]NELEMNumber of elements
[in]NELMAXMaximum number of elements
[in]NPMAXMaximum number of points
[in]NPOINNumber of points
[in]NPTFRNumber of boundary points
[in]NSEGNumber of segments
[in]OPTASSOption of matrix storage 1: ELEMENT PER ELEMENT 3: EDGE-BASED
[in]PRODUCChoice of matrix-vector product 1: NORMAL 2: FRONTAL
[in]SIZGLOFirst dimension of gloseg
[in]T1Integer work array
[in]mxptvsGLOSEG First and second point of segments
[in]IELMType of element. 11 : TRIANGLES. 21 : QUADRANGLES.
[in]IKLEConnectivity table.
[out]IKLEM1Various addresses in off-diagonal part OF A MATRIX
[out]LIMVOILimvoi(k,1) : beginning of series with k neighbours LIMVOI(K,2) : END OF SERIES WITH K NEIGHBOURS
[in]MXPTVSMaximum number of neighbours of a point
[in]NBORGlobal number of boundary points
[in]NELEMNumber of elements
[in]NELMAXMaximum number of elements
[in]NPMAXMaximum number of points
[in]NPOINNumber of points
[in]NPTFRNumber of boundary points
[in]NSEGNumber of segments
[in]OPTASSOption of matrix storage 1: ELEMENT PER ELEMENT 3: EDGE-BASED
[in]PRODUCChoice of matrix-vector product 1: NORMAL 2: FRONTAL
[in]SIZGLOFirst dimension of gloseg
[in]T1Integer work array
[in]nelemGLOSEG First and second point of segments
[in]IELMType of element. 11 : TRIANGLES. 21 : QUADRANGLES.
[in]IKLEConnectivity table.
[out]IKLEM1Various addresses in off-diagonal part OF A MATRIX
[out]LIMVOILimvoi(k,1) : beginning of series with k neighbours LIMVOI(K,2) : END OF SERIES WITH K NEIGHBOURS
[in]MXPTVSMaximum number of neighbours of a point
[in]NBORGlobal number of boundary points
[in]NELEMNumber of elements
[in]NELMAXMaximum number of elements
[in]NPMAXMaximum number of points
[in]NPOINNumber of points
[in]NPTFRNumber of boundary points
[in]NSEGNumber of segments
[in]OPTASSOption of matrix storage 1: ELEMENT PER ELEMENT 3: EDGE-BASED
[in]PRODUCChoice of matrix-vector product 1: NORMAL 2: FRONTAL
[in]SIZGLOFirst dimension of gloseg
[in]T1Integer work array

Definition at line 9 of file fropro.f.

+ Here is the caller graph for this function: