Esope source files

   1 : C KON1      SOURCE    CHAT      05/01/13    00:59:20     5004           
   2 :       SUBROUTINE KON1(LOGME)
   3 : C************************************************************************
   4 : C
   5 : C PROJET            :  CASTEM 2000
   6 : C
   7 : C NOM               :  KON1
   8 : C
   9 : C DESCRIPTION       :  Subroutine appellée par KONV1
  10 : C                      Modelisation 2D/3D des equations d'Euler
  11 : C                      Calcul du residu / jacobien / DELTAT
  12 : C                      Calcul de la matrice de precond. temporelle
  13 : C                      pour les equations d'Euler
  14 : C     
  15 : C LANGAGE           :  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 APPELES (Calcul)  :  
  22 : C************************************************************************
  23 : C
  24 : C************************************************************************
  25 : C
  26 : C HISTORIQUE (Anomalies et modifications éventuelles)
  27 : C
  28 : C HISTORIQUE : premiére evolution le 02/10/02
  29 : C      
  30 : C************************************************************************
  31 : C
  32 :       IMPLICIT INTEGER(I-N)
  33 : -INC CCOPTIO
  34 : C
  35 : C**** Variables de COOPTIO
  36 : C
  37 : C      INTEGER IPLLB, IERPER, IERMAX, IERR, INTERR
  38 : C     &        ,IOTER,   IOLEC,  IOIMP,     IOCAR,  IOACQ
  39 : C     &        ,IOPER,   IOSGB,  IOGRA,     IOSAU,  IORES
  40 : C     &        ,IECHO,   IIMPI,  IOSPI
  41 : C     &        ,IDIM,    IFICLE, IPREFI     
  42 : C     &        ,MCOORD
  43 : C     &        ,IFOMOD, NIFOUR, IFOUR, NSDPGE, IONIVE
  44 : C     &        ,NGMAXY, IZROSF, ISOTYP, IOSCR,LTEXLU
  45 : C     &        ,NORINC,NORVAL,NORIND,NORVAD
  46 : C     &        ,NUCROU, IPSAUV, IREFOR, ISAFOR
  47 : C
  48 :       INTEGER NBOPT, ICELL, IFLU
  49 : C
  50 :       PARAMETER (NBOPT=8)
  51 :       CHARACTER*8 LOPT(NBOPT)
  52 :       LOGICAL LOGME
  53 : C      
  54 :       DATA LOPT/'FLUX    ','RESI    ','JACOCONS','JACOCON2',
  55 :      &          'JACOPRIM','GAMMCONS','GAMMPRIM','CLIM    '/
  56 : C
  56 :       CALL LIRMOT(LOPT,NBOPT,ICELL,1)
  57 :       IF(IERR .NE. 0) GOTO 9999
  58 :       IF((ICELL .EQ. 1) .OR. (ICELL .EQ.2))THEN
  59 : C        'FLUX    ','RESI    '
  60 :          IFLU=ICELL
  60 :          CALL KON11(IFLU,LOGME)
  61 :          IF(IERR .NE. 0) GOTO 9999
  62 :       ELSEIF(ICELL .EQ. 3)THEN
  63 : C        'JACOCONS'
  63 :          CALL KON12
  64 :          IF(IERR .NE. 0) GOTO 9999
  65 :       ELSEIF(ICELL .EQ. 4)THEN
  66 : C        'JACOCON2'
  66 :          CALL KON13
  67 :          IF(IERR .NE. 0) GOTO 9999
  68 :       ELSEIF(ICELL .EQ. 5)THEN
  69 : C        'JACOPRIM'
  69 :          CALL KON14
  70 :          IF(IERR .NE. 0) GOTO 9999
  71 :       ELSEIF(ICELL .EQ. 6)THEN
  72 : C        'GAMMCONS'
  72 :          CALL KON17
  73 :          IF(IERR .NE. 0) GOTO 9999
  74 :       ELSEIF(ICELL .EQ. 7)THEN
  75 : C        'GAMMPRIM'
  75 :          CALL KON18
  76 :          IF(IERR .NE. 0) GOTO 9999
  77 :       ELSEIF(ICELL .EQ. 8)THEN
  78 : C        'CLIM'
  78 :          CALL CLIM1
  79 :          IF(IERR .NE. 0) GOTO 9999
  80 :       ENDIF
  81 :  9999 CONTINUE
  82 :       RETURN
  83 :       END
  84 : 
  85 : 
  86 : 
  87 : 
  88 :  
  89 :  
  90 :  
  91 :  
  92 :  
  93 :