$$$$ ACIER * ACIER PROCEDUR FANDEUR 14/10/10 21:15:02 8178 'DEBPROC' ACIER MM*'MOT' OBMOD*'MMODEL' ; 'REPETER' FINPPP 1 ; 'SI' ('EGA' MM 'A316L'); E = 2.D+11; XNU=0.3; RR=7800; ALP = 12.D-6; 'SINON'; 'ERREUR' ' TYPE D ACIER INCONNU'; MMM = 'MOT' 'PASBON' ; 'QUIT' FINPPP; 'FINSI'; MMM = 'MATE' OBMOD 'YOUNG' E 'NU' XNU 'RHO' RR 'ALPHA' ALP ; 'FIN' FINPPP ; 'FINPROC' MMM;