program v8sbuv
c
c***********************************************************************
c
c     sbvmain
c
c     version:          8.03
c     latest revision:  febuary, 2002
c     language:         fortran90
c     computer:         sgi workstations
c     op system :       unix
c
c     authors
c        n nath, c wellemeyer, n nath, z zang, a gopalan
c        and pk bhartia
c
c     purpose:
c        main driver for the v8 sbuv ozone retrieval algorithm
c        (in this engineering version some functions are omitted)
c
c     subdrivers called:
c        name        purpose
c        ----        -------
c        start       performs job initialization
c        tbegin      performs file initialization
c        dproc       performs file processing
c                    dproc calls the subdriver oproc
c                    oproc calls total, the first guess algorithm and
c                    profile, the profile retrieval algorithm
c        termin      performs job termination tasks
c
c     other subroutines called:
c        name        purpose
c        ----        -------
c        updhdr      makes a string containing the time of last data record
c                    of file, and writes it on the file header.
c        wtrlf       constructs and writes trailer record onto the data file.
c
c     modification
c
c***********************************************************************
c
      implicit none
c
      logical*4 error,endjob
      data  error/.false./,endjob/.false./
c
c**** perform job initialization
c
      call start(error)
c
c**** set up file processing
c
c     if (.not.error) call tbegin(error,endjob)
c
c**** process one input/output file pair.
c
      if (.not.(error.or.endjob)) call dproc(error)
c
c**** terminate processing for job
c
      if (.not.error) then
c       call wtrlf
c       call updhdr(error)
      endif
      call termin(error)
      if (error) stop 1
c
      end