Esope source files

   1 : C KONV1     SOURCE    BECC      11/05/26    21:15:53     6981           
   2 :       SUBROUTINE KONV1()
   3 : C************************************************************************
   4 : C
   5 : C PROJET            :  CASTEM 2000
   6 : C
   7 : C NOM               :  KONV1
   8 : C
   9 : C DESCRIPTION       :  Subroutine appellée par KONV
  10 : C
  11 : C                      Modelisation 2D/3D des equations d'Euler
  12 : C
  13 : C                      Calcul du residu / jacobien / DELTAT
  14 : C     
  15 : C LANGUAGE          :  FORTRAN 77 + ESOPE 2000 (avec estensions CISI)
  16 : C      
  17 : C AUTEUR            :  A. BECCANTINI, DRN/DMT/SEMT/LTMF                        
  18 : C
  19 : C************************************************************************
  20 : C
  21 : C
  22 : C APPELES (E/S)     :  LIRMOT, ERREUR
  23 : C 
  24 : C      
  24 : 

Warning:  preg_replace(): Compilation failed: unmatched parentheses at offset 9 in C:\xampp\htdocs\cast3m_kit_local_fr_en_2014\sources.php on line 147

  24 : 

Warning:  preg_replace(): Compilation failed: unmatched parentheses at offset 21 in C:\xampp\htdocs\cast3m_kit_local_fr_en_2014\sources.php on line 147

  25 : C                      KONV12 (gaz "thermally perfect") 
  26 : C                      KONV13 (gaz "thermally perfect"+DEM) 
  27 : C                      KONV14 (transport des scalaires)
  28 : C                      KFMM   (Free matrix methods)
  29 : C                      KFM1   (Free matrix methods 2)
  30 : C                      KONV2F (two-fluid flow)
  31 : C                      KONV15 (Ghost fluid method for the poor)
  32 : C
  33 : C************************************************************************
  34 : C
  35 : C      
  36 : C***********************************************************************
  37 : C
  38 : C************************************************************************
  39 : C
  40 : C HISTORIQUE (Anomalies et modifications éventuelles)
  41 : C
  42 : C************************************************************************
  43 : C
  44 :       IMPLICIT INTEGER(I-N)
  45 : -INC CCOPTIO
  46 : C
  47 :       INTEGER NBOP,IOP
  48 :       PARAMETER (NBOP=9)
  49 :       CHARACTER*8 LOPTI(NBOP)
  50 :       LOGICAL LOGME
  51 : C
  52 :       DATA LOPTI/'PERFMONO','PERFMULT','PERFTEMP','CLAUDEIS',
  53 :      &     'PMONOFMM','PMON1FMM','TWOFLUID','DEM','GFMP'/
  54 : C
  55 : C
  56 : C**** Le modele du GAZ
  57 : C
  57 :       CALL LIRMOT(LOPTI,NBOP,IOP,1)
  58 :       IF(IERR .NE. 0) GOTO 9999
  59 :       IF(IOP .EQ. 1)THEN
  60 :          LOGME=.FALSE.
  60 :          CALL KON1(LOGME)
  61 :          IF(IERR .NE. 0) GOTO 9999
  62 :       ELSEIF(IOP .EQ. 2)THEN
  63 :          LOGME=.TRUE. 
  63 :          CALL KON2(LOGME)
  64 :          IF(IERR .NE. 0) GOTO 9999
  65 :       ELSEIF(IOP .EQ. 3)THEN
  65 :          CALL KONV12
  66 :          IF(IERR .NE. 0) GOTO 9999
  67 :       ELSEIF(IOP .EQ. 4)THEN
  67 :          CALL KONV14
  68 :          IF(IERR .NE. 0) GOTO 9999
  69 :       ELSEIF(IOP .EQ. 5)THEN
  69 :          CALL KFMM
  70 :          IF(IERR .NE. 0) GOTO 9999
  71 :       ELSEIF(IOP .EQ. 6)THEN
  71 :          CALL KFM1
  72 :          IF(IERR .NE. 0) GOTO 9999
  73 :       ELSEIF(IOP .EQ. 7)THEN
  73 :          CALL KONV2F()
  74 :          IF(IERR .NE. 0) GOTO 9999
  75 :       ELSEIF(IOP .EQ. 8)THEN
  75 :          CALL KONV13()
  76 :       ELSEIF(IOP .EQ. 9)THEN
  76 :          CALL KONV15()
  77 :          IF(IERR .NE. 0) GOTO 9999
  78 :       ELSE
  79 : C
  80 : C******* Message d'erreur standard
  81 : C        21 2
  82 : C        Données incompatibles
  83 : C
  83 :          CALL ERREUR(21)
  84 :          GOTO 9999
  85 :       ENDIF
  86 :  9999 RETURN
  87 :       END
  88 :