bief_nbsegel.f

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

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