Télécharger quedim.eso

Retour à la liste

Numérotation des lignes :

  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