USGS InfoBank program -- onoffappend

onoffappend

  Program to append onoff line information to a navigation file,

  while clipping the nav to only between on/off times.
       

  Clint Steele      2/28/2002


    

          read (90, '(q,a)', end=99) OnLength, OnLine(1:OnLength)
          read (OnLine(1:14), '(f14.0)', end=99) OnTime
          read (90, '(f14.0)', end=99) OffTime
              read (91, '(q,a)', end=99) NavLength, NavLine(1:NavLength)
              read (NavLine(1:14), '(f14.0)') NavTime
              read (91, '(q,a)', end=99) NavLength, NavLine(1:NavLength)
              read (NavLine(1:14), '(f14.0)') NavTime

              write (92, '(a)') NavLine(1:36)//OnLine(80:88)

      call openem (2,1)