SUBROUTINE GETTOP ( DIKM, GMKM )

Argument Definitions (+ indicates altered content)
REAL               DIKM,      +GMKM
Description
THIS SUBROUTINE FINDS THE DISTANCE SUPPORTING M MODES, 
E.G., NIGHT-DAY-NIGHT PATH
Source file:gettop.f
Intrinsic Functions Called
REAL               AMAX1,      AMIN1
GENERIC            COS,        SQRT
Local Variables (+ indicates altered content)
INTEGER           +JF
REAL              +DEL,       +FP1,       +FP2,       +FP3
REAL              +FPE(3),    +FV,        +HT,        +RCOSD
REAL              +SPHE
Referenced Common Block Variables (+ indicates altered content)
CON                REAL               D2R,       RZ
FRQ                REAL               FREQ
LPATH              REAL               DELOPT
RON                REAL               FI(3,5),   HI(3,5)