ppf_pointing.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_pointing.inc	1.10		00/04/13"
C*
C* Copyright    : DEIMOS Space S.L.
C* Project      : REMASE
C*
C* Module       : ppf_pointing.inc
C* Purpose      : It is the header file of the PPF_POINTING 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  | 17/05/05 | DEIMOS Space |15 release |
C*              +-----------------------------------------------+
C*
C****************************************************************

      INTEGER*4 PP_SILENT, PP_VERBOSE
      INTEGER*4 PP_PRINT_MSG, PP_VECTOR_MSG, PP_VECTOR_CODE 
      INTEGER*4 PP_TARGET, PP_STAVIS, PP_GENSTATE_DRS, PP_DRSVIS
      INTEGER*4 PP_DRSORB

      EXTERNAL  PP_SILENT !$pragma C(pp_silent)
      EXTERNAL  PP_VERBOSE !$pragma C(pp_verbose)
      EXTERNAL  PP_PRINT_MSG !$pragma C(pp_print_msg)
      EXTERNAL  PP_VECTOR_MSG !$pragma C(pp_vector_msg)
      EXTERNAL  PP_VECTOR_CODE !$pragma C(pp_vector_code)

      EXTERNAL  PP_TARGET !$pragma C(pp_target)
      EXTERNAL  PP_STAVIS !$pragma C(pp_stavis)
      EXTERNAL  PP_GENSTATE_DRS !$pragma C(pp_genstate_drs)
      EXTERNAL  PP_DRSVIS !$pragma C(pp_drsvis)
      EXTERNAL  PP_DRSORB !$pragma C(pp_drsorb)

      EXTERNAL  PP_INIT_ATTITUDE_FILE !$pragma C(pp_init_attitude_file)
      EXTERNAL  PP_GET_ATTITUDE_AOCS !$pragma C(pp_get_attitude_aocs)