SUBROUTINE GEOM ( )

Description
    THIS ROUTINE CALCULATES THE PATH GEOMETRY 
 
MAPIN IS -1,IF DATA TAPE HAS NOT BEEN READ.
Source file:geom.f
Intrinsic Functions Called
GENERIC            ABS,        ACOS,       COS,        SIGN
GENERIC            SIN
External Functions and Subroutines Called
SUBROUTINE         MAGVAR,     NOISY
Local Variables (+ indicates altered content)
INTEGER           +I
REAL              +AK,        +BK,        +BRT,       +CLG
REAL              +CLGD,      +CTLAT,     +DD,        +DDX
REAL              +DRF,       +EPSLON,    +GAT,       +GLG
REAL              +GLT,       +QCOS,      +RFLG,      +RFLT
REAL              +RFLTD,      WLD
Referenced Common Block Variables (+ indicates altered content)
CNORTH_POLE        REAL               G_MAGNETIC_LAT
CNORTH_POLE        REAL               G_MAGNETIC_LON
CON                REAL               D2R,       PI
CON                REAL               PI2,       PIO2
CON                REAL               R2D,       RZ
DON                REAL              +ALATD,    +BRTD
DON                REAL              +BTR,      +BTRD
DON                REAL              +DLONG,    +GCD
DON                REAL              +GCDKM,    +RLAT
DON                REAL              +RLATD,    +RLONG
DON                REAL               RLONGD,   +TLAT
DON                REAL               TLATD,    +TLONG
DON                REAL               TLONGD
GEOG               REAL              +EPSPAT(5)
GEOG               REAL              +SIGPAT(5)
ION                INTEGER            NPSL
RON                INTEGER           +KM
RON                REAL              +CLAT(5),  +CLONG(5)
RON                REAL              +GLAT(5),  +RD(5)