Télécharger la plaquette Cast3M


fr en

Télécharger chitmp.eso

Retour à la liste

Numérotation des lignes : 

chitmp

  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.  
  21. -INC PPARAM
  22. -INC CCOPTIO
  23.       SEGMENT IDSCHI
  24.            REAL*8 GK(NYDIM),AA(NYDIM,NXDIM),FF(NZDIM,NPDIM)
  25.            INTEGER IDX(NXDIM),IDY(NYDIM),IDZ(NZDIM),IDP(NPDIM),NN(6)
  26.            INTEGER IDECY(NYDIM),IONZ(NXDIM)
  27.            CHARACTER*32 NAME(NXDIM),NAMESP(NYDIM)
  28.       ENDSEGMENT
  29.       SEGMENT LGKMOD
  30.            REAL*8 DELH0(NYDIM),DELCP0(NYDIM)
  31.       ENDSEGMENT
  32.        CHARACTER*5 TXHT,TXCT,TEXT,IO5H
  33.        DATA IO5H/'     '/
  34. C
  35. C  INITIALISATION DES "DELTA H"› ET "DELTA CP"› POUR LES COMPOSANTS
  36.  
  37. C      WRITE(6,*) 'CHITMP '
  38.        NYDIM=IDY(/1)
  39.        SEGINI LGKMOD
  40.        N0=NN(1)
  41.        N01=N0+1
  42.        N02=NN(1)+NN(2)+NN(3)+NN(4)+NN(5)+NN(6)
  43.  
  44.        DO 10 I=1,N0
  45.        DELH0(I)=0.D0
  46.        DELCP0(I)=0.D0
  47.  10    CONTINUE
  48. C
  49. C  LECTURE FICHIER BIBLIOTHEQUE  ENREGISTREMENT N›LOGIQUE IOCHI3
  50. C
  51.  
  52.        READ(IOCHI3,75) NET
  53. C      WRITE(6,*) 'NET= ',NET
  54.  100   CONTINUE
  55.        READ(IOCHI3,75) IDT,HT,TXHT,CT,TXCT
  56.        NET=NET-1
  57.        DO 30 I=N01,N02
  58.         IF (IDT.EQ.IDY(I)) THEN
  59.               DELH0(I)=HT
  60.               DELCP0(I)=CT
  61.               GO TO 35
  62.         ENDIF
  63.   30   CONTINUE
  64.   35   CONTINUE
  65.  
  66.         IF (NET.GT.0) GOTO 100
  67.  
  68. C       write(6,777)(delh0(i),i=1,50)
  69. C 777   format(5(1x,1pe8.1))
  70.  
  71.  
  72.  
  73. C
  74. C       MODIFICATIONS OU DEFINITIONS PAR DE NOUVELLES DONNEES:
  75. C       ----  PAS ENCORE REALISE  ----
  76. C       CF INPUTB (P8) DANS MINEQL EIR
  77.  
  78.  75     FORMAT(I5,5(F9.2,1X,A5))
  79. C       REWIND(UNIT=IOCHI3)
  80. C       CLOSE(UNIT=IOCHI3)
  81.  
  82.         RETURN
  83.  
  84.         END
  85.  
  86.  
  87.  
  88.  
  89.  
  90.  
  91.  
  92.  

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