Télécharger pas_resu.procedur

Retour à la liste

Numérotation des lignes :

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

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