Procédures | Cast3M

* @ZACPRO5  PROCEDUR  CHAT      95/12/13    21:46:40     1945           
*----------------------CALCUL DES DEVIATEURS------------------------*
 
'DEBP' @ZACPRO5 CO*'MCHAML' MO*'MMODEL';
SI1 SI2 SI3 SI4 SI5 SI6 = @ZACPRO4 CO;
TRA      = (SI1 + SI2 + SI3)/3.;
SIEL1    = SI1 - TRA;
SIEL2    = SI2 - TRA;
SIEL3    = SI3 - TRA;
SIEL4    = SI4;
SIEL5    = SI5;
SIEL6    = SI6;
DEVAA    = @ZACPRO2 SIEL1 SIEL2 SIEL3 SIEL4 SIEL5 SIEL6 MO;
'FINP' DEVAA;