Cecil,

There has been a temporary improvement in my Alzeimer's affliction.

The attenuation along a radial is given by =

Attenuation = ( R / Ro + G * Ro ) / 2 nepers.

Where -

R = HF Conductor resistance.
G = Shunt leakance or conductance, related to soil conductivity.
Ro = Resistive component of line impedance Zo.

One neper = 8.686 dB.

If I published the source code you would be asking even more questions
and Richard Clark would again unjustly accuse me of trolling. ;o)
----
Reg.