Esope source files

   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 :