Télécharger kon2.eso

Retour à la liste

Numérotation des lignes :

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

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