Procedures | Cast3M

   1 : * @ZACPRO3  PROCEDUR  CHAT      95/12/13    21:46:30     1945           
   2 : *-----------------------EXTRACTION DES DEFORMATIONS-------------------*
   3 : 
   4 : 'DEBP' @ZACPRO3 CC*'MCHAML';
   5 : 
   6 : MODC     = VALEUR MODE;
   7 : 
   8 : COND1    = 'EGA' 'PLANCONT' MODC ;
   9 : COND2    = 'EGA' 'PLANDEFO' MODC ;
  10 : COND3    = 'EGA' 'AXIS' MODC ;
  11 : COND4    = 'EGA' 'TRID' MODC ;
  12 : 'SI' COND1;
  13 : EP1      = 'EXCO' 'EPXX' CC 'SCAL';
  14 : EP2      = 'EXCO' 'EPYY' CC 'SCAL';
  15 : EP3      = 'EXCO' 'EPZZ' CC 'SCAL';
  16 : EP4      = 'EXCO' 'GAXY' CC 'SCAL';
  17 : EP5      = EP1*0.;
  18 : EP6      = EP1*0.;
  19 : EP4      = EP4/2.;
  20 : 'FINSI';
  21 : 'SI' COND2;
  22 : EP1      = 'EXCO' 'EPXX' CC 'SCAL';
  23 : EP2      = 'EXCO' 'EPYY' CC 'SCAL';
  24 : EP3      = 'EXCO' 'EPZZ' CC 'SCAL';
  25 : EP4      = 'EXCO' 'GAXY' CC 'SCAL';
  26 : EP5      = EP1*0.;
  27 : EP6      = EP1*0.;
  28 : EP4      = EP4/2.;
  29 : 'FINSI';
  30 : 'SI' COND3;
  31 : EP1      = 'EXCO' 'EPRR' CC 'SCAL';
  32 : EP2      = 'EXCO' 'EPZZ' CC 'SCAL';
  33 : EP3      = 'EXCO' 'EPTT' CC 'SCAL';
  34 : EP4      = 'EXCO' 'GARZ' CC 'SCAL';
  35 : EP5      = EP1*0.;
  36 : EP6      = EP1*0.;
  37 : EP4      = EP4/2.;
  38 : 'FINSI';
  39 : 'SI' COND4;
  40 : EP1      = 'EXCO' 'EPXX' CC 'SCAL';
  41 : EP2      = 'EXCO' 'EPYY' CC 'SCAL';
  42 : EP3      = 'EXCO' 'EPZZ' CC 'SCAL';
  43 : EP4      = 'EXCO' 'GAXY' CC 'SCAL';
  44 : EP5      = 'EXCO' 'GAXZ' CC 'SCAL';
  45 : EP6      = 'EXCO' 'GAYZ' CC 'SCAL';
  46 : EP4      = EP4/2.;
  47 : EP5      = EP5/2.;
  48 : EP6      = EP6/2.;
  49 : 'FINSI';
  50 : 'FINP' EP1 EP2 EP3 EP4 EP5 EP6;
  51 :