Télécharger pas_repr.procedur

Retour à la liste

Numérotation des lignes :

  1. * PAS_REPR PROCEDUR CB215821 15/09/30 21:15:02 8651
  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 ' 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.  
  81.  
  82.  
  83.  
  84.  
  85.  

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