Télécharger la plaquette Cast3M


fr en

Télécharger pas_repr.procedur

Retour à la liste

Numérotation des lignes : 

  1. * PAS_REPR  PROCEDUR  MB234859  23/01/09    21:15:06     11548          
  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;irea=faux;iqth=faux;iqdi=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_PHASE');
  45.      ipha=vrai;pha =preced . 'PROPORTIONS_PHASE';
  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.   'SI' ('EGA'   ind . &bou2 'REACTIONS_THERMIQUES');
  54.      iqth=vrai;qth=preced.'REACTIONS_THERMIQUES';
  55.   'FINSI';   
  56.   'SI' ('EGA'   ind . &bou2 'REACTIONS_DIFFUSIONS');
  57.      iqdi=vrai;qdi=preced.'REACTIONS_DIFFUSIONS';
  58.   'FINSI';   
  59. 'FIN' bou2;
  60.  
  61. nsup= ns - nsor;
  62. 'SI' ( nsup > 0);
  63.   'REPE' bou3 nsup;
  64.     ie= nsor + &bou3;
  65.     tt= temp.ie;'OTER' temp ie;
  66.     mess ' suppression du temps sauves ' tt;
  67.     'SI' idep; 'OTER' dep ie;'FINSI'; 
  68.     'SI' icon; 'OTER' con ie;'FINSI';
  69.     'SI' ivar; 'OTER' var ie;'FINSI';
  70.     'SI' item; 'OTER' tem ie;'FINSI';
  71.     'SI' ipha; 'OTER' pha ie;'FINSI';
  72.     'SI' ivit; 'OTER' vit ie;'FINSI';
  73.     'SI' irea; 'OTER' rea ie;'FINSI';
  74.     'SI' iqth; 'OTER' qth ie;'FINSI';
  75.     'SI' iqdi; 'OTER' qdi ie;'FINSI';
  76.   'FIN' bou3;
  77. 'FINSI';
  78. 'FINP' ;
  79.  
  80.  

© Cast3M 2003 - Tous droits réservés.
Mentions légales