C
C This file is issued from the MODULEF library, but has been 
C subsequently modified
C
      SUBROUTINE FONDRL(LIGNE)
C ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
C           S.P. FONDRL          (FONCTIONS INTERPRETEES)
C           -----------
C ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
C BUT :
C     RETOURNER LA DERNIERE LIGNE LUE
C
C PARAMETRES DE SORTIE :
C     LIGNE   : DERNIERE LIGNE LUE
C ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
C PROGRAMMEUR : PATRICK LAUG ; INRIA (3) 954 90 20 POSTE 508
C ......................................................................
      PARAMETER (LLIG=257)
      CHARACTER*1   MLIG(LLIG)
      CHARACTER*(*) LIGNE
      COMMON /FONLIG/ MLIG
C
      LIGNE = ' '
      DO 100 I = 1,MIN(LEN(LIGNE),LLIG)
         IF (MLIG(I).EQ.'@') RETURN
         LIGNE(I:I) = MLIG(I)
  100 CONTINUE
      END
