Télécharger la plaquette Cast3M


fr en

Télécharger kon2.eso

Retour à la liste

Numérotation des lignes : 

kon2

  1. C KON2      SOURCE    OF166741  24/12/13    21:16:22     12097          
  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.  
  33. -INC PPARAM
  34. -INC CCOPTIO
  35. C
  36.       INTEGER NBOPT, ICELL, IFLU
  37. C
  38.       PARAMETER (NBOPT=4)
  39.       CHARACTER*8 LOPT(NBOPT)
  40.       LOGICAL LOGME
  41. C
  42.       DATA LOPT/'FLUX    ','RESI    ','JACOCONS','CLIM    '/
  43. C
  44.       CALL LIRMOT(LOPT,NBOPT,ICELL,1)
  45.       IF(IERR .NE. 0) GOTO 9999
  46.       IF((ICELL .EQ. 1) .OR. (ICELL .EQ.2))THEN
  47. C        'FLUX    ','RESI    '
  48.          IFLU=ICELL
  49.          CALL KON11(IFLU,LOGME)
  50.          IF(IERR .NE. 0) GOTO 9999
  51.       ELSEIF(ICELL .EQ. 3)THEN
  52. C        'JACOCONS'
  53.          CALL KON19
  54.          IF(IERR .NE. 0) GOTO 9999
  55.       ELSEIF(ICELL .EQ. 4)THEN
  56. C        'CLIM'
  57.          CALL CLIM2
  58.          IF(IERR .NE. 0) GOTO 9999
  59.       ENDIF
  60.  9999 CONTINUE
  61.       RETURN
  62.       END
  63.  
  64.  
  65.  
  66.  
  67.  
  68.  
  69.  
  70.  
  71.  
  72.  
  73.  
  74.  
  75.  

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