C CHMLGK    SOURCE    CHAT      05/01/12    21:59:20     5004           
      SUBROUTINE CHMLGK(IGKMOD,IGKTMP,IP1,IP2,IP3,IP4,IP5)
      IMPLICIT INTEGER(I-N)
        IMPLICIT REAL*8 (A-H,O-Z)
C------------------------------------------------------------------
C
C       CHARGEMENT DES SEGMENTS LGKMOD OU LGKTMP S'ILS EXISTENT
C        S'ILS EXISTENT ILS SONT ACTIFS
C       SINON ON RETOURNE
C
C------------------------------------------------------------------
-INC SMLENTI
-INC SMLREEL
-INC CCOPTIO
      SEGMENT LGKMOD
           REAL*8 DELH0(NYDIM),DELCP0(NYDIM)
      ENDSEGMENT
      SEGMENT LGKTMP
           INTEGER NUMT(NYDIM),NTVT(NYDIM)
           REAL*8 TMIMA(NYDIM,NT)
           REAL*8 POLYT(NYDIM,NT4),TGKLU(NYDIM,NT)
      ENDSEGMENT
      CHARACTER*8 MTYPI,CHARI,MTYPR,CHARR
C
      IF(IGKMOD.NE.0)THEN
C                  BASE MINEQL
            LGKMOD=IGKMOD
            MLREEL=IP1
            NYDIM=PROG(/1)
            CALL RSETD(DELH0,PROG,NYDIM)
            MLREEL=IP2
            CALL RSETD(DELCP0,PROG,NYDIM)
      ELSEIF(IGKTMP.NE.0)THEN
C                   BASE DE STASBOURG
            LGKTMP=IGKTMP
            MLREEL=IP1
            JG=PROG(/1)
            CALL RSETD(TMIMA,PROG,JG)
            MLREEL=IP2
            JG=PROG(/1)
            CALL RSETD(POLYT,PROG,JG)
            MLREEL=IP3
            JG=PROG(/1)
            CALL RSETD(TGKLU,PROG,JG)
            MLENTI=IP4
            NYDIM=LECT(/1)
            CALL RSETI(NTVT,LECT,NYDIM)
            MLENTI=IP5
            CALL RSETI(NUMT,LECT,NYDIM)
      ENDIF
      RETURN
      END