Esope source files

   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 :