Esope source files

   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 :