ppf_visibility.inc

read envisat and analyis sar data from NASA

C****************************************************************
C*  This version number is the SCCS version number valid only for
C*  internal configuration and control.
C*  The oficial version number can be found in the History box
C*  below.
C*
C* SCCS ID "@(#)ppf_visibility.inc	2.7		00/04/13"
C*
C* Copyright    : DEIMOS Space S.L.
C* Project      : REMASE
C*
C* Module       : ppf_visibility.inc
C* Purpose      : It is the header file of the PPF_VISIBILITY CFI to be
C*                used by the final user (fortran programs)
C*
C* History      +-----------------------------------------------+
C*              | Version | Date     | Name         | Change    |
C*              |---------|----------|--------------|-----------|
C*              |    2.1  | 05/12/97 |   GMV, S.A   | 1 release |
C*              |    2.2  | 18/05/98 |   GMV, S.A   | 2 release |
C*              |    2.3  | 13/10/98 |   GMV, S.A   | 3 release |
C*              |    2.4  | 05/05/99 |   GMV, S.A   | 4 release |
C*              |    2.5  | 14/04/00 |   GMV, S.A   | 5 release |
C*              |    2.6  | 22/06/01 |   GMV, S.A   | 6 release |
C*              |    2.7  | 31/07/01 |   GMV, S.A   | 7 release |
C*              |    2.8  | 22/09/01 | DEIMOS Space | 8 release |
C*              |    3.0  | 18/01/02 | DEIMOS Space | 9 release |
C*              |    3.1  | 25/11/02 | DEIMOS Space |10 release |
C*              |    3.2  | 26/05/03 | DEIMOS Space |11 release |
C*              |    3.3  | 13/12/04 | DEIMOS Space |12 release |
C*              |   3.3.1 | 15/02/05 | DEIMOS Space |13 release |
C*              |    3.4  | 17/05/05 | DEIMOS Space |14 release |
C*              +-----------------------------------------------+
C*
C****************************************************************

      INTEGER*4 PV_SILENT, PV_VERBOSE
      INTEGER*4 PV_PRINT_MSG, PV_VECTOR_MSG, PV_VECTOR_CODE 
      INTEGER*4 PV_ZONEVISTIME, PV_STAVISTIME, PV_DRSVISTIME
      INTEGER*4 PV_SWATHCALC, PV_ORBITINFO, PV_ANXUTC, PV_UTCANX
      INTEGER*4 PV_STARVISTIME

      EXTERNAL  PV_SILENT !$pragma C(pv_silent)
      EXTERNAL  PV_VERBOSE !$pragma C(pv_verbose)
      EXTERNAL  PV_PRINT_MSG !$pragma C(pv_print_msg)
      EXTERNAL  PV_VECTOR_MSG !$pragma C(pv_vector_msg)
      EXTERNAL  PV_VECTOR_CODE !$pragma C(pv_vector_code)

      EXTERNAL  PV_ZONEVISTIME !$pragma C(pv_zonevistime)
      EXTERNAL  PV_STAVISTIME !$pragma C(pv_stavistime)
      EXTERNAL  PV_DRSVISTIME !$pragma C(pv_drsvistime)
      EXTERNAL  PV_SWATHCALC !$pragma C(pv_swathcalc)
      EXTERNAL  PV_ORBITINFO !$pragma C(pv_orbitinfo)
      EXTERNAL  PV_ANXUTC !$pragma C(pv_anxutc)
      EXTERNAL  PV_UTCANX !$pragma C(pv_utcanx)
      EXTERNAL  PV_STARVISTIME !$pragma C(pv_starvistime)