Esope source files

   1 : C TEMANF    SOURCE    BR232186  12/08/01    22:53:40     7456           
   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  DEFAUT
  57 :       ELSE
  58 :         NUFIBR=0
  59 :       ENDIF
  60 : C
  61 : 
  62 :       RETURN
  63 :       END
  64 :  
  65 :  
  66 :  
  67 :  
  68 :  
  69 :  
  70 :