Télécharger numhyb.eso

Retour à la liste

Numérotation des lignes :

  1. C NUMHYB SOURCE CHAT 05/01/13 02:03:12 5004
  2. FUNCTION NUMHYB(NUMGEO)
  3. C***********************************************************************
  4. C
  5. C N U M H Y B
  6. C -----------
  7. C
  8. C FONCTION:
  9. C ---------
  10. C
  11. C DONNER LE NUMERO DE L'ELEMENT HYBRIDE ASSOCIE A UN ELEMENT
  12. C GEOMETRIQUE DONNE
  13. C ( RECIPROQUE DE NUMGEO POUR LES ELEMENTS HYBRIDES)
  14. C
  15. C PARAMETRES:
  16. C -----------
  17. C
  18. C NUMHYB (S) NUMERO DE L'ELEMENT HYBRIDE
  19. C NUMGEO (E) NUMERO DE L'ELEMENT GEOMETRIQUE ASSOCIE
  20. C
  21. IMPLICIT INTEGER(I-N)
  22. PARAMETER ( LNUMH=5 )
  23. DIMENSION NUMGE(LNUMH),NUMH(LNUMH)
  24. C
  25. C AUTEUR, DATE DE CREATION:
  26. C -------------------------
  27. C
  28. C F AURIOL JUILLET 94
  29. C
  30. C LANGAGE:
  31. C --------
  32. C
  33. C FORTRAN77
  34. C
  35. C***********************************************************************
  36. C
  37. C HYT3 HYQ4 HYT4 HYP6 HYC8
  38. DATA NUMGE/ 4 , 8, 23, 16, 14/
  39. DATA NUMH / 99, 100, 101, 102, 103/
  40. DO 10 I=1,LNUMH
  41. IF(NUMGEO.EQ.NUMGE(I))THEN
  42. NUMHYB=NUMH(I)
  43. RETURN
  44. ENDIF
  45. 10 CONTINUE
  46. C
  47. END
  48.  
  49.  
  50.  

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