SUBROUTINE BABS ( DEL, HP, DF, AF )
Argument Definitions (+ indicates altered content)
REAL              +AF,         DEL,        DF,         HP
Description
THIS SUBROUTINE CALCULATES THE LOSS PER KILOMETER FOR A PATH 
PASSING THROUGH THE ABSORBING REGION
Source file:babs.f
Intrinsic Functions Called
GENERIC            ATAN,       COS,        SQRT
Local Variables (+ indicates altered content)
REAL              +AB,        +PHE,       +PORT,      +PSI
REAL              +RCOSD,     +SCPHE,     +SPHE,      +XMHOP
Referenced Common Block Variables (+ indicates altered content)
CON                REAL               PIO2,      RZ
FRQ                REAL               FREQ
GEOG               REAL               GYZ(5)
SIGD               REAL               ACAV