C KON2      SOURCE    OF166741  24/12/13    21:16:22     12097          
      SUBROUTINE KON2(LOGME)
C************************************************************************
C
C PROJET            :  CASTEM 2000
C
C NOM               :  KON2
C
C DESCRIPTION       :  Subroutine appellée par KONV1
C                      Modelisation 2D/3D des equations d'Euler
C                      Calcul du jacobien
C                      pour les equations d'Euler multiespecies
C
C LANGAGE           :  FORTRAN 77 + ESOPE 2000 (avec estensions CISI)
C
C AUTEUR            :  S. KUDRIAKOV, DRN/DMT/SEMT/LTMF
C
C************************************************************************
C
C APPELES (Calcul)  :
C************************************************************************
C
C************************************************************************
C
C HISTORIQUE (Anomalies et modifications éventuelles)
C
C HISTORIQUE : premiére evolution le 02/10/02
C
C************************************************************************
C
      IMPLICIT INTEGER(I-N)

-INC PPARAM
-INC CCOPTIO
C
      INTEGER NBOPT, ICELL, IFLU
C
      PARAMETER (NBOPT=4)
      CHARACTER*8 LOPT(NBOPT)
      LOGICAL LOGME
C
      DATA LOPT/'FLUX    ','RESI    ','JACOCONS','CLIM    '/
C
      CALL LIRMOT(LOPT,NBOPT,ICELL,1)
      IF(IERR .NE. 0) GOTO 9999
      IF((ICELL .EQ. 1) .OR. (ICELL .EQ.2))THEN
C        'FLUX    ','RESI    '
         IFLU=ICELL
         CALL KON11(IFLU,LOGME)
         IF(IERR .NE. 0) GOTO 9999
      ELSEIF(ICELL .EQ. 3)THEN
C        'JACOCONS'
         CALL KON19
         IF(IERR .NE. 0) GOTO 9999
      ELSEIF(ICELL .EQ. 4)THEN
C        'CLIM'
         CALL CLIM2
         IF(IERR .NE. 0) GOTO 9999
      ENDIF
 9999 CONTINUE
      RETURN
      END