Télécharger la plaquette Cast3M


fr en

Télécharger quedim.eso

Retour à la liste

Numérotation des lignes : 

quedim

  1. C QUEDIM    SOURCE    BP208322  16/11/18    21:20:38     9177           
  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.29) THEN
  32.         JDIM=1
  33.       ELSE IF (IEL.EQ.30.OR.IEL.EQ.31) THEN
  34.         JDIM=2
  35.       ELSE IF (IEL.EQ.32) THEN
  36.         JDIM=2
  37.       ELSE
  38.         JDIM=0
  39.       ENDIF
  40.  
  41.       RETURN
  42.       END
  43.  
  44.  
  45.  
  46.  
  47.  
  48.  
  49.  
  50.  
  51.  

© Cast3M 2003 - Tous droits réservés.
Mentions légales