Télécharger chmdgk.eso

Retour à la liste

Numérotation des lignes :

  1. C CHMDGK SOURCE CHAT 05/01/12 21:58:52 5004
  2. SUBROUTINE CHMDGK(IGKMOD,IGKTMP,IP1,IP2,IP3,IP4,IP5)
  3. IMPLICIT INTEGER(I-N)
  4. IMPLICIT REAL*8 (A-H,O-Z)
  5. C------------------------------------------------------------------
  6. C
  7. C ON FAIT LE MENAGE POUR LES DONNEES DE TEMPERATURE
  8. C
  9. C------------------------------------------------------------------
  10. -INC SMLENTI
  11. -INC SMLREEL
  12. -INC CCOPTIO
  13. SEGMENT LGKMOD
  14. REAL*8 DELH0(NYDIM),DELCP0(NYDIM)
  15. ENDSEGMENT
  16. SEGMENT LGKTMP
  17. INTEGER NUMT(NYDIM),NTVT(NYDIM)
  18. REAL*8 TMIMA(NYDIM,NT)
  19. REAL*8 POLYT(NYDIM,NT4),TGKLU(NYDIM,NT)
  20. ENDSEGMENT
  21. C
  22. IF(IGKMOD.NE.0)THEN
  23. C BASE MINEQL
  24. LGKMOD=IGKMOD
  25. SEGSUP LGKMOD
  26. MLREEL=IP1
  27. SEGDES MLREEL
  28. MLREEL=IP2
  29. SEGDES MLREEL
  30. ELSEIF(IGKTMP.NE.0)THEN
  31. C BASE DE STASBOURG
  32. LGKTMP=IGKTMP
  33. SEGSUP LGKTMP
  34. MLREEL=IP1
  35. SEGDES MLREEL
  36. MLREEL=IP2
  37. SEGDES MLREEL
  38. MLREEL=IP3
  39. SEGDES MLREEL
  40. MLENTI=IP4
  41. SEGDES MLENTI
  42. MLENTI=IP5
  43. SEGDES MLENTI
  44. ENDIF
  45. RETURN
  46. END
  47.  
  48.  
  49.  
  50.  

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