cdeck homr3b
      subroutine homr3b (storxy,maxloc,temp)
      real storxy(3,maxloc), temp(*)
      include 'maincomo.for'
      include 'homerc.for'
      integer fdate(5)
      logical   qfinf, qfing
c
c   read cases into storxy
c
      i=0
   10 i=i+1
      if (i.gt.maxloc) then
c         insufficient storage to process cases
         call error ('insufficient storage to process cases')
         return
      endif
      call homer2 (storxy(1,i),storxy(2,i),storxy(3,i),qfing,qfinf,temp)
      if (qfinf) return
      if (qfing) then
c         process this subfile
         nfixes=i-1
         if (nfixes.le.3) then
            write (unit=iolp,fmt=50) nfixes
            call linect (3)
            i=0
            go to 10
         endif
         call dphead
      if (qoptsr(7).or.qoptsr(8).or.qoptsr(9).or.qoptsr(10).or.qoptsr(11
     1 )) write (unit=iobcd2,fmt='(1h*,a8,1h*)') sfdic(idic)
         write (iolp,20) (varnam(varnum(i)),(varlab(j,i),j=1,5),i=1,3)
         call linect (7)
         call homer9 (fdate,storxy(3,1))
         write (unit=iolp,fmt=30) fdate
         call linect (3)
         call homer9 (fdate,storxy(3,nfixes))
         write (unit=iolp,fmt=40) fdate
         call linect (3)
         call homer5 (nfixes,maxloc,storxy)
         i=0
      endif
      go to 10
c
   20 format (///10x,'v a r i a b l e   s u m m a r y'/10x,'x coordinate
     1 - ',a8,1h,,5a8/10x,'y coordinate - ',a8,1h,,5a8/10x,'time
     2 - ',a8,1h,,5a8)
   30 format (/10x,'date and time on first case used - ',2(i2.2,1h/),i2.
     1 2,1x,2i2.2)
   40 format (/10x,'date and time on last case used  - ',2(i2.2,1h/),i2.
     1 2,1x,2i2.2)
   50 format (/10x,'* * *   e r r o r   * * *   only',i2,' cases in subf
     1ile.'/10x,'processing of this subfile is skipped.')
      end