C TEMANF SOURCE FD218221 19/12/04 21:15:35 10398 SUBROUTINE TEMANF(NUMATE,NUFIBR) *--------------------------------------------------------------------* * * * CETTE SUBROUTINE INVERSE NOMATE POUR LES MODELE A FIBRE * * * * ON S'AFFRANCHIE AINSI DE LA NUMEROTATION GLOBALE LORS DE * * L'INTRODUCTION D'UN NOUVEAU MODELE * * * * ENTREE: NUMATE : NUMERO "NOMATE" * * SORTIE: NUFIBR : NUMERO "MODFIB" * * * *--------------------------------------------------------------------* * Pierre Pegon (ISPRA) Juillet/Aout 1993 * *--------------------------------------------------------------------* C 'BETON_UNI' IMPLICIT INTEGER(I-N) IF (NUMATE.EQ.39)THEN NUFIBR=1 C 'ACIER_UNI' ELSEIF (NUMATE.EQ.40)THEN NUFIBR=2 C 'MAZARS' ELSEIF (NUMATE.EQ.46)THEN NUFIBR=3 C 'FRAGILE_UNI' ELSEIF (NUMATE.EQ.78)THEN NUFIBR=4 C 'BETON_BAEL' ELSEIF (NUMATE.EQ.79)THEN NUFIBR=5 C 'CINEMATIQUE' ELSEIF (NUMATE.EQ.80)THEN NUFIBR=6 C 'STRUT_UNI' ELSEIF (NUMATE.EQ.83)THEN NUFIBR=7 C 'CISAIL_NL' ELSEIF (NUMATE.EQ.73)THEN NUFIBR=8 C 'PARFAIT_ANCRAGE' ELSEIF (NUMATE.EQ.92)THEN NUFIBR=9 C 'ACIER_ANCRAGE' ELSEIF (NUMATE.EQ.93)THEN NUFIBR=10 C 'UNILATERAL' ELSEIF (NUMATE.EQ.104)THEN NUFIBR=11 C 'INTIMP' ELSEIF (NUMATE.EQ.145)THEN NUFIBR=12 C 'RICBET_UNI' ELSEIF (NUMATE.EQ.160)THEN NUFIBR=13 C 'OUGLOVA' ELSEIF (NUMATE.EQ.175)THEN NUFIBR=14 C 'NORTON' ELSEIF (NUMATE.EQ.181)THEN NUFIBR=15 C 'POLYNOMIAL' ELSEIF (NUMATE.EQ.182)THEN NUFIBR=16 C 'BLACKBURN' ELSEIF (NUMATE.EQ.183)THEN NUFIBR=17 C 'BLACKBURN_2' ELSEIF (NUMATE.EQ.184)THEN NUFIBR=18 C 'LEMAITRE' ELSEIF (NUMATE.EQ.185)THEN NUFIBR=19 C DEFAUT ELSE NUFIBR=0 ENDIF C RETURN END