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    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.  
  33. -INC PPARAM
  34. -INC CCOPTIO
  35. C
  36. C**** Variables de COOPTIO
  37. C
  38. C      INTEGER IPLLB, IERPER, IERMAX, IERR, INTERR
  39. C     &        ,IOTER,   IOLEC,  IOIMP,     IOCAR,  IOACQ
  40. C     &        ,IOPER,   IOSGB,  IOGRA,     IOSAU,  IORES
  41. C     &        ,IECHO,   IIMPI,  IOSPI
  42. C     &        ,IDIM,    IFICLE, IPREFI
  43. C     &        ,MCOORD
  44. C     &        ,IFOMOD, NIFOUR, IFOUR, NSDPGE, IONIVE
  45. C     &        ,NGMAXY, IZROSF, ISOTYP, IOSCR,LTEXLU
  46. C     &        ,NORINC,NORVAL,NORIND,NORVAD
  47. C     &        ,NUCROU, IPSAUV
  48. C
  49.       INTEGER NBOPT, ICELL, IFLU
  50. C
  51.       PARAMETER (NBOPT=4)
  52.       CHARACTER*8 LOPT(NBOPT)
  53.       LOGICAL LOGME
  54. C
  55.       DATA LOPT/'FLUX    ','RESI    ','JACOCONS','CLIM    '/
  56. C
  57.       CALL LIRMOT(LOPT,NBOPT,ICELL,1)
  58.       IF(IERR .NE. 0) GOTO 9999
  59.       IF((ICELL .EQ. 1) .OR. (ICELL .EQ.2))THEN
  60. C        'FLUX    ','RESI    '
  61.          IFLU=ICELL
  62.          CALL KON11(IFLU,LOGME)
  63.          IF(IERR .NE. 0) GOTO 9999
  64.       ELSEIF(ICELL .EQ. 3)THEN
  65. C        'JACOCONS'
  66.          CALL KON19
  67.          IF(IERR .NE. 0) GOTO 9999
  68.       ELSEIF(ICELL .EQ. 4)THEN
  69. C        'CLIM'
  70.          CALL CLIM2
  71.          IF(IERR .NE. 0) GOTO 9999
  72.       ENDIF
  73.  9999 CONTINUE
  74.       RETURN
  75.       END
  76.  
  77.  
  78.  
  79.  
  80.  
  81.  
  82.  
  83.  
  84.  
  85.  
  86.  
  87.  

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