Procedures | Cast3M

   1 : * PAS_VERM  PROCEDUR  CHAT      13/03/21    21:15:07     7735           
   2 : 'DEBPROC' PAS_VERM PRECED*'TABLE' chetat1*'MCHAML';
   3 : *---------- verifications qu'il existe bien les donnees necessaires
   4 : *---------- au matériaux
   5 : conti=PRECED.'CONTINUATION';
   6 : WTAB=PRECED.'WTABLE';
   7 : LDEVA = 'EXTR' WTAB.'MA_TOTAL' 'DEVA';                               
   8 : LPAR0 = 'EXTR' WTAB.'MO_TOTAL' 'PARA';      
   9 : LDEVA_DI = 'DIME' LDEVA;
  10 : nocom='EXTR'  CHETAT1 'COMP';
  11 : 'SI' ('NEG' LDEVA_DI 0);
  12 : 
  13 :    'REPETER' BOU_VA1 LDEVA_DI;                                       
  14 :         ITE1 = &BOU_VA1;                                               
  15 :         NOM1 = 'EXTR' LDEVA ITE1;
  16 :         'SI' ('NON' ('EXISTE'   nocom NOM1)); 
  17 :             'MESS' 'Il manque la variable ' NOM1 ;                       
  18 :             'ERRE'  ' '; 
  19 :         'FINSI';               
  20 :    'FIN' BOU_VA1;
  21 :    'SI' WTAB.'FOR_MECA' ;
  22 :      'SI'  WTAB.'MEC1' ; 
  23 :         MA=WTAB.'MAT_MEC'; 
  24 :         'SI' WTAB.'POR1' ;
  25 :           MA= MA 'ET' WTAB.'MAT_POR';
  26 :         'FINSI';
  27 :      'SINON';
  28 :         MA=WTAB.'MAT_POR';
  29 :      'FINSI';   
  30 :       LDEVAM='EXTR' MA 'DEVA';     
  31 :       LDEVA_DI = 'DIME' LDEVAM;   
  32 :      'SI' ('NEG' LDEVA_DI 0);
  33 :         'SI' ('NON' (('EGA' LDEVA_DI 1) 'ET' 
  34 :              ( 'EGA' (LDEVAM 'EXTR' 1) 'ALPH' ) ));
  35 :             WTAB.'RECALCUL'= VRAI;
  36 :         'FINSI';
  37 :          WTAB.'MATVAR'=VRAI;WTAB.'LDEVA'=LDEVAM;       
  38 :      'FINSI';
  39 :    'FINSI';  
  40 : 'FINSI';
  41 : *------- le modèle depend-t-il de parametres externes? Si oui verification
  42 : *------- de leur presence.
  43 : 'SI' WTAB.'PARA_EXTE';
  44 :     TEMP0=conti.'TEMPS';
  45 :     LPAR0_DI = 'DIME' LPAR0;                                                    
  46 :    'REPETER' BOU_PA1 LPAR0_DI;                                                  
  47 :        NOM1 = 'EXTR' LPAR0 &BOU_PA1; 
  48 :        'SI' ('NON' ('EXISTE'   nocom NOM1)); 
  49 :             'MESS' 'Il manque la variable ' NOM1  ;                      
  50 :             'ERRE'  ' '; 
  51 :        'FINSI';  
  52 :    'FIN' BOU_PA1;   
  53 :    'SI' WTAB.'FOR_MECA' ;
  54 :      WTAB.'PARA_EXTE'=FAUX;
  55 :      'SI'  WTAB.'MEC1' ; 
  56 :         MO=WTAB.'MOD_MEC'; 
  57 :         'SI' WTAB.'POR1' ;
  58 :           MO= MO 'ET' WTAB.'MOD_POR';
  59 :         'FINSI';
  60 :      'SINON';
  61 :         MO=WTAB.'MOD_POR';
  62 :      'FINSI';                 
  63 :      LPAR0 = 'EXTR' MO 'PARA'; 
  64 :      LPAR0_DI = 'DIME' LPAR0;
  65 :      'SI' ( LPAR0_DI  'NEG' 0) ;
  66 :        WTAB.'PARA_EXTE'=VRAI;
  67 :        WTAB.'LPAR0'= LPAR0 ;
  68 :      'FINSI';
  69 :    'FINSI';
  70 : 'FINSI';                                           
  71 : 'FINPROC';
  72 :  
  73 :  
  74 :  
  75 :