parcom2i.f

Go to the documentation of this file.
00001 C:\opentelemac\v7p0\sources\utils\bief\parcom2i.f
00002 !
00050                      SUBROUTINE PARCOM2I
00051 !                    *******************
00052 !
00053      &( X1 , X2 , X3 , NPOIN , NPLAN , ICOM , IAN , MESH )
00054 !
00055 !***********************************************************************
00056 ! BIEF   V7P0                                   21/08/2010
00057 !***********************************************************************
00058 !
00059 !
00060 !
00061 !
00062 !~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
00063 !| IAN            |-->| NUMBER OF VECTORS TO BE CONDIDERED (1, 2 OR 3)
00064 !| ICOM           |-->| COMMUNICATION MODE
00065 !|                |   | = 1 : VALUE WITH MAXIMUM ABSOLUTE VALUE TAKEN
00066 !|                |   | = 2 : CONTRIBUTIONS ADDED
00067 !|                |   | = 3 : MAXIMUM CONTRIBUTION RETAINED
00068 !|                |   | = 4 : MINIMUM CONTRIBUTION RETAINED
00069 !| MESH           |-->| MESH STRUCTURE
00070 !| NPLAN          |-->| NUMBER OF PLANES IN THE 3D MESH OF PRISMS
00071 !| NPOIN          |-->| NUMBER OF POINTS
00072 !| X1             |<->| INTEGER VECTOR TO BE COMPLETED
00073 !| X2             |<->| INTEGER VECTOR TO BE COMPLETED
00074 !| X3             |<->| INTEGER VECTOR TO BE COMPLETED
00075 !~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
00076 !
00077       USE BIEF, EX_PARCOM2I => PARCOM2I
00078 !
00079       IMPLICIT NONE
00080       INTEGER LNG,LU
00081       COMMON/INFO/LNG,LU
00082 !
00083 !-----------------------------------------------------------------------
00084 !
00085       INTEGER, INTENT(IN) :: ICOM,NPOIN,NPLAN,IAN
00086 !
00087 !     STRUCTURES: VECTORS OR BLOCKS
00088 !
00089       TYPE(BIEF_MESH) , INTENT(INOUT) :: MESH
00090       INTEGER, INTENT(INOUT) :: X1(NPOIN,NPLAN)
00091       INTEGER, INTENT(INOUT) :: X2(NPOIN,NPLAN)
00092       INTEGER, INTENT(INOUT) :: X3(NPOIN,NPLAN)
00093 !
00094 !-----------------------------------------------------------------------
00095 !
00096       CALL PARACOI(X1,X2,X3,NPOIN,ICOM,IAN,NPLAN,
00097      &             MESH%NB_NEIGHB,MESH%NB_NEIGHB_PT%I,MESH%LIST_SEND%I,
00098      &             MESH%NH_COM%I,MESH%NH_COM%DIM1,MESH%BUF_SEND%I,
00099      &             MESH%BUF_RECV%I,MESH%BUF_SEND%DIM1)
00100 !
00101 !-----------------------------------------------------------------------
00102 !
00103       RETURN
00104       END

Generated on Fri Aug 31 2013 18:12:58 by S.E.Bourban (HRW) using doxygen 1.7.0