Procedures | Cast3M

   1 : * @GLOBAL   PROCEDUR  CHAT      12/08/07    21:15:03     7481           
   2 : DEBPROC @GLOBAL TAB1*TABLE BLO1*RIGIDITE COURB2*EVOLUTION MOEFF*MOT;
   3 : lp='EXISTE' tab1 'DEPLACEMENTS';
   4 : si lp;
   5 :   message 'table creee par pasapas';
   6 :   IND=TAB1.'TEMPS';
   7 :   NBINCR=('DIME' IND) - 1;
   8 : sinon; 
   9 :   IND='INDEX' (TAB1.RESUDEPL);
  10 :   NBINCR='DIME' IND;
  11 : FINSI;
  12 : LT='PROG' 0.;
  13 : iincr=0;
  14 : 'REPETER' BOU1 NBINCR;
  15 :     IINCR=IINCR+1;
  16 :     LT='INSE' LT (IINCR+1) IND.IINCR;
  17 : 'FIN' BOU1;
  18 : MAILL1='EXTR' BLO1 MAILL;
  19 : LIEFF='PROG' 0;
  20 : LIDEPL='EXTR' COURB2 ORDO;
  21 : LITEMP='EXTR' COURB2 ABSC;
  22 : LIDEP1='IPOL' LT LITEMP LIDEPL;
  23 : MESSAGE 'nombre d increments' nbincr;
  24 : iincr=0;
  25 : 'REPETER' BOU2 NBINCR;
  26 :    IINCR=IINCR+1;
  27 :    si lp;
  28 :      rea1=tab1.'REACTIONS'.iincr;
  29 :    sinon;
  30 :       REA1='REAC' BLO1 TAB1.RESUDEPL.(IND.IINCR);
  31 :    finsi;
  32 :    effy=@total REA1 maill1 moeff;
  33 :    XDEPL='EXTR' LIDEP1 (IINCR+1);
  34 :    'MESSAGE' 'increment ' IINCR 'effort 'effy 'deplacement' xdepl;
  35 :    LIEFF='INSE' LIEFF (IINCR+1) EFFY;
  36 : FIN BOU2;
  37 : 
  38 : EVOL1='EVOL' MANU DEPLAC LIDEP1 EFFORT LIEFF;
  39 : 'FINPROC' EVOL1;
  40 :  
  41 :