Télécharger la plaquette Cast3M


fr en

Télécharger temanf.eso

Retour à la liste

Numérotation des lignes : 

temanf

  1. C TEMANF    SOURCE    FD218221  19/12/04    21:15:35     10398          
  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  'OUGLOVA'
  57.       ELSEIF (NUMATE.EQ.175)THEN
  58.         NUFIBR=14
  59. C  'NORTON'
  60.       ELSEIF (NUMATE.EQ.181)THEN
  61.         NUFIBR=15
  62. C  'POLYNOMIAL'
  63.       ELSEIF (NUMATE.EQ.182)THEN
  64.         NUFIBR=16
  65. C  'BLACKBURN'
  66.       ELSEIF (NUMATE.EQ.183)THEN
  67.         NUFIBR=17
  68. C  'BLACKBURN_2'
  69.       ELSEIF (NUMATE.EQ.184)THEN
  70.         NUFIBR=18
  71. C  'LEMAITRE'
  72.       ELSEIF (NUMATE.EQ.185)THEN
  73.         NUFIBR=19
  74. C  DEFAUT
  75.       ELSE
  76.         NUFIBR=0
  77.       ENDIF
  78. C
  79.  
  80.       RETURN
  81.       END
  82.  
  83.  
  84.  

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