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  SP204843  26/09/28    21:15:06     12576          
  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;idef=faux;idei=faux;ivar=faux;item=faux;ipha=faux;
  24. ivit=faux;irea=faux;iqth=faux;iqdi=faux;imod=faux;itap=faux;idap=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 'DEFORMATIONS');
  39.      idef=vrai;def=preced.'DEFORMATIONS';
  40.   'FINSI';  
  41.   'SI' ('EGA'   ind . &bou2 'DEFORMATIONS_INELASTIQUES');
  42.      idei=vrai;dei=preced.'DEFORMATIONS_INELASTIQUES';
  43.   'FINSI';  
  44.   'SI' ('EGA'   ind . &bou2 'VARIABLES_INTERNES');
  45.      ivar=vrai;var=preced.'VARIABLES_INTERNES';
  46.   'FINSI';    
  47.   'SI' ('EGA'   ind . &bou2 'TEMPERATURES');
  48.      item=vrai;tem= preced.'TEMPERATURES';
  49.   'FINSI';      
  50.   'SI' ('EGA'   ind . &bou2 'PROPORTIONS_PHASE');
  51.      ipha=vrai;pha =preced . 'PROPORTIONS_PHASE';
  52.   'FINSI';        
  53.   'SI' ('EGA'   ind . &bou2 'VITESSES');
  54.      ivit=vrai;vit=preced.'VITESSES';
  55.   'FINSI';     
  56.   'SI' ('EGA'   ind . &bou2 'REACTIONS');
  57.      irea=vrai;rea=preced.'REACTIONS';
  58.   'FINSI';   
  59.   'SI' ('EGA'   ind . &bou2 'REACTIONS_THERMIQUES');
  60.      iqth=vrai;qth=preced.'REACTIONS_THERMIQUES';
  61.   'FINSI';   
  62.   'SI' ('EGA'   ind . &bou2 'REACTIONS_DIFFUSIONS');
  63.      iqdi=vrai;qdi=preced.'REACTIONS_DIFFUSIONS';
  64.   'FINSI';   
  65.   'SI' ('EGA'   ind . &bou2 'MODELES');
  66.      imod=vrai;mod=preced.'MODELES';
  67.   'FINSI';   
  68.   'SI' ('EGA'   ind . &bou2 'TEMPERATURES_APPORT');
  69.      itap=vrai;tap=preced.'TEMPERATURES_APPORT';
  70.   'FINSI';   
  71.   'SI' ('EGA'   ind . &bou2 'DEFORMATIONS_APPORT');
  72.      idap=vrai;dap=preced.'DEFORMATIONS_APPORT';
  73.   'FINSI';   
  74. 'FIN' bou2;
  75.  
  76. nsup= ns - nsor;
  77. 'SI' ( nsup > 0);
  78.   'REPE' bou3 nsup;
  79.     ie= nsor + &bou3;
  80.     tt= temp.ie;'OTER' temp ie;
  81.     mess ' suppression du temps sauves ' tt;
  82.     'SI' idep; 'OTER' dep ie;'FINSI'; 
  83.     'SI' icon; 'OTER' con ie;'FINSI';
  84.     'SI' idef; 'OTER' def ie;'FINSI';
  85.     'SI' idei; 'OTER' dei ie;'FINSI';
  86.     'SI' ivar; 'OTER' var ie;'FINSI';
  87.     'SI' item; 'OTER' tem ie;'FINSI';
  88.     'SI' ipha; 'OTER' pha ie;'FINSI';
  89.     'SI' ivit; 'OTER' vit ie;'FINSI';
  90.     'SI' irea; 'OTER' rea ie;'FINSI';
  91.     'SI' iqth; 'OTER' qth ie;'FINSI';
  92.     'SI' iqdi; 'OTER' qdi ie;'FINSI';
  93.     'SI' imod; 'OTER' mod ie;'FINSI';
  94.     'SI' itap; 'OTER' tap ie;'FINSI';
  95.     'SI' idap; 'OTER' dap ie;'FINSI';
  96.   'FIN' bou3;
  97. 'FINSI';
  98. 'FINP' ;
  99.  
  100.  
  101.  

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