parcom2i8.f

Go to the documentation of this file.

!                   ********************
                    SUBROUTINE parcom2i8
!                   ********************
!
     &( x1 , x2 , x3 , npoin , nplan , icom , ian , mesh )
!
!***********************************************************************
! BIEF   V7P0                                   21/08/2010
!***********************************************************************
!
!brief    COMPLEMENTS A VECTOR OF I8 INTEGERS AT THE INTERFACES BETWEEN
!+                SUB-DOMAINS.
!+
!+            X CAN BE A BLOCK OF VECTORS. IN THIS CASE, ALL THE
!+                VECTORS IN THE BLOCK ARE TREATED.
!
!warning  IF THE VECTORS HAVE A SECOND DIMENSION, IT IS
!+            IGNORED FOR THE TIME BEING
!
!history  J-M HERVOUET (LNHE)
!+        19/11/2013
!+        V7P0
!+   Inspired from PARCOM2.
!
!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
!| IAN            |-->| NUMBER OF VECTORS TO BE CONDIDERED (1, 2 OR 3)
!| ICOM           |-->| COMMUNICATION MODE
!|                |   | = 1 : VALUE WITH MAXIMUM ABSOLUTE VALUE TAKEN
!|                |   | = 2 : CONTRIBUTIONS ADDED
!|                |   | = 3 : MAXIMUM CONTRIBUTION RETAINED
!|                |   | = 4 : MINIMUM CONTRIBUTION RETAINED
!| MESH           |-->| MESH STRUCTURE
!| NPLAN          |-->| NUMBER OF PLANES IN THE 3D MESH OF PRISMS
!| NPOIN          |-->| NUMBER OF POINTS
!| X1             |<->| INTEGER VECTOR TO BE COMPLETED
!| X2             |<->| INTEGER VECTOR TO BE COMPLETED
!| X3             |<->| INTEGER VECTOR TO BE COMPLETED
!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
!
      USE bief, ex_parcom2i8 => parcom2i8
!
      USE declarations_special
      IMPLICIT NONE
!
!-----------------------------------------------------------------------
!
      INTEGER, INTENT(IN) :: ICOM,NPOIN,NPLAN,IAN
!
!     STRUCTURES: VECTORS OR BLOCKS
!
      TYPE(bief_mesh) , INTENT(INOUT) :: MESH
      INTEGER(KIND=K8), INTENT(INOUT) :: X1(npoin,nplan)
      INTEGER(KIND=K8), INTENT(INOUT) :: X2(npoin,nplan)
      INTEGER(KIND=K8), INTENT(INOUT) :: X3(npoin,nplan)
!
!-----------------------------------------------------------------------
!
      CALL paracoi8(x1,x2,x3,npoin,icom,ian,nplan,
     &              mesh%NB_NEIGHB,mesh%NB_NEIGHB_PT%I,mesh%LIST_SEND%I,
     &              mesh%NH_COM%I,mesh%NH_COM%DIM1,mesh%BUF_SENDI8,
     &              mesh%BUF_RECVI8,mesh%BUF_SEND%DIM1)
!
!-----------------------------------------------------------------------
!
      RETURN
      END