Télécharger la plaquette Cast3M


fr en

Télécharger kon1.eso

Retour à la liste

Numérotation des lignes : 

kon1

  1. C KON1      SOURCE    OF166741  24/12/13    21:16:20     12097          
  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 PPARAM
  34. -INC CCOPTIO
  35. C
  36.       INTEGER NBOPT, ICELL, IFLU
  37. C
  38.       PARAMETER (NBOPT=8)
  39.       CHARACTER*8 LOPT(NBOPT)
  40.       LOGICAL LOGME
  41. C
  42.       DATA LOPT/'FLUX    ','RESI    ','JACOCONS','JACOCON2',
  43.      &          'JACOPRIM','GAMMCONS','GAMMPRIM','CLIM    '/
  44. C
  45.       CALL LIRMOT(LOPT,NBOPT,ICELL,1)
  46.       IF(IERR .NE. 0) GOTO 9999
  47.       IF((ICELL .EQ. 1) .OR. (ICELL .EQ.2))THEN
  48. C        'FLUX    ','RESI    '
  49.          IFLU=ICELL
  50.          CALL KON11(IFLU,LOGME)
  51.          IF(IERR .NE. 0) GOTO 9999
  52.       ELSEIF(ICELL .EQ. 3)THEN
  53. C        'JACOCONS'
  54.          CALL KON12
  55.          IF(IERR .NE. 0) GOTO 9999
  56.       ELSEIF(ICELL .EQ. 4)THEN
  57. C        'JACOCON2'
  58.          CALL KON13
  59.          IF(IERR .NE. 0) GOTO 9999
  60.       ELSEIF(ICELL .EQ. 5)THEN
  61. C        'JACOPRIM'
  62.          CALL KON14
  63.          IF(IERR .NE. 0) GOTO 9999
  64.       ELSEIF(ICELL .EQ. 6)THEN
  65. C        'GAMMCONS'
  66.          CALL KON17
  67.          IF(IERR .NE. 0) GOTO 9999
  68.       ELSEIF(ICELL .EQ. 7)THEN
  69. C        'GAMMPRIM'
  70.          CALL KON18
  71.          IF(IERR .NE. 0) GOTO 9999
  72.       ELSEIF(ICELL .EQ. 8)THEN
  73. C        'CLIM'
  74.          CALL CLIM1
  75.          IF(IERR .NE. 0) GOTO 9999
  76.       ENDIF
  77.  9999 CONTINUE
  78.       RETURN
  79.       END
  80.  
  81.  
  82.  
  83.  
  84.  
  85.  
  86.  
  87.  
  88.  
  89.  
  90.  
  91.  

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