SUBROUTINE TABS ( DEL, HP, DM, AM )

Argument Definitions (+ indicates altered content)
REAL              +AM,         DEL,        DM,         HP
Description
THIS SUBROUTINE CALCULATES THE LOSS PER KILOMETER FOR THE 
PART OF THE PATH THAT MISSES THE ABSORBING REGINON
Source file:tabs.f
Intrinsic Functions Called
GENERIC            ATAN,       COS,        SQRT
Local Variables (+ indicates altered content)
REAL              +AB,        +PHE,       +PORT,      +PSI
REAL              +RCOSD,     +SCPHE,     +SPHE,      +XI
REAL              +XMHOP
Referenced Common Block Variables (+ indicates altered content)
CON                REAL               PIO2,      RZ
FRQ                REAL               FREQ
GEOG               REAL               GYZ(5)