sourcedistance()

double sff::sourcedistance	(	const SRCE &	srce,
		const INFO &	info
	)

return spatial distance between source and receiver in meters

Definition at line 78 of file offset.cc.

References sff::SRCE::cs, sff::INFO::cs, CS_cartesian, sff::SRCE::cx, sff::INFO::cx, sff::SRCE::cy, sff::INFO::cy, sff::SRCE::cz, sff::INFO::cz, SFF_abort, and SFF_assert.

  {
    double retval;
    SFF_assert((srce.cs == info.cs),
                "ERROR (sourcedistance): inconsistent coordinate systems!");
    SFF_assert((srce.cs == CS_cartesian),
                "ERROR (sourcedistance): "
                "only provided in Cartesian coordinates!");
    if (srce.cs == CS_cartesian)
    {
      double dx=srce.cx-info.cx;
      double dy=srce.cy-info.cy;
      double dz=srce.cz-info.cz;
      retval=sqrt(dx*dx+dy*dy+dz*dz);
    }
    else
    {
      SFF_abort("ERROR (sourcedistance): unknown coordinate system!");
    }
    return(retval);
  } // double sourcedistance(const SRCE& srce, const INFO& info)