C QUEDIM    SOURCE    BP208322  16/11/18    21:20:38     9177           

C=======================================================================
C=                            Q U E D I M                              =
C=                            -----------                              =
C=                                                                     =
C=  Fonction :                                                         =
C=  ----------                                                         =
C=   Determine la dimension JDIM associee a un element geometrique de  =
C=   numero IEL (numero dans le tableau NOMS de CCGEOME.INC).          =
C=   Sous-programme appele par INTGCA (intgca.eso).                    =
C=======================================================================

      SUBROUTINE QUEDIM(IEL,JDIM)

      IMPLICIT INTEGER(I-N)
      IMPLICIT REAL*8 (A-H,O-Z)

      IF (IEL.EQ.2.OR.IEL.EQ.3) THEN
        JDIM=1
      ELSE IF (IEL.GE.4.AND.IEL.LE.11) THEN
        JDIM=2
      ELSE IF (IEL.EQ.12.OR.IEL.EQ.13) THEN
        JDIM=1
      ELSE IF (IEL.GE.14.AND.IEL.LE.17) THEN
        JDIM=3
      ELSE IF (IEL.GE.18.AND.IEL.LE.21) THEN
        JDIM=2
      ELSE IF (IEL.GE.23.AND.IEL.LE.26) THEN
        JDIM=3
      ELSE IF (IEL.EQ.29) THEN
        JDIM=1
      ELSE IF (IEL.EQ.30.OR.IEL.EQ.31) THEN
        JDIM=2
      ELSE IF (IEL.EQ.32) THEN
        JDIM=2
      ELSE
        JDIM=0
      ENDIF

      RETURN
      END