Télécharger la plaquette Cast3M


fr en

Télécharger erreu1.eso

Retour à la liste

Numérotation des lignes : 

erreu1

  1. C ERREU1    SOURCE    GF238795  17/11/17    21:15:13     9626           
  2. C
  3. C   RECHERCHE DES MESSAGES D'ERREURS (SUITE)
  4. C
  5.       SUBROUTINE ERREU1(ITYP,CHLU,NIVEAU,NBL)
  6.       IMPLICIT INTEGER(I-N)
  7. -INC CCNOYAU
  8.  
  9. -INC PPARAM
  10. -INC CCOPTIO
  11.       CHARACTER*(*) CHLU(2)
  12. C      CHARACTER*4  CHTYP
  13. C      CHARACTER*87 CHTAMP
  14. C RECHERCHE DE LA LANGUE
  15.       DO 156 IK=1,LANGUA(/2)
  16.        IF( LANGUE.EQ.LANGUA(IK)) THEN
  17.            ILAN=IK
  18.            GO TO 157
  19.         ENDIF
  20.   156 CONTINUE
  21.       ILAN=1
  22. C      WRITE (IOIMP,158)
  23. C 158  FORMAT (' ERREUR DE LANGUE DU MESSAGE D''ERREUR')
  24. C      NBL=0
  25. C      NIVEAU=2
  26. C      RETURN
  27.  157  CONTINUE
  28. C  RECHERCHE DE L'ERREUR
  29.       DO 10 I=1,IPMESS(/1)
  30.        IF (NUMERR(I).EQ.ITYP) GOTO 20
  31.   10  CONTINUE
  32.       WRITE (IOIMP,12)
  33.   12  FORMAT (' ERREUR DANS LA RECHERCHE DU MESSAGE D''ERREUR')
  34.       NBL=0
  35.       NIVEAU=2
  36.       RETURN
  37.   20  CONTINUE
  38.       NIVEAU=NIVERR(I)
  39.       MCHERR=IPMESS(I,ILAN)
  40. C      SEGACT MCHERR
  41.       CHLU(1)=CHERR1
  42.       IF (CHERR2(/1).EQ.0) THEN
  43.         NBL=1
  44.         CHLU(2)=' '
  45.       ELSE
  46.         NBL=2
  47.         CHLU(2)=CHERR2
  48.       ENDIF
  49. C      SEGDES MCHERR
  50.       END
  51.  
  52.  
  53.  
  54.  
  55.  

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