Télécharger la plaquette Cast3M


fr en

Télécharger errkon.eso

Retour à la liste

Numérotation des lignes : 

errkon

  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