      SUBROUTINE init_ovx(success)
c============================================================================
c PROCEDURE NAME: 	_init_ovp
c PROCEDURE TYPE: 	_subroutine
c VERSION DATE:		_23.II.98
c
c PURPOSE:
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
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 "ovx.cmn"
      INCLUDE "sites.cmn"

c----------------------------------------------------------------------------
c Local variables
c
      INTEGER*4 i, j

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

      IF(debuglevel .GT. 3) WRITE(6,*)'> SUBROUTINE init_ovx'


      DO i=1, n_sites

        n_fov(i)= 0
        ptr(0,i)= 0
        DO j= 1, max_vicin
          filehndl(j,i)= '     '
          filerec(j,i)= 0
          scanpos(j,i)= 0
          gmtsec(j,i)= 0
          costfun(j,i)= 0.0
          scantime(j,i)= 0.0
          ptr(j,i)= 0
          ovplat(j,i)= 0.0
          ovplon(j,i)= 0.0
        END DO

      END DO 

      success=.TRUE.
      IF(debuglevel .GT. 3) WRITE(6,*)'< SUBROUTINE init_ovx'

      RETURN
      END
