gretel_cpikle2.f

Go to the documentation of this file.
00001 C:\opentelemac\v7p0\sources\utils\gretel\gretel_cpikle2.f
00002 !
00054                         SUBROUTINE GRETEL_CPIKLE2
00055 !                       *******************************
00056      &(IKLE3,IKLES,NELEM2,NELMAX2,NPOIN2,NPLAN)
00057 !
00058 !***********************************************************************
00059 ! PARALLEL   V6P0                                   21/08/2010
00060 !***********************************************************************
00061 !
00062 !
00063 !
00064 !
00065 !
00066 !~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
00067 !| IKLE           |<->| TABLEAU DES CONNECTIVITES
00068 !| IKLE3          |---|
00069 !| IKLES          |---|
00070 !| NELEM          |-->| NOMBRE D'ELEMENTS
00071 !| NELEM2         |---|
00072 !| NELMAX         |-->| NOMBRE MAXIMUM D'ELEMENTS
00073 !| NELMAX2        |---|
00074 !| NPLAN          |---|
00075 !| NPOIN          |-->| NOMBRE DE SOMMETS DU MAILLAGE
00076 !| NPOIN2         |---|
00077 !~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
00078 !
00079       IMPLICIT NONE
00080       INTEGER LNG,LU
00081       COMMON/INFO/LNG,LU
00082 !
00083 !+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+
00084 !
00085       INTEGER, INTENT(IN)    :: NELEM2,NELMAX2,NPOIN2,NPLAN
00086       INTEGER, INTENT(INOUT) :: IKLES(3,NELEM2)
00087       INTEGER, INTENT(INOUT) :: IKLE3(NELMAX2,NPLAN-1,6)
00088 !
00089 !+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+
00090 !
00091       INTEGER IELEM,I
00092 !
00093 !-----------------------------------------------------------------------
00094 !
00095 !     BOTTOM AND TOP OF ALL LAYERS
00096 !
00097       IF(NPLAN.GE.2) THEN
00098         DO I = 1,NPLAN-1
00099           DO IELEM = 1,NELEM2
00100             IKLE3(IELEM,I,1) = IKLES(1,IELEM) + (I-1)*NPOIN2
00101             IKLE3(IELEM,I,2) = IKLES(2,IELEM) + (I-1)*NPOIN2
00102             IKLE3(IELEM,I,3) = IKLES(3,IELEM) + (I-1)*NPOIN2
00103             IKLE3(IELEM,I,4) = IKLES(1,IELEM) +  I   *NPOIN2
00104             IKLE3(IELEM,I,5) = IKLES(2,IELEM) +  I   *NPOIN2
00105             IKLE3(IELEM,I,6) = IKLES(3,IELEM) +  I   *NPOIN2
00106           ENDDO
00107         ENDDO
00108       ELSE
00109         IF(LNG.EQ.1) WRITE(LU,*)
00110      &   'GRETEL_CPIKLE2 : IL FAUT AU MOINS 2 PLANS'
00111         IF(LNG.EQ.2) WRITE(LU,*)
00112      &   'GRETEL_CPIKLE2 : MINIMUM OF 2 PLANES NEEDED'
00113         CALL PLANTE(1)
00114         STOP
00115       ENDIF
00116 !
00117 !-----------------------------------------------------------------------
00118 !
00119       RETURN
00120       END SUBROUTINE GRETEL_CPIKLE2

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