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    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 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, IREFOR, ISAFOR
  48. C
  49.       INTEGER NBOPT, ICELL, IFLU
  50. C
  51.       PARAMETER (NBOPT=8)
  52.       CHARACTER*8 LOPT(NBOPT)
  53.       LOGICAL LOGME
  54. C
  55.       DATA LOPT/'FLUX    ','RESI    ','JACOCONS','JACOCON2',
  56.      &          'JACOPRIM','GAMMCONS','GAMMPRIM','CLIM    '/
  57. C
  58.       CALL LIRMOT(LOPT,NBOPT,ICELL,1)
  59.       IF(IERR .NE. 0) GOTO 9999
  60.       IF((ICELL .EQ. 1) .OR. (ICELL .EQ.2))THEN
  61. C        'FLUX    ','RESI    '
  62.          IFLU=ICELL
  63.          CALL KON11(IFLU,LOGME)
  64.          IF(IERR .NE. 0) GOTO 9999
  65.       ELSEIF(ICELL .EQ. 3)THEN
  66. C        'JACOCONS'
  67.          CALL KON12
  68.          IF(IERR .NE. 0) GOTO 9999
  69.       ELSEIF(ICELL .EQ. 4)THEN
  70. C        'JACOCON2'
  71.          CALL KON13
  72.          IF(IERR .NE. 0) GOTO 9999
  73.       ELSEIF(ICELL .EQ. 5)THEN
  74. C        'JACOPRIM'
  75.          CALL KON14
  76.          IF(IERR .NE. 0) GOTO 9999
  77.       ELSEIF(ICELL .EQ. 6)THEN
  78. C        'GAMMCONS'
  79.          CALL KON17
  80.          IF(IERR .NE. 0) GOTO 9999
  81.       ELSEIF(ICELL .EQ. 7)THEN
  82. C        'GAMMPRIM'
  83.          CALL KON18
  84.          IF(IERR .NE. 0) GOTO 9999
  85.       ELSEIF(ICELL .EQ. 8)THEN
  86. C        'CLIM'
  87.          CALL CLIM1
  88.          IF(IERR .NE. 0) GOTO 9999
  89.       ENDIF
  90.  9999 CONTINUE
  91.       RETURN
  92.       END
  93.  
  94.  
  95.  
  96.  
  97.  
  98.  
  99.  
  100.  
  101.  
  102.  
  103.  

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