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