C ERRKON    SOURCE    CHAT      05/01/12    23:45:22     5004
      SUBROUTINE ERRKON(I,IERRKON)
C=======================================================
C     Routine de traitement des erreurs de l'operateur C
C     KONV en EFM0                                     C
C=======================================================

      IMPLICIT INTEGER(I-N)
      IMPLICIT REAL*8 (A-H,O-Z)

      INTEGER I,IERRKON

      IERRKON=1
      WRITE(6,*) 'ERREUR',I

      IF (I.EQ.1) THEN
         WRITE(6,*) 'Operateur KONV formulation EFM0'
         WRITE(6,*) 'On attend un CHPOINT CENTRE pour la'
         WRITE(6,*) 'premiere inconnue'
         RETURN
      END IF

      IF (I.EQ.2) THEN
         WRITE(6,*) 'Operateur KONV formulation EFM0'
         WRITE(6,*) 'Le pointeur sur le MCHELM XXSOML'
         WRITE(6,*) 'est nul.'
         RETURN
      END IF

      IF (I.EQ.3) THEN
         WRITE(6,*) 'Operateur LAPN formulation EFM0'
         WRITE(6,*) 'On attend un CHPOINT CENTRE pour l inconnue'
         RETURN
      END IF

      IF (I.EQ.4) THEN
         WRITE(6,*) 'Operateur KONV formulation EFM0'
         WRITE(6,*) 'On attend un CHPOINT SOMMET pour la'
         WRITE(6,*) 'deuxieme inconnue'
         RETURN
      END IF

      IF (I.EQ.5) THEN
         WRITE(6,*) 'Operateur KONV formulation EFM0'
         WRITE(6,*) 'On attend un CHPOINT SCALAIRE pour la'
         WRITE(6,*) 'premiere inconnue'
         RETURN
      END IF

      IF (I.EQ.6) THEN
         WRITE(6,*) 'Operateur KONV formulation EFM0'
         WRITE(6,*) 'On attend un CHPOINT VECTORIEL pour la'
         WRITE(6,*) 'deuxieme inconnue'
         RETURN
      END IF

      IF (I.EQ.7) THEN
         WRITE(6,*) 'Operateur KONV formulation EFM0'
         WRITE(6,*) 'On attend un SCALAIRE pour le'
         WRITE(6,*) 'coefficient RO'
         RETURN
      END IF
      END