subroutine lodtoz (iseq,iyear,idoy,algflg,errflg,apprf,eff)
c
c***********************************************************************
c
c     purpose
c        loads buffer /bufout/ with total ozone data
c
c     variables
c       name        type   i/o  description
c       ----        ----   ---  -----------
c
c      common /totret/
c       xlat         r*4    i   ifov latitude
c       xlon         r*4    i   ifov longitude in degs
c       sza          r*4    i   ifov solar zenith angle (degs)
c       xthet        r*4    i   ifov scan angle (degs)
c       xphi         r*4    i   ifov scan plane angle (degs)
c       pteran       r*4    i   terrain height pressure
c       xnvalm(6)    r*4    i   measured n-values
c       resn         r*4    i   n-value residuals
c       sens         r*4    i   n-value sensitivities
c
c     calling routine  total
c
c******************************************************************
c
      implicit none
c
      integer algflg,errflg,i,iseq,iyear,idoy
      real eff(11),apprf(11)
c
      include 'buffout.com'
      include 'totret.com'
c     bufo initialization
      do i=1,700
      bufo(i)=99999.0
      enddo
c
      bufo(1)=iorbit
      bufo(2)=igmt
      bufo(3)=iseq
c     bufo(4)=spacecraft altitude (spare now)
      bufo(5)=idoy
      bufo(6)=iyear
      bufo(7)=xlat
      bufo(8)=xlon
      bufo(9)=sza
      bufo(10)=szabeg
      bufo(11)=szaend
      do i=1,12
        bufo(i+11)=xnvalm(i)
        bufo(i+23)=xnvalp(i)
      enddo
      bufo(36)=ozbst
      bufo(37)=errflg
      bufo(38)=ref
      bufo(39)=algflg
      bufo(40)=estozn
      bufo(41)=stp2oz
      do i=1,8
        bufo(i+41)=sens(i)
        bufo(i+49)=rsens(i)
        bufo(i+58)=resn(i)
      enddo
      bufo(58)=rsensccr
      bufo(67)=resnccr
      bufo(68)=pteran
      bufo(69)=pcloud
      bufo(70)=clfrac
      bufo(71)=isnow
      bufo(72)=ozcld
      bufo(73)=isface
      bufo(74)=gain14
      bufo(75)=gain58
      bufo(76)=gain912
      bufo(77)=aerind
      do i=1,11
        bufo(i+77)=apprf(i)
        bufo(i+88)=eff(i)
      enddo
c
      return
c
      end