Clean up Hankel transform a little, work towards developing new filters.

Modules/FDEM1D/include/FHT.h

@@ -182,6 +182,8 @@ namespace Lemma {
     const Eigen::Matrix<Real, Eigen::Dynamic, 3>  FHT<FHTKONG121>::WT;
     template<>
     const Eigen::Matrix<Real, Eigen::Dynamic, 3>  FHT<FHTKONG241>::WT;
+    template<>
+    const Eigen::Matrix<Real, Eigen::Dynamic, 3>  FHT<IRONS>::WT;
 
     template < HANKELTRANSFORMTYPE Type >
     Complex FHT<Type>::Zgauss(const int& ii, const Lemma::EMMODE& mode, const int& jj, const Real& val,

Modules/FDEM1D/include/HankelTransformFactory.h

@@ -115,6 +115,8 @@ namespace Lemma {
                     return GQChave::NewSP();
                 case QWEKEY:
                     return QWEKey::NewSP();
+                case IRONS:
+                    return FHT<IRONS>::NewSP();
                 default:
                     std::cerr << "HankelTransformFactory only works with defined types\n";
             }

Modules/FDEM1D/src/EMEarth1D.cpp

@@ -232,7 +232,7 @@ namespace Lemma {
             icalc += 1;
             // Check to see if they are all on a plane? If so we can do this fast
             if (Antenna->IsHorizontallyPlanar() && ( HankelType == ANDERSON801 || HankelType== FHTKEY201 || HankelType==FHTKEY101 ||
-                                                     HankelType == FHTKEY51 || HankelType == FHTKONG61 || FHTKONG121 || FHTKONG241 )) {
+                                                     HankelType == FHTKEY51 || HankelType == FHTKONG61 || FHTKONG121 || FHTKONG241 || IRONS )) {
                 #ifdef HAVE_BOOST_PROGRESS
                 if (progressbar) {
                     disp = new boost::progress_display( Receivers->GetNumberOfPoints()*Antenna->GetNumberOfFrequencies() );

Modules/LemmaCore/include/lemma.h

@@ -294,7 +294,7 @@
          *  QWEKEY          Key's Gaussian quadrature integration method
          */
         enum HANKELTRANSFORMTYPE { ANDERSON801, CHAVE, FHTKEY201, FHTKEY101, FHTKEY51, QWEKEY,
-                                    FHTKONG61, FHTKONG121, FHTKONG241 };
+                                    FHTKONG61, FHTKONG121, FHTKONG241, IRONS };
 
         /** Enum is OK because these are the only physically possible sources.
          @param NOSOURCETYPE is default.

Modules/LemmaCore/src/helper.cpp

@@ -155,6 +155,9 @@ std::string enum2String(const HANKELTRANSFORMTYPE& Type) {
         case FHTKONG241:
             t = std::string("FHTKONG241");
             break;
+        case IRONS:
+            t = std::string("IRONS");
+            break;
 
     }
     return t;
@@ -196,6 +199,7 @@ HANKELTRANSFORMTYPE string2Enum<HANKELTRANSFORMTYPE>( const std::string& str ) {
     else if  (str == "FHTKONG61") return  FHTKONG61;
     else if  (str == "FHTKONG121") return  FHTKONG121;
     else if  (str == "FHTKONG241") return  FHTKONG241;
+    else if  (str == "IRONS") return  IRONS;
     else {
         throw std::runtime_error("string not recognized as HANKELTRANSFORMTYPE");
     }