Procédures | Cast3M

* PAS_VERM  PROCEDUR  MB234859  25/02/21    21:18:07     12167          
'DEBPROC' PAS_VERM PRECED*'TABLE' chetat1*'MCHAML';
*
nocom = 'EXTR' CHETAT1 'COMP';
WTAB  = PRECED.'WTABLE';
*
* Verifier la presence des donnees necessaires au materiaux
'SI' WTAB.'MATVAR' ;
  'REPETER' BOU_VA1 ('DIME' WTAB.'LDEVA') ;                                       
    NOM1 = 'EXTR' WTAB.'LDEVA' &BOU_VA1 ;
    'SI' (WTAB.'FREQUENTIEL' 'ET' ('EGA' NOM1 'FREQ')) ; 'ITER' BOU_VA1 ; 'FINSI' ;
    'SI' (WTAB.'FOR_METALLU' 'ET' ('EGA' NOM1 'TPOI')) ; 'ITER' BOU_VA1 ; 'FINSI' ;
    'SI' ('NON' ('EXISTE' nocom NOM1)); 
      'MESS' 'Il manque la variable ' NOM1 ;                       
      'ERRE'  ' '; 
    'FINSI' ;
  'FIN' BOU_VA1;
'FINSI';
*
* Verifier la presence des parametres externes dont depend le modele
'SI' WTAB.'PARA_EXTE';
  'REPETER' BOU_PA1 ('DIME' WTAB.'LPAR0') ;                                                  
    NOM1 = 'EXTR' WTAB.'LPAR0' &BOU_PA1; 
    'SI' ('NON' ('EXISTE' nocom NOM1)); 
      'MESS' 'Il manque la variable ' NOM1  ;                      
      'ERRE'  ' '; 
    'FINSI';  
  'FIN' BOU_PA1;   
'FINSI';                                           
*
'FINPROC';