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)