Télécharger la plaquette Cast3M


fr en

Télécharger eserro.eso

Retour à la liste

Numérotation des lignes : 

eserro

  1. C ESERRO    SOURCE    CHAT      06/03/29    21:20:39     5360
  2. C
  3. C
  4.       SUBROUTINE ESERRO(IO,NUM,MODULE,IMESS)
  5. C     *****************************************************************
  6. C     OBJET  : ECRIT UN MESSAGE D'ERREUR SUR LE STANDARD OUTPUT
  7. C     *****************************************************************
  8.       IMPLICIT INTEGER(I-N)
  9.       CHARACTER*(*) IMESS,MODULE
  10.       INTEGER NUM
  11.       INTEGER IO
  12. C
  13.       IF( NUM .EQ. -1 )THEN
  14.         CALL ESECHA(IO,
  15.      >      'ERR -1  DONNEES INCORRECTES DANS :',MODULE)
  16.       ELSE
  17.         IF( NUM .EQ. -2 )THEN
  18.           CALL ESECHA(IO,
  19.      >         'ERR -2  PROBLEME MEMOIRE DANS :',MODULE)
  20.         ELSE
  21.           IF( NUM .EQ. -3 )THEN
  22.             CALL ESECHA(IO,
  23.      >           'ERR -3  NON ENCORE IMPLEMENTE DANS :',MODULE)
  24.           ELSE
  25.             PRINT *,NUM
  26.           ENDIF
  27.         ENDIF
  28.       ENDIF
  29.       call erreur(21)
  30.       CALL ESECHA(IO,IMESS,' ')
  31.       END
  32.  
  33.  
  34.  
  35.  

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