Procédures | Cast3M

* 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;