Esope source files

   1 : C KON2      SOURCE    CHAT      05/01/13    00:59:22     5004           
   2 :       SUBROUTINE KON2(LOGME)
   3 : C************************************************************************
   4 : C
   5 : C PROJET            :  CASTEM 2000
   6 : C
   7 : C NOM               :  KON2
   8 : C
   9 : C DESCRIPTION       :  Subroutine appellée par KONV1
  10 : C                      Modelisation 2D/3D des equations d'Euler
  11 : C                      Calcul du jacobien
  12 : C                      pour les equations d'Euler multiespecies
  13 : C     
  14 : C LANGAGE           :  FORTRAN 77 + ESOPE 2000 (avec estensions CISI)
  15 : C      
  16 : C AUTEUR            :  S. KUDRIAKOV, DRN/DMT/SEMT/LTMF                        
  17 : C
  18 : C************************************************************************
  19 : C
  20 : C APPELES (Calcul)  :  
  21 : C************************************************************************
  22 : C
  23 : C************************************************************************
  24 : C
  25 : C HISTORIQUE (Anomalies et modifications éventuelles)
  26 : C
  27 : C HISTORIQUE : premiére evolution le 02/10/02
  28 : C      
  29 : C************************************************************************
  30 : C
  31 :       IMPLICIT INTEGER(I-N)
  32 : -INC CCOPTIO
  33 : C
  34 : C**** Variables de COOPTIO
  35 : C
  36 : C      INTEGER IPLLB, IERPER, IERMAX, IERR, INTERR
  37 : C     &        ,IOTER,   IOLEC,  IOIMP,     IOCAR,  IOACQ
  38 : C     &        ,IOPER,   IOSGB,  IOGRA,     IOSAU,  IORES
  39 : C     &        ,IECHO,   IIMPI,  IOSPI
  40 : C     &        ,IDIM,    IFICLE, IPREFI     
  41 : C     &        ,MCOORD
  42 : C     &        ,IFOMOD, NIFOUR, IFOUR, NSDPGE, IONIVE
  43 : C     &        ,NGMAXY, IZROSF, ISOTYP, IOSCR,LTEXLU
  44 : C     &        ,NORINC,NORVAL,NORIND,NORVAD
  45 : C     &        ,NUCROU, IPSAUV
  46 : C
  47 :       INTEGER NBOPT, ICELL, IFLU
  48 : C
  49 :       PARAMETER (NBOPT=4)
  50 :       CHARACTER*8 LOPT(NBOPT)
  51 :       LOGICAL LOGME
  52 : C      
  53 :       DATA LOPT/'FLUX    ','RESI    ','JACOCONS','CLIM    '/
  54 : C
  54 :       CALL LIRMOT(LOPT,NBOPT,ICELL,1)
  55 :       IF(IERR .NE. 0) GOTO 9999
  56 :       IF((ICELL .EQ. 1) .OR. (ICELL .EQ.2))THEN
  57 : C        'FLUX    ','RESI    '
  58 :          IFLU=ICELL
  58 :          CALL KON11(IFLU,LOGME)
  59 :          IF(IERR .NE. 0) GOTO 9999
  60 :       ELSEIF(ICELL .EQ. 3)THEN
  61 : C        'JACOCONS'
  61 :          CALL KON19
  62 :          IF(IERR .NE. 0) GOTO 9999
  63 :       ELSEIF(ICELL .EQ. 4)THEN
  64 : C        'CLIM'
  64 :          CALL CLIM2
  65 :          IF(IERR .NE. 0) GOTO 9999
  66 :       ENDIF
  67 :  9999 CONTINUE
  68 :       RETURN
  69 :       END
  70 : 
  71 : 
  72 : 
  73 : 
  74 :  
  75 :  
  76 :  
  77 :  
  78 :  
  79 :  
  80 :