C 
C     INCLUDE 'metric.inc'
C     ------------------------------------------------------------------
      INTEGER KOORS
      REAL RADIAN,RADIUS
      COMMON/METRC/KOORS,RADIAN,RADIUS
      SAVE /METRC/
C     ------------------------------------------------------------------
C     KOORS...Specifies the type of the right-handed coordinate system:
C             KOORS.LE.0: Cartesian coordinates.
C             KOORS.EQ.1: Polar spherical coordinates (X1,X2,X3)=
C               (colatitude,longitude,radius).
C             KOORS.GE.2: Geographic spherical coordinates (X1,X2,X3)=
C               (longitude,latitude,radius).
C     RADIAN..Number of radians per the angular unit.
C     RADIUS..Reference Earth radius.  If non-zero, radius X3 in
C             spherical coordinates is replaced by elevation X3 above
C             radius RADIUS.  I.e., radius=RADIUS+X3.
C
C     Common block /METRC/ is included in FORTRAN 77 source code files
C     'metric.for'.
C
C Date: 2006, February 21
C Coded by Ludek Klimes
C
C=======================================================================
C