ppf_orbit.inc

来自「read envisat and analyis sar data from N」· INC 代码 · 共 55 行

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_orbit.inc	1.11		00/04/13"
C*
C* Copyright    : DEIMOS Space S.L.
C* Project      : REMASE
C*
C* Module       : ppf_orbit.inc
C* Purpose      : It is the header file of the PPF_ORBIT 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 PO_SILENT, PO_VERBOSE
      INTEGER*4 PO_PRINT_MSG, PO_VECTOR_MSG, PO_VECTOR_CODE
      INTEGER*4 PO_GENSTATE, PO_PPFORB, PO_INTERPOL_AUX, PO_GENOPS

      EXTERNAL  PO_SILENT !$pragma C(po_silent)
      EXTERNAL  PO_VERBOSE !$pragma C(po_verbose)
      EXTERNAL  PO_PRINT_MSG !$pragma C(po_print_msg)
      EXTERNAL  PO_VECTOR_MSG !$pragma C(po_vector_msg)
      EXTERNAL  PO_VECTOR_CODE !$pragma C(po_vector_code)

      EXTERNAL  PO_GENSTATE !$pragma C(po_genstate)
      EXTERNAL  PO_PPFORB !$pragma C(po_ppforb)
      EXTERNAL  PO_INTERPOL_AUX !$pragma C(po_interpol_aux)
      EXTERNAL  PO_GENOPS !$pragma C(po_genops)

#define PO_INTERPOL PO_INTERPOL_AUX