      SUBROUTINE process(success)
c============================================================================
c PROCEDURE NAME: 	_process
c PROCEDURE TYPE: 	_subroutine
c VERSION DATE:		_23.II.98
c
c PURPOSE:
c   Driver for all data processing for TOMS overpass.
c
c CALLING PARAMETERS:
c   Name	Type	i/o	units	Description
c   --------	----	---	-----	--------------
c   success      l4      o              Successful completion flag
c
c EXTERNAL ROUTINES REQUIRED:
c   proscan
c   next_l2
c
c NOTES & CAVEATS:
c
c REVISION HISTORY:
c
c============================================================================
      IMPLICIT NONE
c----------------------------------------------------------------------------
c Compile parameters
c
      INCLUDE "ovpindex.prm"

c----------------------------------------------------------------------------
c Calling parameters
c
      LOGICAL success

c----------------------------------------------------------------------------
c Common blocks
c
      INCLUDE "ovpindex.cmn"

c----------------------------------------------------------------------------
c Local variables
c

c============================================================================

      WRITE(loglun,'(A)') 'PROCESS ...'

  100 CONTINUE
        CALL proscan(success)
           IF(.NOT.success) RETURN

        CALL next_l2(success)
           IF(success) GOTO 100

      success=.TRUE.
      RETURN
      END
