Télécharger la plaquette Cast3M


fr en

Télécharger dserre.eso

Retour à la liste

Numérotation des lignes : 

dserre

  1. C DSERRE    SOURCE    CHAT      05/01/12    22:56:27     5004
  2. C
  3. C
  4.       SUBROUTINE DSERRE(IO,NUM,MODULE,MESSAG)
  5. C     *****************************************************************
  6. C     OBJET  : ECRIT UN MESSAGE D'ERREUR SUR LE STANDARD OUTPUT
  7. C     *****************************************************************
  8.       IMPLICIT INTEGER(I-N)
  9.       CHARACTER*(*) MESSAG,MODULE
  10.       INTEGER NUM
  11.       INTEGER IO
  12. C
  13. C     ---- C'EST LA PROCEDURE "ERREUR" DE CASTEM QUI PREND LE RELAI
  14. C
  15.       GOTO 9999
  16. C
  17.       IF( NUM .EQ. -1 )THEN
  18.         CALL DSCHAI(IO,
  19.      >      'ERR -1  DONNEES INCORRECTES DANS :',MODULE)
  20.       ELSE
  21.         IF( NUM .EQ. -2 )THEN
  22.           CALL DSCHAI(IO,
  23.      >         'ERR -2  PROBLEME MEMOIRE DANS :',MODULE)
  24.         ELSE
  25.           IF( NUM .EQ. -3 )THEN
  26.             CALL DSCHAI(IO,
  27.      >           'ERR -3  NON ENCORE IMPLEMENTE DANS :',MODULE)
  28.           ELSE
  29.             PRINT *,NUM
  30.           ENDIF
  31.         ENDIF
  32.       ENDIF
  33.       CALL DSCHAI(IO,MESSAG,' ')
  34.  9999 END
  35.  
  36.  
  37.  

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