Procedures | Cast3M

   1 : * ACIER     PROCEDUR  CHAT      92/09/01    21:15:06     639            
   2 : 'DEBPROC' ACIER   MM*'MOT'  OBMOD*'MMODEL' ;                     
   3 :                                                                                 
   4 :  'REPETER'  FINPPP  1 ;                                                         
   5 : 'SI' ('EGA' MM 'A316L');                                                        
   6 :   E = 2.D+11;    XNU=0.3;   RR=7800;  ALP = 12.D-6;                             
   7 : 'SINON';                                                                        
   8 : 'ERREUR' ' TYPE D ACIER INCONNU';                                               
   9 :  MMM =  'MOT' 'PASBON' ;   'QUIT' FINPPP;                                       
  10 : 'FINSI';                                                                        
  11 : MMM = 'MATR' OBMOD 'YOUNG' E 'NU' XNU 'RHO' RR 'ALPHA'  ALP ;                   
  12 : 'FIN'    FINPPP ;                                                               
  13 : 'FINPROC' MMM;