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