cdeck homer2
      subroutine homer2 (x,y,date,qfing,qfinf,temp)
c   reads one case from subfile
      real x, y, date, temp(1)
      logical   qfinf, qfing
      include 'maincomo.for'
      include 'homerc.for'
c
   10 call observ (moob,qfinf,qfing,qfirst,temp)
      if (qfinf.or.qfing) return
      x=obs(varnum(1))
      y=obs(varnum(2))
      date=obs(varnum(3))
c   return if option 1 is set to ignore missing values
      if (qoptsr(1)) return
c
c  check for missing cases
c
      do 20 i=1,3
         if (qmiss(varnum(i))) go to 10
   20    continue
      return
      end