}
//#define set_warn(txt, err) printf("%s:%d %s\n", __func__, __LINE__, txt);
-#define set_warn(txt, err) 1;
+#define set_warn(txt, err)
// :13: single-knife attenuation, page 6
/*
* computers," Princeton Univ. Press, 1955) and the maximum error should be
* 4.5e-4.
*/
+#if 1
static
double qerfi(double q)
{
return v;
}
+#endif
// :41: preparatory routine, page 20
* surface impedance @zgnd
* It may be used with either the area prediction or the point-to-point mode.
*/
+#if 1
static
void qlrps(double fmhz, double zsys, double en0, int ipol, double eps, double sgm, prop_type &prop)
prop.Z_g_real = prop_zgnd.real();
prop.Z_g_imag = prop_zgnd.imag();
}
+#endif
// :30: Function curv, page 15
// :28: Area variablity, page 14
+#if 1
static
double avar(double zzt, double zzl, double zzc, prop_type &prop, propv_type &propv)
{
return avarv;
}
-
+#endif
// :45: Find to horizons, page 24
/*
* pfl[0] = np, the number of points in the path
* pfl[1] = xi, the length of each increment
*/
+#if 1
static
void qlrpfl(double pfl[], int klimx, int mdvarx, prop_type &prop, propv_type &propv)
{
lrprop(0.0, prop);
}
+#endif
//********************************************************
double zc, zr;
double q = eno;
long ja, jb, i, np;
- double dkm, xkm;
double fs;
prop.h_g[0] = tht_m; // Tx height above ground level
zc = qerfi(conf);
zr = qerfi(rel);
np = (long)elev[0];
- dkm = (elev[1] * elev[0]) / 1000.0;
- xkm = elev[1] / 1000.0;
+#if 0
+ double dkm = (elev[1] * elev[0]) / 1000.0;
+ double xkm = elev[1] / 1000.0;
+#endif
ja = (long)(3.0 + 0.1 * elev[0]);
jb = np - ja + 6;