cpik12.f

Go to the documentation of this file.
00001 C:\opentelemac\v7p0\sources\utils\bief\cpik12.f
00002 !
00047                      SUBROUTINE CPIK12
00048 !                    *****************
00049 !
00050      &(IKLE,NELEM,NELMAX,NPOIN)
00051 !
00052 !***********************************************************************
00053 ! BIEF   V6P1                                   21/08/2010
00054 !***********************************************************************
00055 !
00056 !
00057 !
00058 !
00059 !
00060 !~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
00061 !| IKLE           |<->| CONNECTIVITY TABLE
00062 !| NELEM          |-->| NUMBER OF ELEMENTS
00063 !| NELMAX         |-->| MAXIMUM NUMBER OF ELEMENTS
00064 !| NPOIN          |-->| NUMBER OF POINTS IN THE MESH
00065 !~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
00066 !
00067       IMPLICIT NONE
00068       INTEGER LNG,LU
00069       COMMON/INFO/LNG,LU
00070 !
00071 !+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+
00072 !
00073       INTEGER, INTENT(IN)    :: NELEM,NELMAX,NPOIN
00074       INTEGER, INTENT(INOUT) :: IKLE(NELMAX,4)
00075 !
00076 !+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+
00077 !
00078       INTEGER IELEM
00079 !
00080 !-----------------------------------------------------------------------
00081 !
00082       DO IELEM = 1 , NELEM
00083 !
00084         IKLE(IELEM,4) = NPOIN + IELEM
00085 !
00086       ENDDO
00087 !
00088 !-----------------------------------------------------------------------
00089 !
00090       RETURN
00091       END

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