Esope source files

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