Sources Esope | Cast3M

prextr
C PREXTR    SOURCE    CHAT      05/01/13    02:26:13     5004
C    CE SOUS PROGRAMME APPELLE LA ROUTINE EXTREL
C SI LE MOT CLE APPUY A ETE LU ET SI AUCUN ELEMENT N A PU ETRE EXTRAIT
C ALORS IRR VAUT 1 ET UN MESSAGE D ERREUR EST IMPRIME
      SUBROUTINE PREXTR
      IMPLICIT INTEGER(I-N)
      CALL EXTREL(IRR,1,IEL)
      IF (IRR.EQ.1) CALL ERREUR(26)
      RETURN
      END