ppf_lib.inc

read envisat and analyis sar data from NASA

C****************************************************************
C* This version 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_lib.inc	1.10		00/04/12"
C*
C* Copyright    : DEIMOS Space S.L.
C* Project      : REMASE
C*
C* Module       : ppf_lib.inc
C* Purpose      : It is the header file of the PPF_LIB CFI to be
C*                used by the final user (fortran programs)
C*
C* History      +-----------------------------------------------+
C*              | Version | Date     | Name         | Change    |
C*              |---------|----------|--------------|-----------|
C*              |    4.1  | 13/01/97 |   GMV, S.A   | 1 release |
C*              |    4.2  | 30/04/97 |   GMV, S.A   | 2 release |
C*              |    4.3  | 18/05/98 |   GMV, S.A   | 3 release |
C*              |    4.4  | 13/10/98 |   GMV, S.A   | 4 release |
C*              |    4.5  | 25/05/99 |   GMV, S.A   | 5 release |
C*              |    4.6  | 14/04/00 |   GMV, S.A   | 6 release |
C*              |    4.7  | 22/06/01 |   GMV, S.A   | 7 release |
C*              |    4.8  | 31/07/01 |   GMV, S.A   | 8 release |
C*              |    4.9  | 22/10/01 | DEIMOS Space | 9 release |
C*              |    5.0  | 18/01/02 | DEIMOS Space |10 release |
C*              |    5.1  | 25/11/02 | DEIMOS Space |11 release |
C*              |    5.2  | 26/05/03 | DEIMOS Space |12 release |
C*              |    5.3  | 13/12/04 | DEIMOS Space |13 release |
C*              |   5.3.1 | 15/02/05 | DEIMOS Space |14 release |
C*              |    5.4  | 15/05/05 | DEIMOS Space |15 release |
C*              +-----------------------------------------------+
C*
C****************************************************************

      INTEGER*4 PL_SILENT, PL_VERBOSE
      INTEGER*4 PL_PRINT_MSG, PL_VECTOR_MSG, PL_VECTOR_CODE
      INTEGER*4 PL_CHANGE_SV_CS, PL_CAR_GEO, PL_GEO_CAR
      INTEGER*4 PL_SRAR_CS, PL_GEO_DISTANCE

      INTEGER*4 PL_PMJD, PL_TMJD, PL_EMJD, PL_TADD, PL_TSUB

      INTEGER*4 PL_SUN, PL_MOON, PL_PLANETS, PL_STAR_RADEC

      EXTERNAL  PL_SILENT !$pragma C(pl_silent)
      EXTERNAL  PL_VERBOSE !$pragma C(pl_verbose)
      EXTERNAL  PL_PRINT_MSG !$pragma C(pl_print_msg)
      EXTERNAL  PL_VECTOR_MSG !$pragma C(pl_vector_msg)
      EXTERNAL  PL_VECTOR_CODE !$pragma C(pl_vector_code)

      EXTERNAL  PL_CHANGE_SV_CS !$pragma C(pl_change_sv_cs)
      EXTERNAL  PL_CAR_GEO !$pragma C(pl_car_geo)
      EXTERNAL  PL_GEO_CAR !$pragma C(pl_geo_car)
      EXTERNAL  PL_SRAR_CS !$pragma C(pl_srar_cs)
      EXTERNAL  PL_GEO_DISTANCE !$pragma C(pl_geo_distance)

      EXTERNAL  PL_PMJD !$pragma C(pl_pmjd)
      EXTERNAL  PL_TMJD !$pragma C(pl_tmjd)
      EXTERNAL  PL_EMJD !$pragma C(pl_emjd)
      EXTERNAL  PL_TADD !$pragma C(pl_tadd)
      EXTERNAL  PL_TSUB !$pragma C(pl_tsub)

      EXTERNAL  PL_SUN !$pragma C(pl_sun)
      EXTERNAL  PL_MOON !$pragma C(pl_moon)
      EXTERNAL  PL_PLANETS !$pragma C(pl_planets)
      EXTERNAL  PL_STAR_RADEC !$pragma C(pl_star_radec)