Télécharger temanf.eso

Retour à la liste

Numérotation des lignes :

  1. C TEMANF SOURCE BR232186 16/09/08 21:15:16 9068
  2. SUBROUTINE TEMANF(NUMATE,NUFIBR)
  3. *--------------------------------------------------------------------*
  4. * *
  5. * CETTE SUBROUTINE INVERSE NOMATE POUR LES MODELE A FIBRE *
  6. * *
  7. * ON S'AFFRANCHIE AINSI DE LA NUMEROTATION GLOBALE LORS DE *
  8. * L'INTRODUCTION D'UN NOUVEAU MODELE *
  9. * *
  10. * ENTREE: NUMATE : NUMERO "NOMATE" *
  11. * SORTIE: NUFIBR : NUMERO "MODFIB" *
  12. * *
  13. *--------------------------------------------------------------------*
  14. * Pierre Pegon (ISPRA) Juillet/Aout 1993 *
  15. *--------------------------------------------------------------------*
  16. C 'BETON_UNI'
  17. IMPLICIT INTEGER(I-N)
  18. IF (NUMATE.EQ.39)THEN
  19. NUFIBR=1
  20. C 'ACIER_UNI'
  21. ELSEIF (NUMATE.EQ.40)THEN
  22. NUFIBR=2
  23. C 'MAZARS'
  24. ELSEIF (NUMATE.EQ.46)THEN
  25. NUFIBR=3
  26. C 'FRAGILE_UNI'
  27. ELSEIF (NUMATE.EQ.78)THEN
  28. NUFIBR=4
  29. C 'BETON_BAEL'
  30. ELSEIF (NUMATE.EQ.79)THEN
  31. NUFIBR=5
  32. C 'CINEMATIQUE'
  33. ELSEIF (NUMATE.EQ.80)THEN
  34. NUFIBR=6
  35. C 'STRUT_UNI'
  36. ELSEIF (NUMATE.EQ.83)THEN
  37. NUFIBR=7
  38. C 'CISAIL_NL'
  39. ELSEIF (NUMATE.EQ.73)THEN
  40. NUFIBR=8
  41. C 'PARFAIT_ANCRAGE'
  42. ELSEIF (NUMATE.EQ.92)THEN
  43. NUFIBR=9
  44. C 'ACIER_ANCRAGE'
  45. ELSEIF (NUMATE.EQ.93)THEN
  46. NUFIBR=10
  47. C 'UNILATERAL'
  48. ELSEIF (NUMATE.EQ.104)THEN
  49. NUFIBR=11
  50. C 'INTIMP'
  51. ELSEIF (NUMATE.EQ.145)THEN
  52. NUFIBR=12
  53. C 'RICBET_UNI'
  54. ELSEIF (NUMATE.EQ.160)THEN
  55. NUFIBR=13
  56. C +RP
  57. C 'OUGLOVA'
  58. ELSEIF (NUMATE.EQ.175)THEN
  59. NUFIBR=14
  60. C -RP
  61. C DEFAUT
  62. ELSE
  63. NUFIBR=0
  64. ENDIF
  65. C
  66.  
  67. RETURN
  68. END
  69.  
  70.  
  71.  
  72.  
  73.  
  74.  
  75.  
  76.  
  77.  

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