Télécharger errkon.eso

Retour à la liste

Numérotation des lignes :

  1. C ERRKON SOURCE CHAT 05/01/12 23:45:22 5004
  2. SUBROUTINE ERRKON(I,IERRKON)
  3. C=======================================================
  4. C Routine de traitement des erreurs de l'operateur C
  5. C KONV en EFM0 C
  6. C=======================================================
  7.  
  8. IMPLICIT INTEGER(I-N)
  9. IMPLICIT REAL*8 (A-H,O-Z)
  10.  
  11. INTEGER I,IERRKON
  12.  
  13. IERRKON=1
  14. WRITE(6,*) 'ERREUR',I
  15.  
  16. IF (I.EQ.1) THEN
  17. WRITE(6,*) 'Operateur KONV formulation EFM0'
  18. WRITE(6,*) 'On attend un CHPOINT CENTRE pour la'
  19. WRITE(6,*) 'premiere inconnue'
  20. RETURN
  21. END IF
  22.  
  23. IF (I.EQ.2) THEN
  24. WRITE(6,*) 'Operateur KONV formulation EFM0'
  25. WRITE(6,*) 'Le pointeur sur le MCHELM XXSOML'
  26. WRITE(6,*) 'est nul.'
  27. RETURN
  28. END IF
  29.  
  30. IF (I.EQ.3) THEN
  31. WRITE(6,*) 'Operateur LAPN formulation EFM0'
  32. WRITE(6,*) 'On attend un CHPOINT CENTRE pour l inconnue'
  33. RETURN
  34. END IF
  35.  
  36. IF (I.EQ.4) THEN
  37. WRITE(6,*) 'Operateur KONV formulation EFM0'
  38. WRITE(6,*) 'On attend un CHPOINT SOMMET pour la'
  39. WRITE(6,*) 'deuxieme inconnue'
  40. RETURN
  41. END IF
  42.  
  43. IF (I.EQ.5) THEN
  44. WRITE(6,*) 'Operateur KONV formulation EFM0'
  45. WRITE(6,*) 'On attend un CHPOINT SCALAIRE pour la'
  46. WRITE(6,*) 'premiere inconnue'
  47. RETURN
  48. END IF
  49.  
  50. IF (I.EQ.6) THEN
  51. WRITE(6,*) 'Operateur KONV formulation EFM0'
  52. WRITE(6,*) 'On attend un CHPOINT VECTORIEL pour la'
  53. WRITE(6,*) 'deuxieme inconnue'
  54. RETURN
  55. END IF
  56.  
  57. IF (I.EQ.7) THEN
  58. WRITE(6,*) 'Operateur KONV formulation EFM0'
  59. WRITE(6,*) 'On attend un SCALAIRE pour le'
  60. WRITE(6,*) 'coefficient RO'
  61. RETURN
  62. END IF
  63. END
  64.  
  65.  
  66.  

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