Télécharger pas_resu.procedur

Retour à la liste

Numérotation des lignes :

  1. * PAS_RESU PROCEDUR PV090527 24/03/14 21:15:02 11869
  2. 'DEBP' PAS_RESU TEMP0*'FLOTTANT' IAUTO*'ENTIER' PRECED*'TABLE' ;
  3.  
  4. WTAB = PRECED.'WTABLE';
  5. *
  6. * Recuperation de la table 'ESTIMATION' des champs en fin de pas :
  7. estim = PRECED.'ESTIMATION' ;
  8. *
  9. * Remplissage de la table de 'CONTINUATION' a partir de 'ESTIMATION'
  10. conti= PRECED.'CONTINUATION';
  11. *
  12. 'SI' ('NEG' estim.'TEMPS' TEMP0 ('VALE' 'PREC'));
  13. 'MESS' 'Temps differents dans PAS_RESU ?' ;
  14. estim.'TEMPS' = TEMP0 ;
  15. 'FINS';
  16.  
  17. * Transfert des indices de la table "estim" dans "conti"
  18. DIM1 = 'DIME' estim ;
  19. INDEX1 = 'INDE' estim ;
  20.  
  21. 'REPE' SURi DIM1 ;
  22. ii = &SURi;
  23. TYP1 ='TYPE' INDEX1.ii;
  24. 'SI' ('NEG' TYP1 'MOT');
  25. MOT_tmp = INDEX1.ii ;
  26. 'SINO';
  27. MOT_tmp ='MOT' INDEX1.ii;
  28. 'FINS';
  29. conti.MOT_tmp = estim.MOT_tmp ;
  30. 'FIN' SURi;
  31.  
  32. ************************************************************************
  33. *************** Sauvegarde eventuelle des resultats ********************
  34. ************************************************************************
  35. *La sauvegarde n'est faite que si on a eu convergence des calculs :
  36. ISAUV = FAUX;
  37. 'SI' WTAB.'CONV' ;
  38. ISAUV ='DANS' WTAB.'IPRESU' TEMP0 ;
  39.  
  40. 'SI' ('MULT' IAUTO WTAB.'NAURES' ) ;
  41. ISAUV = VRAI ;
  42. 'FINSI' ;
  43. 'FINSI' ;
  44.  
  45. 'SI' ISAUV ;
  46. NSOR = WTAB.'NSOR' + 1 ;
  47. WTAB.'NSOR' = NSOR ;
  48.  
  49. * Cas particuliers de 'DEFIN' et 'DEFTO'
  50. TABSAUV = WTAB.'TABSAUV' ;
  51. 'SI' ('NON' TABSAUV.'DEFTO');
  52. 'SI' ('EXIS' estim 'DEFORMATIONS');
  53. estim ='ENLE' estim 'DEFORMATIONS';
  54. 'FINS';
  55. 'FINSI' ;
  56.  
  57. 'SI' ('NON' TABSAUV.'DEFIN') ;
  58. 'SI' ('EXIS' estim 'DEFORMATIONS_INELASTIQUES');
  59. estim ='ENLE' estim 'DEFORMATIONS_INELASTIQUES';
  60. 'FINS';
  61. 'FINSI' ;
  62.  
  63. * Transfert des indices de la table "estim" dans PRECED
  64. DIM1 ='DIME' estim;
  65. INDEX1='INDE' estim;
  66.  
  67. 'REPE' SURi DIM1 ;
  68. ii = &SURi;
  69. TYP1 ='TYPE' INDEX1.ii;
  70. 'SI' ('NEG' TYP1 'MOT');
  71. MOT_tmp = INDEX1.ii ;
  72. OBJi = estim.MOT_tmp ;
  73.  
  74. 'SINO';
  75. MOT_tmp ='MOT' INDEX1.ii;
  76. OBJi = estim.MOT_tmp ;
  77. 'SI' ('EGA' TYP1 'TABL');
  78. 'SI' ('EXIS' estim.MOT_tmp 'SOUSTYPE');
  79. 'SI' ('EGA' estim.MOT_tmp.'SOUSTYPE' 'ESCLAVE');
  80. ERRE 21;
  81. OBJi ='ETG' estim.MOT_tmp ;
  82. 'FINS';
  83. 'FINS';
  84. 'FINS';
  85. 'FINS';
  86. 'SI'('NON' ('EXIS' PRECED MOT_tmp));
  87. PRECED.MOT_tmp ='TABL' ;
  88. 'FINS';
  89. PRECED.MOT_tmp.NSOR = estim.MOT_tmp ;
  90. 'FIN' SURi;
  91.  
  92. *-----------------------------------------------------------------------
  93. *--- 1- Sauvegarde incrementale sous certaines conditions
  94. *--- 2- Fantomisation (option 'ECONOMIQUE'=VRAI de PASAPAS) pour liberer la memoire
  95. *-----------------------------------------------------------------------
  96. 'SI' WTAB.'ISAUVEGL';
  97. ltpssauv = WTAB.'ISAUVEGA' ;
  98. 'SI' ('DANS' ltpssauv TEMP0) ;
  99. EPOQ1 ='DATE' 'EPOCH' ;
  100. * Sauvegarde : Dernier pas OU toutes les 300 secondes OU si DATE ne marche pas
  101. * Fantomisation si on sauvegarde effectivement !
  102. 'SI' ( ('EGA' TEMP0 ('EXTR' ltpssauv ('DIME' ltpssauv)))
  103. 'OU' ((EPOQ1 '-' WTAB.'EPOQUE') '>EG' 300.D0)
  104. 'OU' (EPOQ1 'EGA' 0)) ;
  105.  
  106. 'SAUV' 'MUET' PRECED ;
  107. WTAB.'EPOQUE' =EPOQ1 ;
  108.  
  109. 'SI' WTAB.'LECONOMI';
  110. NFFSOR = NSOR '-' WTAB.'NFSOR' '-' 1 ;
  111. 'SI' ( NFFSOR '>' 0) ;
  112.  
  113. * Boucle sur les instants SAUVES depuis la derniere fantomisation
  114. 'REPE' DETRES NFFSOR ;
  115. NSORM2 = WTAB.'NFSOR' - 1 + &DETRES ;
  116. 'SI' (NSORM2 '<' 0) ;
  117. 'ITER' DETRES ;
  118. 'FINSI' ;
  119.  
  120. * Boucle sur les indices a fantomiser
  121. 'REPE' SURi DIM1 ;
  122. ii = &SURi;
  123. TYP1 ='TYPE' INDEX1.ii;
  124. 'SI' ('NEG' TYP1 'MOT');
  125. MOT_tmp = INDEX1.ii ;
  126. 'SINO';
  127. MOT_tmp ='MOT' INDEX1.ii;
  128. 'FINS';
  129. 'FANTOM' PRECED.MOT_tmp NSORM2 ;
  130. 'FIN' SURi;
  131. 'FIN' DETRES ;
  132. WTAB.'NFSOR'= WTAB.'NFSOR' + NFFSOR ;
  133. 'FINSI' ;
  134. 'FINS' ;
  135. 'FINSI';
  136. 'FINSI';
  137. 'FINSI';
  138. 'FINSI' ;
  139. 'FINP' ISAUV ;
  140.  
  141.  
  142.  
  143.  

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