SUBROUTINE suchsTA(idim,irein,ig,gscrec,is,isatz,iende)
c
c
c      Diese Subroutine sucht aus irein gscrec Records die ersten
c      is zusammenhaengenden isatz heraus und gibt
c      die restlichen ig records in gscrec zurueck
c      wenn die Subroutine keinen record gscrec mehr zurueckgeben
c      kann, setzt sie iende = 1
c      Die Routine kann/muss editiert werden, je nachdem ob als
c      Identifier die gesamte erste Haelfte des Records oder nur
c      140 bis 150 verwendet wird
c
C FUER BEOB-FILE:
c      CHARACTER   gscrec*104,isatz*104
      CHARACTER   gscrec*120,isatz*120
c     CHARACTER   starnet*196,starnet2*196
      CHARACTER   starnet*24,starnet2*24
      dimension gscrec(idim),isatz (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
      isatz(1) = gscrec(1)
      starnet = gscrec(1)(1:24)
      ig = irein - 1
      is =  1
      iende = 0
      if(ig.eq.0) then
        iende = 1
        return
        end if
      do 1 i = 2,irein
      starnet2= gscrec(i)(1:24)
      if(starnet2.ne.starnet)  goto 1
      ig = ig - 1
      is =  is +1
      isatz(is) = gscrec(i)
   1  continue
      if(ig.eq.0) then
        iende = 1
	return
        else
c
c         gscrec hochschieben
c
      do 2 i = 1,ig
      gscrec(i) = gscrec(i+is)
 2    continue
      irein = ig
      end if
      return
C
      END