ptel31.f

Go to the documentation of this file.
00001 C:\opentelemac\v7p0\sources\utils\bief\ptel31.f
00002 !
00037                      SUBROUTINE PTEL31
00038 !                    *****************
00039 !
00040      &(XEL,X,IKLE,NELMAX,NELEM)
00041 !
00042 !***********************************************************************
00043 ! BIEF   V6P3                                          03/01/2013
00044 !***********************************************************************
00045 !
00046 !
00047 !
00048 !~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
00049 !| IKLE           |-->| CONNECTIVITY TABLE
00050 !| NELEM          |-->| NUMBER OF ELEMENTS
00051 !| NELMAX         |-->| MAXIMUM NUMBER OF ELEMENTS
00052 !| X              |-->| VECTOR DEFINED PER POINT
00053 !| XEL            |<--| SAME VECTOR DEFINED PER ELEMENT
00054 !~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
00055 !
00056       IMPLICIT NONE
00057       INTEGER LNG,LU
00058       COMMON/INFO/LNG,LU
00059 !
00060 !+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+
00061 !
00062       INTEGER, INTENT(IN) :: NELEM,NELMAX,IKLE(NELMAX,4)
00063 !
00064 !-----------------------------------------------------------------------
00065 !
00066 !     VECTORS STRUCTURES
00067 !
00068       DOUBLE PRECISION, INTENT(IN)    :: X(*)
00069       DOUBLE PRECISION, INTENT(INOUT) :: XEL(NELMAX,4)
00070 !
00071 !+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+
00072 !
00073       INTEGER IELEM
00074 !
00075 !-----------------------------------------------------------------------
00076 !
00077       DO IELEM = 1,NELEM
00078 !
00079         XEL(IELEM,1)=X(IKLE(IELEM,1))
00080         XEL(IELEM,2)=X(IKLE(IELEM,2))
00081         XEL(IELEM,3)=X(IKLE(IELEM,3))
00082         XEL(IELEM,4)=X(IKLE(IELEM,4))
00083 !
00084       ENDDO
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