SUBROUTINE MPATH ( IF )

Argument Definitions (+ indicates altered content)
INTEGER            IF
Description
THIS ROUTINE PERFORMS THE MULTIPATH PROBABILITY AND DETERMINES 
IF ANY OTHER MODE WILL INTERFERE WITH THE MOST RELIABLE MODE
Source file:mpath.f
Intrinsic Functions Called
REAL               AMAX1
GENERIC            ABS
Local Variables (+ indicates altered content)
INTEGER           +IM
REAL              +TTIM,      +XTLOS
Referenced Common Block Variables (+ indicates altered content)
ALLMODE            INTEGER            NMMOD,     NREL
ALLMODE            REAL               HP(20),    RELY(20)
ALLMODE            REAL               TIMED(20)
ALLMODE            REAL               TLOSS(20)
DON                REAL               DMP,       PMP
SON                REAL               DBLOS(13)
SON                REAL               DELAY(13)
SON                REAL              +PROBMP(13)