Go to the source code of this file.
Functions/Subroutines | |
| subroutine | parini (NHP, NHM, INDPU, NPOIN2, NACHB, NPLAN, MESH, NB_NEIGHB, NB_NEIGHB_SEG, NELEM2, IFAPAR, MODASS) |
Function/Subroutine Documentation
◆ parini()
| subroutine parini | ( | integer, dimension(nbmaxdshare,nptir), intent(inout) | NHP, |
| integer, dimension(nbmaxdshare,nptir), intent(inout) | NHM, | ||
| integer, dimension(npoin2), intent(inout) | INDPU, | ||
| integer, intent(in) | NPOIN2, | ||
| integer, dimension(nbmaxnshare,nptir), intent(in) | NACHB, | ||
| integer, intent(in) | NPLAN, | ||
| type(bief_mesh), intent(inout) | MESH, | ||
| integer, intent(inout) | NB_NEIGHB, | ||
| integer, intent(inout) | NB_NEIGHB_SEG, | ||
| integer, intent(in) | NELEM2, | ||
| integer, dimension(6,nelem2), intent(in) | IFAPAR, | ||
| integer, intent(in) | MODASS | ||
| ) |
- Parameters
-
[in] npoin2 IFAPAR Ifapar(1:3,ielem)=processor numbers behind the 3 ELEMENT EDGES (NUMBERS FROM 0 TO NCSIZE-1) IFAPAR(4:6,IELEM): -LOCAL- ELEMENT NUMBERS BEHIND THE 3 EDGES [out] INDPU Index table : if 0: not an interface point IF NOT 0: ADDRESS IN THE LIST OF BOUNDARY POINTS. [in] MESH Mesh structure [in] MODASS Assembly mode 1: normal 2: with integers 3: compensation [in] NACHB If 'il' is the local rank of a neighbouring SUB-DOMAIN AND 'IP' ONE INTERFACE POINT NACHB(IL,IP) WILL BE THE REAL NUMBER OF THIS NEIGHBOURING SUB-DOMAIN THE LIST IN NACHB IS ORDERED WITH THE GLOBAL NUMBERS OF POINTS (HENCE THE POINTS WILL BE FOUND IN THE SAME ORDER BY ALL PROCESSORS) [out] NB_NEIGHB Number of neighbouring sub-domains (for points) [out] NB_NEIGHB_SEG Number of neighbouring sub-domains (for edges) [out] NB_NEIGHB_PT_SEG Number of segments shared with a neighbour [in] NELEM2 Number of elements in 2d [out] NHM Node numbers of processors with smaller rank [out] NHP Node numbers of processors with larger rank [in] NPLAN Number of planes in 3d [in] NPOIN2 Number of points in 2d [in] nplan IFAPAR Ifapar(1:3,ielem)=processor numbers behind the 3 ELEMENT EDGES (NUMBERS FROM 0 TO NCSIZE-1) IFAPAR(4:6,IELEM): -LOCAL- ELEMENT NUMBERS BEHIND THE 3 EDGES [out] INDPU Index table : if 0: not an interface point IF NOT 0: ADDRESS IN THE LIST OF BOUNDARY POINTS. [in] MESH Mesh structure [in] MODASS Assembly mode 1: normal 2: with integers 3: compensation [in] NACHB If 'il' is the local rank of a neighbouring SUB-DOMAIN AND 'IP' ONE INTERFACE POINT NACHB(IL,IP) WILL BE THE REAL NUMBER OF THIS NEIGHBOURING SUB-DOMAIN THE LIST IN NACHB IS ORDERED WITH THE GLOBAL NUMBERS OF POINTS (HENCE THE POINTS WILL BE FOUND IN THE SAME ORDER BY ALL PROCESSORS) [out] NB_NEIGHB Number of neighbouring sub-domains (for points) [out] NB_NEIGHB_SEG Number of neighbouring sub-domains (for edges) [out] NB_NEIGHB_PT_SEG Number of segments shared with a neighbour [in] NELEM2 Number of elements in 2d [out] NHM Node numbers of processors with smaller rank [out] NHP Node numbers of processors with larger rank [in] NPLAN Number of planes in 3d [in] NPOIN2 Number of points in 2d [in] nelem2 IFAPAR Ifapar(1:3,ielem)=processor numbers behind the 3 ELEMENT EDGES (NUMBERS FROM 0 TO NCSIZE-1) IFAPAR(4:6,IELEM): -LOCAL- ELEMENT NUMBERS BEHIND THE 3 EDGES [out] INDPU Index table : if 0: not an interface point IF NOT 0: ADDRESS IN THE LIST OF BOUNDARY POINTS. [in] MESH Mesh structure [in] MODASS Assembly mode 1: normal 2: with integers 3: compensation [in] NACHB If 'il' is the local rank of a neighbouring SUB-DOMAIN AND 'IP' ONE INTERFACE POINT NACHB(IL,IP) WILL BE THE REAL NUMBER OF THIS NEIGHBOURING SUB-DOMAIN THE LIST IN NACHB IS ORDERED WITH THE GLOBAL NUMBERS OF POINTS (HENCE THE POINTS WILL BE FOUND IN THE SAME ORDER BY ALL PROCESSORS) [out] NB_NEIGHB Number of neighbouring sub-domains (for points) [out] NB_NEIGHB_SEG Number of neighbouring sub-domains (for edges) [out] NB_NEIGHB_PT_SEG Number of segments shared with a neighbour [in] NELEM2 Number of elements in 2d [out] NHM Node numbers of processors with smaller rank [out] NHP Node numbers of processors with larger rank [in] NPLAN Number of planes in 3d [in] NPOIN2 Number of points in 2d [in] modass IFAPAR Ifapar(1:3,ielem)=processor numbers behind the 3 ELEMENT EDGES (NUMBERS FROM 0 TO NCSIZE-1) IFAPAR(4:6,IELEM): -LOCAL- ELEMENT NUMBERS BEHIND THE 3 EDGES [out] INDPU Index table : if 0: not an interface point IF NOT 0: ADDRESS IN THE LIST OF BOUNDARY POINTS. [in] MESH Mesh structure [in] MODASS Assembly mode 1: normal 2: with integers 3: compensation [in] NACHB If 'il' is the local rank of a neighbouring SUB-DOMAIN AND 'IP' ONE INTERFACE POINT NACHB(IL,IP) WILL BE THE REAL NUMBER OF THIS NEIGHBOURING SUB-DOMAIN THE LIST IN NACHB IS ORDERED WITH THE GLOBAL NUMBERS OF POINTS (HENCE THE POINTS WILL BE FOUND IN THE SAME ORDER BY ALL PROCESSORS) [out] NB_NEIGHB Number of neighbouring sub-domains (for points) [out] NB_NEIGHB_SEG Number of neighbouring sub-domains (for edges) [out] NB_NEIGHB_PT_SEG Number of segments shared with a neighbour [in] NELEM2 Number of elements in 2d [out] NHM Node numbers of processors with smaller rank [out] NHP Node numbers of processors with larger rank [in] NPLAN Number of planes in 3d [in] NPOIN2 Number of points in 2d
Definition at line 8 of file parini.f.
Here is the call graph for this function: Here is the caller graph for this function: