Procédures | Cast3M

* CHARTHER  PROCEDUR  FANDEUR   17/04/06    21:15:01     9389           
'DEBP' charther PRECED*'TABLE' tt*'FLOTTANT' ;
*
* 'MESS' '**** Entree dans charther tt vaut ' tt ' ****' ; 
*
* Table d'entree des donnees :
  ETAB = PRECED.'WTABLE' ;
 
* Table de sortie a remplir si besoin :
  TAA = 'TABLE' ;
*
*-->  TAA.'ADDI_SECOND'  = CHPOINT (flux) a ajouter au second membre ;
*-->  TAA.'ADDI_MATRICE' = RIGIDITE (cond/capa) a ajouter au 1er membre  ; 
 
  'RESPRO' TAA ;
'FINPROC' ;