Télécharger chitmp.eso

Retour à la liste

Numérotation des lignes :

  1. C CHITMP SOURCE CHAT 05/01/12 21:58:23 5004
  2. SUBROUTINE CHITMP(IDSCHI,LGKMOD,IOCHI3)
  3. C
  4. C
  5. C---------------------------------------------------------------------
  6. C SP ISSU DE TRIOEF
  7. C
  8. C SOUS-PROGRAMME APPELE PAR CHIMI1 SI LE CALCUL N'EST PAS REALISE
  9. C A TEMPERATURE CONSTANTE DE 25 ›C, SI LA BDD EST CELLE DE MINEQL
  10. C
  11. C CE SP CORRESPOND (+/-) A INPUTB DE MINEQL EIR;
  12. C ON LIT LES VALEURS DES VARIATIONS D'ENTHALPIE DES REACTIONS,
  13. C (DELTA H), ET DES VARIATIONS DE CAPACITE SPECIFIQUE (DELTA CP)
  14. C
  15. C----------------------------------------------------------------------
  16. C
  17. IMPLICIT INTEGER(I-N)
  18. IMPLICIT REAL*8(A-H,O-Z)
  19.  
  20. -INC CCOPTIO
  21. SEGMENT IDSCHI
  22. REAL*8 GK(NYDIM),AA(NYDIM,NXDIM),FF(NZDIM,NPDIM)
  23. INTEGER IDX(NXDIM),IDY(NYDIM),IDZ(NZDIM),IDP(NPDIM),NN(6)
  24. INTEGER IDECY(NYDIM),IONZ(NXDIM)
  25. CHARACTER*32 NAME(NXDIM),NAMESP(NYDIM)
  26. ENDSEGMENT
  27. SEGMENT LGKMOD
  28. REAL*8 DELH0(NYDIM),DELCP0(NYDIM)
  29. ENDSEGMENT
  30. CHARACTER*5 TXHT,TXCT,TEXT,IO5H
  31. DATA IO5H/' '/
  32. C
  33. C INITIALISATION DES "DELTA H"› ET "DELTA CP"› POUR LES COMPOSANTS
  34.  
  35. C WRITE(6,*) 'CHITMP '
  36. NYDIM=IDY(/1)
  37. SEGINI LGKMOD
  38. N0=NN(1)
  39. N01=N0+1
  40. N02=NN(1)+NN(2)+NN(3)+NN(4)+NN(5)+NN(6)
  41.  
  42. DO 10 I=1,N0
  43. DELH0(I)=0.D0
  44. DELCP0(I)=0.D0
  45. 10 CONTINUE
  46. C
  47. C LECTURE FICHIER BIBLIOTHEQUE ENREGISTREMENT N›LOGIQUE IOCHI3
  48. C
  49.  
  50. READ(IOCHI3,75) NET
  51. C WRITE(6,*) 'NET= ',NET
  52. 100 CONTINUE
  53. READ(IOCHI3,75) IDT,HT,TXHT,CT,TXCT
  54. NET=NET-1
  55. DO 30 I=N01,N02
  56. IF (IDT.EQ.IDY(I)) THEN
  57. DELH0(I)=HT
  58. DELCP0(I)=CT
  59. GO TO 35
  60. ENDIF
  61. 30 CONTINUE
  62. 35 CONTINUE
  63.  
  64. IF (NET.GT.0) GOTO 100
  65.  
  66. C write(6,777)(delh0(i),i=1,50)
  67. C 777 format(5(1x,1pe8.1))
  68.  
  69.  
  70.  
  71. C
  72. C MODIFICATIONS OU DEFINITIONS PAR DE NOUVELLES DONNEES:
  73. C ---- PAS ENCORE REALISE ----
  74. C CF INPUTB (P8) DANS MINEQL EIR
  75.  
  76. 75 FORMAT(I5,5(F9.2,1X,A5))
  77. C REWIND(UNIT=IOCHI3)
  78. C CLOSE(UNIT=IOCHI3)
  79.  
  80. RETURN
  81.  
  82. END
  83.  
  84.  
  85.  
  86.  
  87.  
  88.  
  89.  
  90.  

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