SUBROUTINE liessTA(ibeo,idim,iin,iout,gscrec,ieof)
c
c
c      Diese Subroutine gibt iout (maximal idim) Records gscrec
c      ab, und setzt ieof = 1, wenn sie die letzten zusammengehoerenden
c      Records abgegeben hat
c
C FUER BEOB-FILE:
c      CHARACTER   gscrec*104
      CHARACTER   gscrec*120
      dimension gscrec(idim)
C ******************************************************************
C VERSION FUER ein neues identifikationsfile,
C 1. Teil: Starnet     2. Teil: Neuer Katalog
C EINEN SATZ DES BEOBACHTUNGSFILES IN TABELLEN EINLESEN UND ANGUCKEN
C ******************************************************************
C
      i1 = iin+1
      do 1 i = i1,idim
   11 READ(IBEO,'(A)',END=197) gscrec(i)
c      write(57,'(a)') gscrec(i)
c      if(gscrec(i)(80:83).eq.'ppmx') then
      if(gscrec(i)(96:99).eq.'ppmx') then
      write(57,'(a)') gscrec(i)
       goto 11
       end if
   1  continue
      iout = idim
      return
 197  continue
      iout = i - 1
      ieof = 1
      RETURN
C
      END