bief_nbmpts.f

Go to the documentation of this file.
00001 C:\opentelemac\v7p0\sources\utils\bief\bief_nbmpts.f
00002 !
00055                      INTEGER FUNCTION BIEF_NBMPTS
00056 !                    ****************************
00057 !
00058      &(IELM,MESH)
00059 !
00060 !***********************************************************************
00061 ! BIEF   V6P1                                   21/08/2010
00062 !***********************************************************************
00063 !
00064 !
00065 !
00066 !
00067 !
00068 !~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
00069 !| IELM           |-->| TYPE OF ELEMENT
00070 !| MESH           |-->| MESH STRUCTURE
00071 !~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
00072 !
00073       USE BIEF_DEF
00074       IMPLICIT NONE
00075       INTEGER LNG,LU
00076       COMMON/INFO/LNG,LU
00077 !
00078 !+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+
00079 !
00080       INTEGER, INTENT(IN)         :: IELM
00081       TYPE(BIEF_MESH), INTENT(IN) :: MESH
00082 !
00083 !+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+
00084 !
00085       IF(IELM.LT.0.OR.IELM.GT.81) THEN
00086         IF(LNG.EQ.1) WRITE(LU,200) IELM
00087         IF(LNG.EQ.2) WRITE(LU,201) IELM
00088  200    FORMAT(1X,'BIEF_NBMPTS : MAUVAIS ARGUMENT : ',1I6)
00089  201    FORMAT(1X,'BIEF_NBMPTS: WRONG ARGUMENT: ',1I6)
00090         CALL PLANTE(1)
00091         STOP
00092       ENDIF
00093 !
00094       BIEF_NBMPTS = MESH%NDS(IELM,5)
00095 !
00096 !-----------------------------------------------------------------------
00097 !
00098       RETURN
00099       END

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