Download pas_mate.procedur

Back to the list

   1 : * PAS_MATE  PROCEDUR  CHAT      12/12/10    21:15:09     7599           
   2 : 'DEBPROC' PAS_MATE PRECED*'TABLE'  MCHC*'MCHAML';                       
   3 : WTAB=PRECED.'WTABLE';                                                   
   4 : 'SI' WTAB.'MEC1'; MA=WTAB.'MAT_MEC';MO=WTAB.'MOD_MEC';                  
   5 :     'SI'  WTAB.'POR1' ;                                                 
   6 :      MA=MA 'ET' WTAB.'MAT_POR';MO=MO 'ET' WTAB.'MOD_POR';               
   7 :     'FINSI';                                                            
   8 : 'SINON';                                                                
   9 :     MA= WTAB.'MAT_POR';MO=WTAB.'MOD_POR';                               
  10 : 'FINSI';         
  11 : 'SI' ('EXISTE' WTAB 'MOD_LIA') ; 
  12 :   MO = MO 'ET' WTAB.'MOD_LIA' ; MA = MA 'ET' WTAB.'MAT_LIA' ;
  13 : 'FINSI' ;                                                       
  14 : *  Pour certains matériaux on ne fait aucune instanciation              
  15 : *  pour les passer à l'opérateur 'COMP' --------------                  
  16 : ISPE=FAUX;ISTA=FAUX;IBET=FAUX;                                          
  17 :   TABMOD = 'EXTR' MO 'ZONE' ;  ISTRUB1 = 1 ;                            
  18 : *  list tabmod;                                                         
  19 :   'REPE' STRUB1 ((DIME TABMOD) / 2) ;                                   
  20 :      MMO= TABMOD.ISTRUB1;                                               
  21 :      'SI'   ((  'EXISTE' MMO 'MATE' 'ENDOMMAGEABLE')                    
  22 :          'OU' ('EXISTE' MMO 'MATE' 'VISCODOMMAGE')                      
  23 :          'OU' ('EXISTE' MMO 'MATE' 'PLASTIQUE_ENDOM') ) ;               
  24 :          'SI' ISPE;                                                     
  25 :             MOD_SPE=MOD_SPE 'ET' MMO;                                   
  26 :             MAT_SPE =  MAT_SPE  'ET' ('REDU' MA MMO);                   
  27 :          'SINON';                                                       
  28 :             MOD_SPE= MMO;                                               
  29 :             MAT_SPE = 'REDU' MA  MMO;  ISPE=VRAI;                       
  30 :          'FINSI';                                                       
  31 :      'SINON';                                                           
  32 :          'SI'  ( ('EXISTE' MMO  'MATE' 'DRUCKER_PARFAIT' )              
  33 :          'OU' ('EXISTE' MMO 'MATE' 'MAZARS')  );                        
  34 :              'SI' IBET;                                                 
  35 :                  MOD_BET=MOD_BET 'ET' MMO;                              
  36 :                  MAT_BET=MAT_BET 'ET'  ('REDU'  MA  MMO);               
  37 :               'SINON';                                                  
  38 :                  MOD_BET= MMO;                                          
  39 :                  MAT_BET= 'REDU'  MA  MMO ;IBET=VRAI;                   
  40 :               'FINSI';                                                  
  41 :          'SINON';                                                       
  42 :              'SI' ISTA;                                                 
  43 :                 MOD_STA=MOD_STA 'ET' MMO;                               
  44 :                 MAT_STA = MAT_STA   'ET' ( 'REDU'  MA  MMO);            
  45 :              'SINON';                                                   
  46 :                 MOD_STA=MMO;                                            
  47 :                 MAT_STA = 'REDU' MA MMO;  ISTA=VRAI;                    
  48 :              'FINSI';                                                   
  49 :          'FINSI';                                                       
  50 :      'FINSI';                                                           
  51 :      ISTRUB1 = ISTRUB1 + 2;                                             
  52 :   'FIN' STRUB1;                                                         
  53 :                                                                         
  54 : 'SI' IBET;                                                              
  55 :  'SI' WTAB.'BETON_HT';                                                  
  56 : * traitement particuulier pour béton HT                                 
  57 :   LDEV= EXTR MAT_BET 'DEVA';                                            
  58 :   'SI' ('EXIS' LDEV 'T   ');                                            
  59 :       T1=  WTAB*'TET1';T2=WTAB.'TET2';                                  
  60 :       MAT_BET  IMAUVAIS=IDBHT  MAT_BET  MOD_BET T1 T2;                  
  61 :       'SI' IMAUVAIS;                                                    
  62 :          'QUITTER' PASAPAS;                                             
  63 :       'FINSI';                                                          
  64 :   'FINSI';                                                              
  65 :   'FINSI';                                                              
  66 :   'SI' ISTA ;                                                           
  67 :      MAT_STA = MAT_STA 'ET' MAT_BET ;                                   
  68 :      MOD_STA = MOD_STA 'ET' MOD_BET;                                    
  69 :   'SINON';                                                              
  70 :      MAT_STA = MAT_BET;                                                 
  71 :      MOD_STA = MOD_BET;                                                 
  72 :      ISTA=VRAI;                                                         
  73 :   'FINSI';                                                              
  74 : 'FINSI';                                                                
  75 : 'SI' ISTA;                                                              
  76 :     MCHCR= REDU MCHC MOD_STA;                                           
  77 :     MMM =  'VARI' 'NUAG' MOD_STA MAT_STA MCHCR 'RIGIDITE';              
  78 :     WTAB.'MA_COMP'= MMM ;                               
  79 :     'SI' ISPE;
  80 :         MMM= MMM 'ET' ('VARI' 'NUAG' MOD_SPE MAT_SPE MCHC 'RIGIDITE');  
  81 :         WTAB.'MA_COMP'= MMM 'ET' MAT_SPE;                               
  82 :     'FINSI';                                                            
  83 : 'SINON';                                                                
  84 :     MMM='VARI' 'NUAG' MOD_SPE MAT_SPE MCHC 'RIGIDITE';                  
  85 :     WTAB.'MA_COMP'= MAT_SPE;                                            
  86 : 'FINSI';                                                                
  87 : 'FINPROC' MMM;                                                          
  88 :  
  89 :  
  90 :  

© Cast3M 2003 - All rights reserved.
Disclaimer