Procedures | Cast3M

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