Esope source files

   1 : C QUEDIM    SOURCE    CHAT      07/10/29    21:27:10     5940           
   2 : 
   3 : C=======================================================================
   4 : C=                            Q U E D I M                              =
   5 : C=                            -----------                              =
   6 : C=                                                                     =
   7 : C=  Fonction :                                                         =
   8 : C=  ----------                                                         =
   9 : C=   Determine la dimension JDIM associee a un element geometrique de  =
  10 : C=   numero IEL (numero dans le tableau NOMS de CCGEOME.INC).          =
  11 : C=   Sous-programme appele par INTGCA (intgca.eso).                    =
  12 : C=======================================================================
  13 : 
  14 :       SUBROUTINE QUEDIM(IEL,JDIM)
  15 : 
  16 :       IMPLICIT INTEGER(I-N)
  17 :       IMPLICIT REAL*8 (A-H,O-Z)
  18 : 
  19 :       IF (IEL.EQ.2.OR.IEL.EQ.3) THEN
  20 :         JDIM=1
  21 :       ELSE IF (IEL.GE.4.AND.IEL.LE.11) THEN
  22 :         JDIM=2
  23 :       ELSE IF (IEL.EQ.12.OR.IEL.EQ.13) THEN
  24 :         JDIM=1
  25 :       ELSE IF (IEL.GE.14.AND.IEL.LE.17) THEN
  26 :         JDIM=3
  27 :       ELSE IF (IEL.GE.18.AND.IEL.LE.21) THEN
  28 :         JDIM=2
  29 :       ELSE IF (IEL.GE.23.AND.IEL.LE.26) THEN
  30 :         JDIM=3
  31 :       ELSE IF (IEL.EQ.32) THEN
  32 :         JDIM=2
  33 :       ELSE
  34 :         JDIM=0
  35 :       ENDIF
  36 : 
  37 :       RETURN
  38 :       END
  39 : 
  40 :  
  41 :  
  42 :  
  43 :