DEBUT()
TEMP_MOY=50.
coef0 = 1.E-3

A0=DEFI_FONCTION(      NOM_PARA='TEMP',
                            PROL_DROITE='EXCLU',
                            PROL_GAUCHE='EXCLU',
                                   VALE=(
          20.            ,14.7            *coef0,
          50.            ,15.2            *coef0,
          100.           ,15.8            *coef0,
          150.           ,16.7            *coef0,
          200.           ,17.2            *coef0,
          250.           ,18.             *coef0,
          300.           ,18.6            *coef0,
          350.           ,19.3            *coef0,
          400.           ,20.             *coef0,
          450.           ,20.5            *coef0,
          500.           ,21.1            *coef0,
          550.           ,21.7            *coef0,
          600.           ,22.2            *coef0,
          650.           ,22.7            *coef0,
          700.           ,23.2            *coef0,
          750.           ,23.7            *coef0,
          800.           ,24.1            *coef0,
          950.           ,26.67           *coef0,
          1150.          ,29.24           *coef0,
          1370.          ,32.06           *coef0,
          ))

DEFI_MATERIAU(  ELAS=_F( RHO = 1.E08,  
                         NU = 0.3,  
                         E = A0(TEMP_MOY)))

FIN()