Esope source files

   1 : C CHMLGK    SOURCE    CHAT      05/01/12    21:59:20     5004           
   2 :       SUBROUTINE CHMLGK(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       CHARGEMENT DES SEGMENTS LGKMOD OU LGKTMP S'ILS EXISTENT
   8 : C        S'ILS EXISTENT ILS SONT ACTIFS
   9 : C       SINON ON RETOURNE
  10 : C
  11 : C------------------------------------------------------------------
  12 : -INC SMLENTI
  13 : -INC SMLREEL
  14 : -INC CCOPTIO
  15 :       SEGMENT LGKMOD
  16 :            REAL*8 DELH0(NYDIM),DELCP0(NYDIM)
  17 :       ENDSEGMENT
  18 :       SEGMENT LGKTMP
  19 :            INTEGER NUMT(NYDIM),NTVT(NYDIM)
  20 :            REAL*8 TMIMA(NYDIM,NT)
  21 :            REAL*8 POLYT(NYDIM,NT4),TGKLU(NYDIM,NT)
  22 :       ENDSEGMENT
  23 :       CHARACTER*8 MTYPI,CHARI,MTYPR,CHARR
  24 : C
  25 :       IF(IGKMOD.NE.0)THEN
  26 : C                  BASE MINEQL
  27 :             LGKMOD=IGKMOD
  28 :             MLREEL=IP1
  29 :             NYDIM=PROG(/1)
  29 :             CALL RSETD(DELH0,PROG,NYDIM)
  30 :             MLREEL=IP2
  30 :             CALL RSETD(DELCP0,PROG,NYDIM)
  31 :       ELSEIF(IGKTMP.NE.0)THEN
  32 : C                   BASE DE STASBOURG
  33 :             LGKTMP=IGKTMP
  34 :             MLREEL=IP1
  35 :             JG=PROG(/1)
  35 :             CALL RSETD(TMIMA,PROG,JG)
  36 :             MLREEL=IP2
  37 :             JG=PROG(/1)
  37 :             CALL RSETD(POLYT,PROG,JG)
  38 :             MLREEL=IP3
  39 :             JG=PROG(/1)
  39 :             CALL RSETD(TGKLU,PROG,JG)
  40 :             MLENTI=IP4
  41 :             NYDIM=LECT(/1)
  41 :             CALL RSETI(NTVT,LECT,NYDIM)
  42 :             MLENTI=IP5
  42 :             CALL RSETI(NUMT,LECT,NYDIM)
  43 :       ENDIF
  44 :       RETURN
  45 :       END
  46 :  
  47 :  
  48 :