Procédures | Cast3M

* PAS_MATE  PROCEDUR  MB234859  25/02/21    21:18:06     12167          
'DEBP' PAS_MATE PRECED*'TABLE' ETAT*'MCHAML';
 
WTAB = PRECED.'WTABLE';
MMM  = WTAB.'CARACTERISTIQUES';
'SI' (WTAB.'MATVAR' 'OU' WTAB.'MODAL' 'OU' WTAB.'FREQUENTIEL');
*
  MO  = WTAB.'MO_VARI' ;
  MA  = 'REDU' MMM MO ;
  MM1 = 'VARI' 'NUAG' MO MA ETAT 'RIGIDITE' ;
*
  MO  = WTAB.'MOD_SPE' ;
  MA  = 'REDU' WTAB.'CARACTERISTIQUES' MO ;
  MM2 = 'VARI' 'NUAG' MO MA ETAT 'RIGIDITE' ;
*
  MAT_SPE = 'REDU' MMM WTAB.'MOD_SPE' ;
  WTAB.'MA_COMP' = MM1 'ET' MAT_SPE ;
  MMM = MM1 'ET' MM2 ;
*
'SINON' ;
  WTAB.'MA_COMP' = MMM ;
'FINSI';
'FINPROC' MMM ;