C
C     INCLUDE 'metric.inc'
C     ------------------------------------------------------------------
      INTEGER KOORS
      COMMON/METRC/KOORS
      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
C     Common block /METRC/ is included in FORTRAN 77 source code files
C     'metric.for'.
C
C Date: 1996, July 8
C Coded by Ludek Klimes
C
C=======================================================================
C