SUBROUTINE initialize(success)
c============================================================================
c PROCEDURE NAME: 	_initialize
c PROCEDURE TYPE: 	_subroutine
c VERSION DATE:		_23.II.98
c
c PURPOSE:
c   General initialization routine for overpass program version 1.0
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 This routine calls the following routines in sequence.  Unsuccessful
c completion by any of the routines results in return to calling program
c with unsuccessful completion flag.
c
c     ld_instdata  - loads data pertaining to the satellite (angles, 
c                    wavelenghts, etc.)
c     ld_geom      - loads geometric data into /geom/
c     ld_sites     - loads the list of sites and their coordinates
c     init_l2      - opens the first level-2 file, and reads in the first
c                    data record
c     init_ovx     - initializes the arrays used for accumulating the 
c                    overpass hits.
c     init_out     - initializes all the output files.
c
c NOTES & CAVEATS:
c
c REVISION HISTORY:
c    22.VII.98 - modified to use ld_instdata
c    23.II.98 - Original written (eac)
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
      CHARACTER*40 instdir /'InstData'/

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

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

      CALL ld_instdata(sat2lc, yeardoy, instdir, success)
        IF(.NOT.success) STOP

      CALL ld_geom(success)
        IF(.NOT.success) STOP

      CALL ld_sites(success)
        IF(.NOT.success) STOP

      CALL init_l2(success)
        IF(.NOT.success) STOP

      CALL init_ovx(success)
        IF(.NOT.success) STOP

      CALL init_out(success)

      WRITE(loglun,*)''

      RETURN
      END