maskob.f

Go to the documentation of this file.
00001 C:\opentelemac\v7p0\sources\telemac2d\maskob.f
00002 !
00044                      SUBROUTINE MASKOB
00045 !                    *****************
00046 !
00047      &(MASKEL,X,Y,IKLE,NELEM,NELMAX,NPOIN,AT,LT)
00048 !
00049 !***********************************************************************
00050 ! TELEMAC2D   V6P1                                   21/08/2010
00051 !***********************************************************************
00052 !
00053 !
00054 !
00055 !
00056 !
00057 !
00058 !~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
00059 !| AT             |-->| TIME IN SECONDS
00060 !| IKLE           |-->| CONNECTIVITY TABLE.
00061 !| LT             |-->| CURRENT TIME STEP
00062 !| MASKEL         |-->| MASKING OF ELEMENTS
00063 !|                |   | =1. : NORMAL   =0. : MASKED ELEMENT
00064 !| NELEM          |-->| NUMBER OF ELEMENTS
00065 !| NELMAX         |-->| MAXIMUM NUMBER OF ELEMENTS
00066 !| NPOIN          |-->| NUMBER OF POINTS
00067 !| X              |-->| ABSCISSAE OF POINTS IN THE MESH
00068 !| Y              |-->| ORDINATES OF POINTS IN THE MESH
00069 !~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
00070 !
00071       IMPLICIT NONE
00072 !
00073 !+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+
00074 !
00075       INTEGER, INTENT(IN) :: NELEM,NPOIN,NELMAX,LT
00076       INTEGER, INTENT(IN) :: IKLE(NELMAX,*)
00077 !
00078       DOUBLE PRECISION, INTENT(INOUT) :: MASKEL(NELEM)
00079       DOUBLE PRECISION, INTENT(IN) :: X(NPOIN),Y(NPOIN),AT
00080 !
00081 !+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+
00082 !
00083 !
00084 !-----------------------------------------------------------------------
00085 !
00086 !
00087 !-----------------------------------------------------------------------
00088 !
00089       RETURN
00090       END

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