dimens.f

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

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