Télécharger pas_resu.procedur

Retour à la liste

Numérotation des lignes :

  1. * PAS_RESU PROCEDUR CB215821 16/11/14 21:15:01 9167
  2. DEBPROC PAS_RESU TEMP0*'FLOTTANT' IAUTO*'ENTIER'
  3. PRECED*'TABLE' TT/'TABLE' ;
  4.  
  5. wtab = preced.'WTABLE';
  6. ipresu= WTAB.'IPRESU' ;
  7. NAURES= WTAB.'NAURES' ;
  8. MEC1 = WTAB.'FOR_MECA';
  9. THE1 = WTAB.'FOR_THER';
  10. * SP DIFF :
  11. DIF1 = WTAB.'FOR_DIFF';
  12. ITCAR = WTAB.'ITCAR' ;
  13. DT1 = WTAB.'DT' ;
  14. NSOR = WTAB.'NSOR' ;
  15.  
  16. * Recuperation de la table 'ESTIMATION' des champs en fin de pas :
  17. estim = PRECED.'ESTIMATION' ;
  18.  
  19. * remplissage de la table de 'CONTINUATION' a partir de 'ESTIMATION'
  20. 'SI' ( 'EXIS' PRECED 'CONTINUATION' );
  21. conti=PRECED.'CONTINUATION';
  22. 'SINON';
  23. conti= 'TABLE' ;
  24. PRECED.'CONTINUATION'=conti;
  25. 'FINSI';
  26. *
  27. conti.'TEMPS'=TEMP0;
  28. *
  29. 'SI' MEC1 ;
  30. conti.'DEPLACEMENTS' = estim.'DEPLACEMENTS' ;
  31. conti.'DEFORMATIONS' = estim.'DEFORMATIONS' ;
  32. conti.'CONTRAINTES' = estim.'CONTRAINTES' ;
  33. conti.'REACTIONS' = estim.'REACTIONS' ;
  34. 'SI' WTAB.'IPLAVI' ;
  35. conti.'VARIABLES_INTERNES' = estim.'VARIABLES_INTERNES' ;
  36. conti.'DEFORMATIONS_INELASTIQUES'
  37. = estim.'DEFORMATIONS_INELASTIQUES' ;
  38. 'FINSI' ;
  39. 'SI' WTAB . 'DYNAMIQUE' ;
  40. conti.'VITESSES' = estim.'VITESSES' ;
  41. conti.'ACCELERATIONS' = estim.'ACCELERATIONS' ;
  42. 'FINSI' ;
  43. * 'SI' ITCAR;
  44. * conti.'CARA_ACTU' = estim.'CARA_ACTU' ;
  45. * 'FINSI';
  46. 'FINSI';
  47.  
  48. 'SI' THE1;
  49. conti.'TEMPERATURES' = estim.'TEMPERATURES' ;
  50. * conti.'TEMPERATURES' = WTAB.'TET2' ;
  51. conti.'REACTIONS_THERMIQUES' = estim.'REACTIONS_THERMIQUES' ;
  52. 'SI' WTAB.'PHASE' ;
  53. conti.'PROPORTIONS_PHASE' = estim.'PROPORTIONS_PHASE' ;
  54. * conti.'PROPORTIONS_PHASE' = WTAB.'PROPPHAS' ;
  55. 'FINSI';
  56. 'FINSI';
  57.  
  58. * SP DIFF :
  59. 'SI' DIF1 ;
  60. conti.'CONCENTRATIONS' = estim.'CONCENTRATIONS' ;
  61. conti.'REACTIONS_DIFFUSIONS' = estim.'REACTIONS_DIFFUSIONS' ;
  62. 'FINS' ;
  63.  
  64. ************************************************************************
  65. *************** Sauvegarde eventuelle des resultats ********************
  66. ************************************************************************
  67. ISAUV=FAUX;
  68. 'SI' WTAB.'CONV';
  69. ISAUV='DANS' IPRESU TEMP0;
  70. 'SI' ( 'MULT' IAUTO NAURES ) ;
  71. ISAUV=VRAI;
  72. 'FINSI';
  73.  
  74. 'SI' ISAUV ;
  75. NSOR=NSOR + 1;
  76. WTAB.'NSOR'=NSOR;
  77. * SP DIFF :
  78. PAS_SAUV PRECED TT TEMP0 NSOR MEC1 THE1 DIF1 ;
  79. 'FINSI';
  80. 'FINSI';
  81.  
  82. 'FINP' isauv ;
  83.  
  84.  

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