Procedures | Cast3M

   1 : * @ZACPRO4  PROCEDUR  CHAT      95/12/13    21:46:36     1945           
   2 : *--------------------------EXTRACTION DES CONTRAINTES-----------------*
   3 : 
   4 : 'DEBP' @ZACPRO4 BB*'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 : CO1      = 'EXCO' 'SMXX' BB 'SCAL';
  14 : CO2      = 'EXCO' 'SMYY' BB 'SCAL';
  15 : CO3      = 'EXCO' 'SMZZ' BB 'SCAL'; 
  16 : CO4      = 'EXCO' 'SMXY' BB 'SCAL';
  17 : CO5      = CO1*0.;
  18 : CO6      = CO1*0.;
  19 : 'FINSI';
  20 : 'SI' COND2;
  21 : CO1      = 'EXCO' 'SMXX' BB 'SCAL';
  22 : CO2      = 'EXCO' 'SMYY' BB 'SCAL';
  23 : CO3      = 'EXCO' 'SMZZ' BB 'SCAL';
  24 : CO4      = 'EXCO' 'SMXY' BB 'SCAL';
  25 : CO5      = CO1*0.;
  26 : CO6      = CO1*0.;
  27 : 'FINSI';
  28 : 'SI' COND3;
  29 : CO1      = 'EXCO' 'SMRR' BB 'SCAL';
  30 : CO2      = 'EXCO' 'SMZZ' BB 'SCAL';
  31 : CO3      = 'EXCO' 'SMTT' BB 'SCAL';
  32 : CO4      = 'EXCO' 'SMRZ' BB 'SCAL';
  33 : CO5      = CO1*0.;
  34 : CO6      = CO1*0.;
  35 : 'FINSI';
  36 : 'SI' COND4;
  37 : CO1      = 'EXCO' 'SMXX' BB 'SCAL';
  38 : CO2      = 'EXCO' 'SMYY' BB 'SCAL';
  39 : CO3      = 'EXCO' 'SMZZ' BB 'SCAL';
  40 : CO4      = 'EXCO' 'SMXY' BB 'SCAL';
  41 : CO5      = 'EXCO' 'SMXZ' BB 'SCAL';
  42 : CO6      = 'EXCO' 'SMYZ' BB 'SCAL';
  43 : 'FINSI';
  44 : 'FINP' CO1 CO2 CO3 CO4 CO5 CO6;
  45 :