Télécharger la plaquette Cast3M


fr en

Télécharger konv1.eso

Retour à la liste

Numérotation des lignes : 

konv1

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

© Cast3M 2003 - Tous droits réservés.
Mentions légales