Télécharger la plaquette Cast3M


fr en

Télécharger numhyb.eso

Retour à la liste

Numérotation des lignes : 

numhyb

  1. C NUMHYB    SOURCE    PV        21/12/18    07:15:09     11240          
  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
  47. C
  48.       END
  49.  
  50.  
  51.  
  52.  

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