Télécharger kon1.eso

Retour à la liste

Numérotation des lignes :

  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 CCOPTIO
  34. C
  35. C**** Variables de COOPTIO
  36. C
  37. C INTEGER IPLLB, IERPER, IERMAX, IERR, INTERR
  38. C & ,IOTER, IOLEC, IOIMP, IOCAR, IOACQ
  39. C & ,IOPER, IOSGB, IOGRA, IOSAU, IORES
  40. C & ,IECHO, IIMPI, IOSPI
  41. C & ,IDIM, IFICLE, IPREFI
  42. C & ,MCOORD
  43. C & ,IFOMOD, NIFOUR, IFOUR, NSDPGE, IONIVE
  44. C & ,NGMAXY, IZROSF, ISOTYP, IOSCR,LTEXLU
  45. C & ,NORINC,NORVAL,NORIND,NORVAD
  46. C & ,NUCROU, IPSAUV, IREFOR, ISAFOR
  47. C
  48. INTEGER NBOPT, ICELL, IFLU
  49. C
  50. PARAMETER (NBOPT=8)
  51. CHARACTER*8 LOPT(NBOPT)
  52. LOGICAL LOGME
  53. C
  54. DATA LOPT/'FLUX ','RESI ','JACOCONS','JACOCON2',
  55. & 'JACOPRIM','GAMMCONS','GAMMPRIM','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 KON12
  67. IF(IERR .NE. 0) GOTO 9999
  68. ELSEIF(ICELL .EQ. 4)THEN
  69. C 'JACOCON2'
  70. CALL KON13
  71. IF(IERR .NE. 0) GOTO 9999
  72. ELSEIF(ICELL .EQ. 5)THEN
  73. C 'JACOPRIM'
  74. CALL KON14
  75. IF(IERR .NE. 0) GOTO 9999
  76. ELSEIF(ICELL .EQ. 6)THEN
  77. C 'GAMMCONS'
  78. CALL KON17
  79. IF(IERR .NE. 0) GOTO 9999
  80. ELSEIF(ICELL .EQ. 7)THEN
  81. C 'GAMMPRIM'
  82. CALL KON18
  83. IF(IERR .NE. 0) GOTO 9999
  84. ELSEIF(ICELL .EQ. 8)THEN
  85. C 'CLIM'
  86. CALL CLIM1
  87. IF(IERR .NE. 0) GOTO 9999
  88. ENDIF
  89. 9999 CONTINUE
  90. RETURN
  91. END
  92.  
  93.  
  94.  
  95.  
  96.  
  97.  
  98.  
  99.  
  100.  
  101.  
  102.  

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