}
//#define set_warn(txt, err) printf("%s:%d %s\n", __func__, __LINE__, txt);
}
//#define set_warn(txt, err) printf("%s:%d %s\n", __func__, __LINE__, txt);
* surface impedance @zgnd
* It may be used with either the area prediction or the point-to-point mode.
*/
* surface impedance @zgnd
* It may be used with either the area prediction or the point-to-point mode.
*/
static
void qlrps(double fmhz, double zsys, double en0, int ipol, double eps, double sgm, prop_type &prop)
static
void qlrps(double fmhz, double zsys, double en0, int ipol, double eps, double sgm, prop_type &prop)
static
double avar(double zzt, double zzl, double zzc, prop_type &prop, propv_type &propv)
{
static
double avar(double zzt, double zzl, double zzc, prop_type &prop, propv_type &propv)
{
* pfl[0] = np, the number of points in the path
* pfl[1] = xi, the length of each increment
*/
* pfl[0] = np, the number of points in the path
* pfl[1] = xi, the length of each increment
*/
static
void qlrpfl(double pfl[], int klimx, int mdvarx, prop_type &prop, propv_type &propv)
{
static
void qlrpfl(double pfl[], int klimx, int mdvarx, prop_type &prop, propv_type &propv)
{