Procedures | Cast3M

   1 : * PAS_REPR  PROCEDUR  CHAT      11/03/16    21:28:48     6902           
   2 : 'DEBP' PAS_REPR preced*'TABLE';
   3 : tt = preced.'REPRISE';
   4 : temp= preced.'TEMPS';
   5 : ns= ('DIME' temp  ) - 1;
   6 : t0=temp . 0;nsor=0;
   7 : 'REPE' bou ns;
   8 :   t1= temp . &bou;
   9 :   dt= t1 - t0 / 1.e6;
  10 :   'SI' ( tt < (t1 + dt));
  11 :      'SI' ( tt > (t1-dt));
  12 :        NSOR=  &bou;
  13 : *       mess 'on a trouve le temps ' tt;
  14 :        'QUITTER' bou;
  15 :      'FINSI';
  16 :   'FINSI';
  17 :   t0=t1;
  18 : 'FIN' bou;
  19 : 'SI' ( nsor 'EGA' 0);
  20 :    'ERREUR' 1010;
  21 : 'FINSI';
  22 : ind = index preced;
  23 : nin= dime ind;idep=faux;icon=faux;ivar=faux;item=faux;ipha=faux;
  24 : ivit=faux;idfl=faux;irot=faux;irea=faux;
  25 : 'REPETER' bou2 nin;
  26 :   'SI' ( 'EGA'  ind . &bou2  'WTABLE') ;
  27 :       'OTER' PRECED 'WTABLE';
  28 :   'FINSI';
  29 :   'SI' ( 'EGA'  ind . &bou2  'CONTINUATION');
  30 :      'OTER' PRECED 'CONTINUATION';
  31 :   'FINSI'; 
  32 :   'SI' ('EGA'   ind . &bou2 'DEPLACEMENTS');
  33 :      idep=vrai;dep=preced.'DEPLACEMENTS';
  34 :   'FINSI';
  35 :   'SI' ('EGA'   ind . &bou2 'CONTRAINTES');
  36 :      icon=vrai;con=preced.'CONTRAINTES';
  37 :   'FINSI';  
  38 :   'SI' ('EGA'   ind . &bou2 'VARIABLES_INTERNES');
  39 :      ivar=vrai;var=preced.'VARIABLES_INTERNES';
  40 :   'FINSI';    
  41 :   'SI' ('EGA'   ind . &bou2 'TEMPERATURES');
  42 :      item=vrai;tem= preced.'TEMPERATURES';
  43 :   'FINSI';      
  44 :   'SI' ('EGA'   ind . &bou2 'PROPORTIONS_PHASES');
  45 :      ipha=vrai;pha =preced . 'PROPORTIONS_PHASES';
  46 :   'FINSI';        
  47 :   'SI' ('EGA'   ind . &bou2 'VITESSES');
  48 :      ivit=vrai;vit=preced.'VITESSES';
  49 :   'FINSI';     
  50 :   'SI' ('EGA'   ind . &bou2 'REACTIONS');
  51 :      irea=vrai;rea=preced.'REACTIONS';
  52 :   'FINSI';   
  53 : 'FIN' bou2;
  54 : 
  55 : nsup= ns - nsor;
  56 : 'SI' ( nsup > 0);
  57 :   'REPE' bou3 nsup;
  58 :     ie= nsor + &bou3;
  59 :     tt= temp.ie;'OTER' temp ie;
  60 :     mess ' suppression du temps ' tt;
  61 :     'SI' idep; 'OTER' dep ie;'FINSI'; 
  62 :     'SI' icon; 'OTER' con ie;'FINSI';
  63 :     'SI' ivar; 'OTER' var ie;'FINSI';
  64 :     'SI' item; 'OTER' tem ie;'FINSI';
  65 :     'SI' ipha; 'OTER' pha ie;'FINSI';
  66 :     'SI' ivit; 'OTER' vit ie;'FINSI';
  67 :     'SI' idfl; 'OTER' del ie;'FINSI';
  68 :     'SI' irot; 'OTER' rot ie;'FINSI';
  69 :     'SI' irea; 'OTER' rea ie;'FINSI';
  70 :   'FIN' bou3;
  71 : 'FINSI';
  72 : 'FINP' ;
  73 : 
  74 :  
  75 :