Fix interpolation bug with Anderson801

Modules/FDEM1D/examples/Hantenna.cpp

@@ -30,6 +30,7 @@
 #if defined(__clang__)
 	/* Clang/LLVM. ---------------------------------------------- */
     const char* compiler = "clang";
+    const char* ver = __VERSION__;
 #elif defined(__ICC) || defined(__INTEL_COMPILER)
 	/* Intel ICC/ICPC. ------------------------------------------ */
     const char* compiler = "icpc";

Modules/FDEM1D/src/EMEarth1D.cpp

@@ -779,7 +779,7 @@ namespace Lemma {
 
         // Determine number of lagged convolutions to do
         int nlag = 1; // (Key==0)  We need an extra for some reason for stability? Maybe in Spline?
-        Real lrho ( 1.0 * rhomax );
+        Real lrho ( 1.0001 * rhomax );
         while ( lrho > rhomin ) {
             nlag += 1;
             lrho *= Hankel->GetABSER();
@@ -789,7 +789,7 @@ namespace Lemma {
         tDipole->SetKernels(ifreq, FieldsToCalculate, Receivers, irec, Earth);
 
         // Instead we should pass the antenna into this so that Hankel hass all the rho arguments...
-        Hankel->ComputeLaggedRelated( 1.0*rhomax, nlag, tDipole->GetKernelManager() );
+        Hankel->ComputeLaggedRelated( 1.0001*rhomax, nlag, tDipole->GetKernelManager() );
 
         // Sort the dipoles by rho
         for (int idip=0; idip<antenna->GetNumberOfDipoles(); ++idip) {

Modules/LemmaCore/src/CubicSplineInterpolator.cpp

@@ -178,11 +178,6 @@ namespace Lemma {
         }
         --i;
 
-//         if ( x > Spline.x[i] ) {
-//             std::cout << "DOOM\t" << x << "\t" << i << "\t" << Spline.x[i];
-//             throw std::runtime_error("CubicSplineInterpolator::Interpolate ATTEMPT TO INTERPOLATE PAST LAST KNOT");
-//         }
-
         return Spline.a[i] + Spline.b[i]*(x-Spline.x[i]) + Spline.c[i]*((x-Spline.x[i])*(x-Spline.x[i])) +
                Spline.d[i]*((x-Spline.x[i])*(x-Spline.x[i])*(x-Spline.x[i]) );
     }		// -----  end of method CubicSplineInterpolator::Interpolate  -----