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

Go to the source code of this file.

Functions/Subroutines

subroutine paraco_comp (V1, V2, V3, ERRX, NPOIN, ICOM, IAN, NPLAN, NB_NEIGHB, NB_NEIGHB_PT, LIST_SEND, NH_COM, DIMNHCOM, BUF_SEND, BUF_RECV, DIMBUF, BUF_SEND_ERR, BUF_RECV_ERR)
 

Function/Subroutine Documentation

◆ paraco_comp()

subroutine paraco_comp ( double precision, dimension(npoin,nplan), intent(inout)  V1,
double precision, dimension(npoin,nplan), intent(inout)  V2,
double precision, dimension(npoin,nplan), intent(inout)  V3,
double precision, dimension(*), intent(inout)  ERRX,
integer, intent(in)  NPOIN,
integer, intent(in)  ICOM,
integer, intent(in)  IAN,
integer, intent(in)  NPLAN,
integer, intent(in)  NB_NEIGHB,
integer, dimension(nb_neighb), intent(in)  NB_NEIGHB_PT,
integer, dimension(nb_neighb), intent(in)  LIST_SEND,
integer, dimension(dimnhcom,*), intent(in)  NH_COM,
integer, intent(in)  DIMNHCOM,
double precision, dimension(dimbuf,*), intent(inout)  BUF_SEND,
double precision, dimension(dimbuf,*), intent(inout)  BUF_RECV,
integer, intent(in)  DIMBUF,
double precision, dimension(dimbuf,*), intent(inout)  BUF_SEND_ERR,
double precision, dimension(dimbuf,*), intent(inout)  BUF_RECV_ERR 
)
Parameters
[in]npoinIAN Number of vectors to be condidered (1, 2 or 3)
[in]ICOMOption of communication : = 1 : VALUE WITH MAXIMUM ABSOLUTE VALUE = 2 : CONTRIBUTIONS ADDED = 3 : MAXIMUM CONTRIBUTION RETAINED = 4 : MINIMUM CONTRIBUTION RETAINED
[in]LIST_SENDList of processors numbers
[in]NB_NEIGHBNumber of neighbouring sub-domains
[in]NB_NEIGHB_PTNumber of points shared with a sub-domain
[in]NH_COMNh_com(i,il) : global number in this SUB-DOMAIN OF THE POINT NUMBER I IN THE LIST OF POINTS SHARED WITH PROCESSOR NUMBER IL WHOSE REAL NUMBER IS LIST_SEND(IL)
[in]NPLANSecond dimension of v1,v2,v3
[in]NPOINFirst dimension of v1,v2,v3
[in,out]V1Vector to be completed
[in,out]V2Vector to be completed
[in,out]V3Vector to be completed
[in,out]ERRXErrors vector to be completed
[in]icomIAN Number of vectors to be condidered (1, 2 or 3)
[in]ICOMOption of communication : = 1 : VALUE WITH MAXIMUM ABSOLUTE VALUE = 2 : CONTRIBUTIONS ADDED = 3 : MAXIMUM CONTRIBUTION RETAINED = 4 : MINIMUM CONTRIBUTION RETAINED
[in]LIST_SENDList of processors numbers
[in]NB_NEIGHBNumber of neighbouring sub-domains
[in]NB_NEIGHB_PTNumber of points shared with a sub-domain
[in]NH_COMNh_com(i,il) : global number in this SUB-DOMAIN OF THE POINT NUMBER I IN THE LIST OF POINTS SHARED WITH PROCESSOR NUMBER IL WHOSE REAL NUMBER IS LIST_SEND(IL)
[in]NPLANSecond dimension of v1,v2,v3
[in]NPOINFirst dimension of v1,v2,v3
[in,out]V1Vector to be completed
[in,out]V2Vector to be completed
[in,out]V3Vector to be completed
[in,out]ERRXErrors vector to be completed
[in]ianIAN Number of vectors to be condidered (1, 2 or 3)
[in]ICOMOption of communication : = 1 : VALUE WITH MAXIMUM ABSOLUTE VALUE = 2 : CONTRIBUTIONS ADDED = 3 : MAXIMUM CONTRIBUTION RETAINED = 4 : MINIMUM CONTRIBUTION RETAINED
[in]LIST_SENDList of processors numbers
[in]NB_NEIGHBNumber of neighbouring sub-domains
[in]NB_NEIGHB_PTNumber of points shared with a sub-domain
[in]NH_COMNh_com(i,il) : global number in this SUB-DOMAIN OF THE POINT NUMBER I IN THE LIST OF POINTS SHARED WITH PROCESSOR NUMBER IL WHOSE REAL NUMBER IS LIST_SEND(IL)
[in]NPLANSecond dimension of v1,v2,v3
[in]NPOINFirst dimension of v1,v2,v3
[in,out]V1Vector to be completed
[in,out]V2Vector to be completed
[in,out]V3Vector to be completed
[in,out]ERRXErrors vector to be completed
[in]nplanIAN Number of vectors to be condidered (1, 2 or 3)
[in]ICOMOption of communication : = 1 : VALUE WITH MAXIMUM ABSOLUTE VALUE = 2 : CONTRIBUTIONS ADDED = 3 : MAXIMUM CONTRIBUTION RETAINED = 4 : MINIMUM CONTRIBUTION RETAINED
[in]LIST_SENDList of processors numbers
[in]NB_NEIGHBNumber of neighbouring sub-domains
[in]NB_NEIGHB_PTNumber of points shared with a sub-domain
[in]NH_COMNh_com(i,il) : global number in this SUB-DOMAIN OF THE POINT NUMBER I IN THE LIST OF POINTS SHARED WITH PROCESSOR NUMBER IL WHOSE REAL NUMBER IS LIST_SEND(IL)
[in]NPLANSecond dimension of v1,v2,v3
[in]NPOINFirst dimension of v1,v2,v3
[in,out]V1Vector to be completed
[in,out]V2Vector to be completed
[in,out]V3Vector to be completed
[in,out]ERRXErrors vector to be completed
[in]nb_neighbIAN Number of vectors to be condidered (1, 2 or 3)
[in]ICOMOption of communication : = 1 : VALUE WITH MAXIMUM ABSOLUTE VALUE = 2 : CONTRIBUTIONS ADDED = 3 : MAXIMUM CONTRIBUTION RETAINED = 4 : MINIMUM CONTRIBUTION RETAINED
[in]LIST_SENDList of processors numbers
[in]NB_NEIGHBNumber of neighbouring sub-domains
[in]NB_NEIGHB_PTNumber of points shared with a sub-domain
[in]NH_COMNh_com(i,il) : global number in this SUB-DOMAIN OF THE POINT NUMBER I IN THE LIST OF POINTS SHARED WITH PROCESSOR NUMBER IL WHOSE REAL NUMBER IS LIST_SEND(IL)
[in]NPLANSecond dimension of v1,v2,v3
[in]NPOINFirst dimension of v1,v2,v3
[in,out]V1Vector to be completed
[in,out]V2Vector to be completed
[in,out]V3Vector to be completed
[in,out]ERRXErrors vector to be completed

Definition at line 9 of file paraco_comp.f.

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