ielbor.f

Go to the documentation of this file.
00001 C:\opentelemac\v7p0\sources\utils\bief\ielbor.f
00002 !
00054                      INTEGER FUNCTION IELBOR
00055 !                    ***********************
00056 !
00057      &( IELM , I )
00058 !
00059 !***********************************************************************
00060 ! BIEF   V6P1                                   21/08/2010
00061 !***********************************************************************
00062 !
00063 !
00064 !
00065 !
00066 !
00067 !~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
00068 !| I              |-->| CASE OF SEVERAL BOUNDARY ELEMENTS
00069 !| IELM           |-->| TYPE OF ELEMENT IN THE DOMAIN
00070 !~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
00071 !
00072       IMPLICIT NONE
00073       INTEGER LNG,LU
00074       COMMON/INFO/LNG,LU
00075 !
00076       INTEGER IELM,I
00077 !
00078 !-----------------------------------------------------------------------
00079 !
00080       IF(IELM.EQ.10.OR.IELM.EQ.20) THEN
00081         IELBOR = 0
00082       ELSEIF(IELM.EQ.11.OR.IELM.EQ.12.OR.IELM.EQ.21) THEN
00083         IELBOR = 1
00084       ELSEIF(IELM.EQ.13) THEN
00085         IELBOR = 2
00086       ELSEIF(IELM.EQ.30) THEN
00087         IELBOR = 80
00088       ELSEIF(IELM.EQ.31) THEN
00089         IELBOR = 81
00090       ELSEIF(IELM.EQ.51.AND.I.EQ.1) THEN
00091         IELBOR = 11
00092       ELSEIF(IELM.EQ.51.AND.I.EQ.2) THEN
00093         IELBOR = 61
00094       ELSEIF(IELM.EQ.50.AND.I.EQ.1) THEN
00095         IELBOR = 10
00096       ELSEIF(IELM.EQ.50.AND.I.EQ.2) THEN
00097         IELBOR = 60
00098       ELSEIF(IELM.EQ.40.AND.I.EQ.1) THEN
00099         IELBOR = 10
00100       ELSEIF(IELM.EQ.40.AND.I.EQ.2) THEN
00101         IELBOR = 70
00102       ELSEIF(IELM.EQ.41.AND.I.EQ.1) THEN
00103         IELBOR = 11
00104       ELSEIF(IELM.EQ.41.AND.I.EQ.2) THEN
00105         IELBOR = 71
00106       ELSE
00107         IF(LNG.EQ.1) WRITE(LU,100) IELM
00108         IF(LNG.EQ.2) WRITE(LU,101) IELM
00109 100     FORMAT(1X,'IELBOR (BIEF) : ',1I6,' ELEMENT NON PREVU')
00110 101     FORMAT(1X,'IELBOR (BIEF) : ',1I6,' ELEMENT NOT IMPLEMENTED')
00111         CALL PLANTE(1)
00112         STOP
00113       ENDIF
00114 !
00115 !-----------------------------------------------------------------------
00116 !
00117       RETURN
00118       END

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