build_ikle_ext.f

Go to the documentation of this file.
00001 C:\opentelemac\v7p0\sources\utils\bief\build_ikle_ext.f
00002 !
00037                      SUBROUTINE BUILD_IKLE_EXT
00038 !                    *************************
00039 !
00040      &(IKLE_EXT,NELMAX,IKLE,NELEM)
00041 !
00042 !***********************************************************************
00043 ! BIEF   V6P3                                   05/10/2012
00044 !***********************************************************************
00045 !
00046 !         This is used in post_interp (module streamline)
00047 !
00048 !
00049 !~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
00050 !| IKLE_EXT       |<->| EXTENDED IKLE
00051 !| NELMAX         |-->| FIRST DIMENSION OF EXTENDED IKLE
00052 !| IKLE           |-->| ORIGINAL IKLE
00053 !| NELEM          |-->| FIRST DIMENSION OF ORIGINAL IKLE
00054 !~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
00055 !
00056       IMPLICIT NONE
00057       INTEGER LNG,LU
00058       COMMON/INFO/LNG,LU
00059 !
00060 !+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+
00061 !
00062       INTEGER, INTENT(IN)    :: NELMAX,NELEM
00063       INTEGER, INTENT(IN)    :: IKLE(NELEM,3)
00064       INTEGER, INTENT(INOUT) :: IKLE_EXT(NELMAX,3)
00065 !
00066 !+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+
00067 !
00068       INTEGER IELEM
00069 !
00070 !-----------------------------------------------------------------------
00071 !
00072       DO IELEM=1,NELEM
00073         IKLE_EXT(IELEM,1)=IKLE(IELEM,1)
00074         IKLE_EXT(IELEM,2)=IKLE(IELEM,2)
00075         IKLE_EXT(IELEM,3)=IKLE(IELEM,3)
00076       ENDDO
00077 !
00078       IF(NELMAX.GT.NELEM) THEN
00079         DO IELEM=NELEM+1,NELMAX
00080           IKLE_EXT(IELEM,1)=1
00081           IKLE_EXT(IELEM,2)=1
00082           IKLE_EXT(IELEM,3)=1
00083         ENDDO
00084       ENDIF
00085 !
00086 !-----------------------------------------------------------------------
00087 !
00088       RETURN
00089       END

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