Procédures | Cast3M

* PAS_MATE  PROCEDUR  FD218221  26/02/13    21:15:28     12462          
'DEBP' PAS_MATE PRECED*'TABLE' ETAT*'MCHAML' ;
 
WTAB = PRECED.'WTABLE' ;
MMM  = WTAB.'CARACTERISTIQUES' ;
'SI' (WTAB.'MATVAR' 'OU' WTAB.'MODAL' 'OU' WTAB.'FREQUENTIEL' 'OU' WTAB.'BETON_THM') ;
*
  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 ;
* (G. Sciume) Cas du modele BETON_THM
  'SI' ('EXIS' PRECED 'VARIABLES_THM') ;
    WTAB .'CARACTERISTIQUES' = @PARAMEC PRECED ;
  'FINSI' ;
*
'SINON' ;
  WTAB.'MA_COMP' = MMM ;
'FINSI' ;
'FINPROC' MMM ;