tirons
/
lemma_mirror
mirror of https://github.com/LemmaSoftware/Lemma.git
Watch 1
Star 0
Fork 0
Code Issues 0 Releases 0 Wiki Activity
Lemma is an Electromagnetics API
You can not select more than 25 topics Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
295 Commits
6 Branches
Tree: 32f3339fff
Branches Tags
${ item.name }
Create branch ${ searchTerm }
from '32f3339fff'
${ noResults }
lemma_mirror/Modules/FDEM1D/src/DipoleSource.cpp

DipoleSource.cpp 97KB
History Raw

1234567891011121314151617181920212223242526272829303132333435363738394041424344454647484950515253545556575859606162636465666768697071727374757677787980818283848586878889909192939495969798991001011021031041051061071081091101111121131141151161171181191201211221231241251261271281291301311321331341351361371381391401411421431441451461471481491501511521531541551561571581591601611621631641651661671681691701711721731741751761771781791801811821831841851861871881891901911921931941951961971981992002012022032042052062072082092102112122132142152162172182192202212222232242252262272282292302312322332342352362372382392402412422432442452462472482492502512522532542552562572582592602612622632642652662672682692702712722732742752762772782792802812822832842852862872882892902912922932942952962972982993003013023033043053063073083093103113123133143153163173183193203213223233243253263273283293303313323333343353363373383393403413423433443453463473483493503513523533543553563573583593603613623633643653663673683693703713723733743753763773783793803813823833843853863873883893903913923933943953963973983994004014024034044054064074084094104114124134144154164174184194204214224234244254264274284294304314324334344354364374384394404414424434444454464474484494504514524534544554564574584594604614624634644654664674684694704714724734744754764774784794804814824834844854864874884894904914924934944954964974984995005015025035045055065075085095105115125135145155165175185195205215225235245255265275285295305315325335345355365375385395405415425435445455465475485495505515525535545555565575585595605615625635645655665675685695705715725735745755765775785795805815825835845855865875885895905915925935945955965975985996006016026036046056066076086096106116126136146156166176186196206216226236246256266276286296306316326336346356366376386396406416426436446456466476486496506516526536546556566576586596606616626636646656666676686696706716726736746756766776786796806816826836846856866876886896906916926936946956966976986997007017027037047057067077087097107117127137147157167177187197207217227237247257267277287297307317327337347357367377387397407417427437447457467477487497507517527537547557567577587597607617627637647657667677687697707717727737747757767777787797807817827837847857867877887897907917927937947957967977987998008018028038048058068078088098108118128138148158168178188198208218228238248258268278288298308318328338348358368378388398408418428438448458468478488498508518528538548558568578588598608618628638648658668678688698708718728738748758768778788798808818828838848858868878888898908918928938948958968978988999009019029039049059069079089099109119129139149159169179189199209219229239249259269279289299309319329339349359369379389399409419429439449459469479489499509519529539549559569579589599609619629639649659669679689699709719729739749759769779789799809819829839849859869879889899909919929939949959969979989991000100110021003100410051006100710081009101010111012101310141015101610171018101910201021102210231024102510261027102810291030103110321033103410351036103710381039104010411042104310441045104610471048104910501051105210531054105510561057105810591060106110621063106410651066106710681069107010711072107310741075107610771078107910801081108210831084108510861087108810891090109110921093109410951096109710981099110011011102110311041105110611071108110911101111111211131114111511161117111811191120112111221123112411251126112711281129113011311132113311341135113611371138113911401141114211431144114511461147114811491150115111521153115411551156115711581159116011611162116311641165116611671168116911701171117211731174117511761177117811791180118111821183118411851186118711881189119011911192119311941195119611971198119912001201120212031204120512061207120812091210121112121213121412151216121712181219122012211222122312241225122612271228122912301231123212331234123512361237123812391240124112421243124412451246124712481249125012511252125312541255125612571258125912601261126212631264126512661267126812691270127112721273127412751276127712781279128012811282128312841285128612871288128912901291129212931294129512961297129812991300130113021303130413051306130713081309131013111312131313141315131613171318131913201321132213231324132513261327132813291330133113321333133413351336133713381339134013411342134313441345134613471348134913501351135213531354135513561357135813591360136113621363136413651366136713681369137013711372137313741375137613771378137913801381138213831384138513861387138813891390139113921393139413951396139713981399140014011402140314041405140614071408140914101411141214131414141514161417141814191420142114221423142414251426142714281429143014311432143314341435143614371438143914401441144214431444144514461447144814491450145114521453145414551456145714581459146014611462146314641465146614671468146914701471147214731474147514761477147814791480148114821483148414851486148714881489149014911492149314941495149614971498149915001501150215031504150515061507150815091510151115121513151415151516151715181519152015211522152315241525152615271528152915301531153215331534153515361537153815391540154115421543154415451546154715481549155015511552155315541555155615571558155915601561156215631564156515661567156815691570157115721573157415751576157715781579158015811582158315841585158615871588158915901591159215931594159515961597159815991600160116021603160416051606160716081609161016111612161316141615161616171618161916201621162216231624162516261627162816291630163116321633163416351636163716381639164016411642164316441645164616471648164916501651 
  1. /* This file is part of Lemma, a geophysical modelling and inversion API */

  2. 

  3. /* This Source Code Form is subject to the terms of the Mozilla Public

  4.  * License, v. 2.0. If a copy of the MPL was not distributed with this

  5.  * file, You can obtain one at http://mozilla.org/MPL/2.0/. */

  6. 

  7. /**

  8.   @file

  9.   @author   Trevor Irons

  10.   @date     12/02/2009

  11.  **/

  12. 

  13. #include "DipoleSource.h"

  14. #include "KernelEM1DManager.h"

  15. 

  16. //#include "GroundedElectricDipole.h"

  17. //#include "UngroundedElectricDipole.h"

  18. //#include "MagneticDipole.h"

  19. 

  20. #include "FieldPoints.h"

  21. #include "HankelTransform.h"

  22. 

  23. namespace Lemma {

  24. 

  25. 

  26.     // ====================    FRIENDS     ======================

  27. 

  28.     std::ostream &operator<<(std::ostream &stream, const DipoleSource &ob) {

  29.         stream << ob.Serialize()  << "\n";

  30.         return stream;

  31.     }

  32. 

  33. /*

  34.     bool DipoleSource::operator == (DipoleSource& rhs) const {

  35.         if (Location != rhs.Location) return false;

  36.         return true;

  37.     }

  38. */

  39. 

  40.     // ====================  LIFECYCLE     ======================

  41. 

  42.     DipoleSource::DipoleSource( const ctor_key& key ) : LemmaObject( key ),

  43.                     Type(NOSOURCETYPE),

  44.                     irec(-1),

  45.                     Phase(0),

  46.                     Moment(1),

  47.                     KernelManager(nullptr),

  48.                     Receivers(nullptr),

  49.                     Earth(nullptr)

  50.     {

  51.         this->Location.setZero();

  52.         this->Phat.setZero();

  53.     }

  54. 

  55.     DipoleSource::DipoleSource( const YAML::Node& node, const ctor_key& key ) : LemmaObject( node, key ),

  56.                     Type(NOSOURCETYPE),

  57.                     irec(-1),

  58.                     Phase(0),

  59.                     Moment(1),

  60.                     KernelManager(nullptr),

  61.                     Receivers(nullptr),

  62.                     Earth(nullptr)

  63.     {

  64.         Type = string2Enum<DIPOLESOURCETYPE>(node["Type"].as<std::string>());

  65.         this->Location = node["Location"].as<Vector3r>();

  66.         this->Phat.setZero();

  67.     }

  68. 

  69. 

  70.     DipoleSource::~DipoleSource() {

  71.     }

  72. 

  73.     std::shared_ptr<DipoleSource> DipoleSource::NewSP() {

  74.         return std::make_shared<DipoleSource> ( ctor_key() );

  75.     }

  76. 

  77.     YAML::Node DipoleSource::Serialize() const {

  78.         YAML::Node node = LemmaObject::Serialize();

  79.         node.SetTag( GetName() );

  80.         node["Type"] = enum2String(Type);

  81.         node["Location"] = Location;

  82.         node["Phat"] = Phat;

  83.         node["Freqs"] = Freqs;

  84.         node["Phase"] = Phase;

  85.         node["Moment"] = Moment;

  86.         return node;

  87.     }

  88. 

  89.     std::shared_ptr< DipoleSource > DipoleSource::DeSerialize(const YAML::Node& node) {

  90.         if (node.Tag() != "DipoleSource") {

  91.             throw  DeSerializeTypeMismatch( "DipoleSource", node.Tag());

  92.         }

  93.         return std::make_shared<DipoleSource> ( node, ctor_key() );

  94.     }

  95. 

  96.     std::shared_ptr<DipoleSource> DipoleSource::Clone() {

  97. 

  98.         auto Obj = DipoleSource::NewSP();

  99. 

  100.         // copy

  101.         Obj->Type = Type;

  102. 

  103.         Obj->irec = irec;

  104.         Obj->lays = lays;

  105.         Obj->layr = layr;

  106. 

  107.         Obj->Phase = Phase;

  108.         Obj->Moment = Moment;

  109. 

  110.         Obj->xxp = xxp;

  111.         Obj->yyp = yyp;

  112.         Obj->rho = rho;

  113.         Obj->sp = sp;

  114.         Obj->cp = cp;

  115.         Obj->scp = scp;

  116.         Obj->sps = sps;

  117.         Obj->cps = cps;

  118.         Obj->c2p = c2p;

  119. 

  120.         Obj->FieldsToCalculate = FieldsToCalculate;

  121.         Obj->f = f;

  122.         Obj->ik = ik;

  123. 

  124.         Obj->Location = Location;

  125.         Obj->Phat = Phat;

  126.         Obj->Freqs = Freqs;

  127. 

  128.         return Obj;

  129.     }

  130. 

  131.     //--------------------------------------------------------------------------------------

  132.     //       Class:  DipoleSource

  133.     //      Method:  GetName

  134.     // Description:  Class identifier

  135.     //--------------------------------------------------------------------------------------

  136.     inline std::string DipoleSource::GetName (  ) const {

  137.         return CName;

  138.     }		// -----  end of method DipoleSource::GetName  -----

  139. 

  140.     // ====================  ACCESS        ======================

  141.     void DipoleSource::SetLocation(const Vector3r &posin) {

  142.         this->Location = posin;

  143.     }

  144. 

  145.     void DipoleSource::SetLocation(const Real &xp, const Real &yp,

  146.                     const Real &zp) {

  147.         this->Location = Vector3r(xp, yp, zp);

  148.     }

  149. 

  150.     void DipoleSource::SetPhase(const Real &phase) {

  151.         this->Phase = phase;

  152.     }

  153. 

  154.     void DipoleSource::SetPolarity(const DipoleSourcePolarity &pol) {

  155.         static bool called = false;

  156.         if (!called) {

  157.             std::cerr << "\n\n=================================================================\n"

  158.                       << "WARNING: Use of deprecated method DipoleSource::SetPolarity(pol)\n"

  159.                       << "Use more general SetPolarisation( Vector3r ) or SetPolarisation( x, y, z );\n"

  160.                       << "This method will be removed in future versions of Lemma"

  161.                       << "\n=================================================================\n";

  162.             called = true;

  163.         }

  164. //         Polarity = pol;

  165. //         switch (Polarity) {

  166. //             case POSITIVE:

  167. //                 Moment =  std::abs(Moment);

  168. //                 break;

  169. //             case NEGATIVE:

  170. //                 Moment = -std::abs(Moment);

  171. //                 break;

  172. //             default:

  173. //                 throw NonValidDipolePolarity();

  174. //         };

  175.     }

  176. 

  177.     void DipoleSource::SetType(const DIPOLESOURCETYPE & stype) {

  178. 

  179.         switch (stype) {

  180.             case (GROUNDEDELECTRICDIPOLE):

  181.                 this->Type = stype;

  182.                 break;

  183.             case (UNGROUNDEDELECTRICDIPOLE):

  184.                 this->Type = stype;

  185.                 break;

  186.             case (GROUNDINGPOINT):

  187.                 this->Type = stype;

  188.                 break;

  189.             case (MAGNETICDIPOLE):

  190.                 this->Type = stype;

  191.                 break;

  192.             default:

  193.                 throw NonValidDipoleTypeAssignment();

  194.         }

  195.     }

  196. 

  197.     void DipoleSource::SetPolarisation(const Vector3r& pol) {

  198.         this->Phat = pol / pol.norm();

  199.     }

  200. 

  201.     void DipoleSource::SetPolarisation(const Real& x, const Real& y, const Real& z) {

  202.         Vector3r pol = (VectorXr(3) << x, y, z).finished();

  203.         this->Phat = pol / pol.norm();

  204.     }

  205. 

  206.     Vector3r DipoleSource::GetPolarisation() {

  207.         return Phat;

  208.     }

  209. 

  210.     DIPOLESOURCETYPE DipoleSource::GetType() {

  211.         return Type;

  212.     }

  213. 

  214.     void DipoleSource::SetPolarisation(const

  215.                     DipoleSourcePolarisation &pol) {

  216. 

  217.         static bool called = false;

  218.         if (!called) {

  219.             std::cout << "\n\n========================================================================================\n"

  220.                       << "WARNING: Use of deprecated method DipoleSource::SetPolarisation(DipleSourcePolarisation)\n"

  221.                       << "Use more general SetPolarisation( Vector3r ) or SetPolarisation( x, y, z );\n"

  222.                       << "This method will be removed in future versions of Lemma"

  223.                       << "\n========================================================================================\n";

  224.             called = true;

  225.         }

  226. 

  227.         switch (pol) {

  228.             case (XPOLARISATION):

  229.                 this->Phat = (VectorXr(3) << 1, 0, 0).finished();

  230.                 break;

  231.             case (YPOLARISATION):

  232.                 this->Phat = (VectorXr(3) << 0, 1, 0).finished();

  233.                 break;

  234.             case (ZPOLARISATION):

  235.                 this->Phat = (VectorXr(3) << 0, 0, 1).finished();

  236.                 break;

  237.             default:

  238.                 throw NonValidDipolePolarisationAssignment();

  239.         }

  240.     }

  241. 

  242.     void DipoleSource::SetMoment(const Real &moment) {

  243.         this->Moment = moment;

  244.     }

  245. 

  246.     // ====================  OPERATIONS     =====================

  247. 

  248.     void DipoleSource::SetKernels(const int& ifreq, const FIELDCALCULATIONS&  Fields , std::shared_ptr<FieldPoints> ReceiversIn, const int& irecin,

  249.             std::shared_ptr<LayeredEarthEM> EarthIn  ) {

  250. 

  251.         if (Receivers != ReceiversIn) {

  252.             Receivers = ReceiversIn;

  253.         }

  254.         if (Earth != EarthIn) {

  255.             Earth = EarthIn;

  256.         }

  257.         if (irecin != irec) {

  258.             irec = irecin;

  259.         }

  260.         if (FieldsToCalculate != Fields) {

  261.             FieldsToCalculate = Fields;

  262.         }

  263. 

  264.         xxp = Receivers->GetLocation(irec)[0] - Location[0];

  265.         yyp = Receivers->GetLocation(irec)[1] - Location[1];

  266.         rho = (Receivers->GetLocation(irec).head<2>() - Location.head<2>()).norm();

  267. 

  268.         sp = yyp/rho;

  269.         cp = xxp/rho;

  270.         scp = sp*cp;

  271.         sps = sp*sp;

  272.         cps = cp*cp;

  273.         c2p = cps-sps;

  274. 

  275.         f = VectorXcr::Zero(13);

  276.         ik = VectorXi::Zero(13);

  277. 

  278.         lays = Earth->GetLayerAtThisDepth(Location[2]);

  279.         layr = Earth->GetLayerAtThisDepth(Receivers->GetLocation(irec)[2]);

  280. 

  281.         // TODO, avoid smart pointer here maybe?

  282.         KernelManager = KernelEM1DManager::NewSP();

  283. 

  284.             KernelManager->SetEarth(Earth);

  285.             // alternative is to use weak_ptr here, this is deep and internal, and we are safe.

  286.             //KernelManager->SetDipoleSource( shared_from_this().get() , ifreq, Receivers->GetLocation(irec)[2]);

  287.             KernelManager->SetDipoleSource( this, ifreq, Receivers->GetLocation(irec)[2]);

  288. 

  289.             //KernelManager->SetDipoleSource( this.get() , ifreq, Receivers->GetLocation(irec)[2] );

  290.             kernelFreq = Freqs(ifreq); // this is never used

  291. 

  292.         ReSetKernels( ifreq, Fields, Receivers, irec, Earth );

  293. 

  294.         return;

  295.     }

  296. 

  297.     void DipoleSource::SetupLight(const int& ifreq, const FIELDCALCULATIONS&  Fields, const int& irecin) {

  298. 

  299.         xxp = Receivers->GetLocation(irec)[0] - Location[0];

  300.         yyp = Receivers->GetLocation(irec)[1] - Location[1];

  301.         rho = (Receivers->GetLocation(irec).head<2>() - Location.head<2>()).norm();

  302. 

  303.         sp = yyp/rho;

  304.         cp = xxp/rho;

  305.         scp = sp*cp;

  306.         sps = sp*sp;

  307.         cps = cp*cp;

  308.         c2p = cps-sps;

  309. 

  310.         return;

  311.     }

  312. 

  313. 

  314. 

  315.     // TODO we could make the dipoles template specializations avoiding this rats nest of switch statements. Probably

  316.     //      not the most critical piece though

  317.     void DipoleSource::ReSetKernels(const int& ifreq, const FIELDCALCULATIONS&  Fields ,

  318.             std::shared_ptr<FieldPoints> Receivers, const int& irec,

  319.             std::shared_ptr<LayeredEarthEM> Earth  ) {

  320. 

  321.         Vector3r Pol = Phat;

  322. 

  323.         switch (Type) {

  324. 

  325.             case (GROUNDEDELECTRICDIPOLE):

  326. 

  327.                 if (std::abs(Pol[2]) > 0) { // z dipole

  328. 

  329.                     switch(FieldsToCalculate) {

  330. 

  331.                         case E:

  332.                             if (lays == 0 && layr == 0) {

  333.                                 ik[10] = KernelManager->AddKernel<TM, 10, INAIR, INAIR>( );

  334.                                 ik[11] = KernelManager->AddKernel<TM, 11, INAIR, INAIR>( );

  335.                             } else if (lays == 0 && layr > 0) {

  336.                                 ik[10] = KernelManager->AddKernel<TM, 10, INAIR, INGROUND>( );

  337.                                 ik[11] = KernelManager->AddKernel<TM, 11, INAIR, INGROUND>( );

  338.                             } else if (lays > 0 && layr == 0) {

  339.                                 ik[10] = KernelManager->AddKernel<TM, 10, INGROUND, INAIR>( );

  340.                                 ik[11] = KernelManager->AddKernel<TM, 11, INGROUND, INAIR>( );

  341.                             } else {

  342.                                 ik[10] = KernelManager->AddKernel<TM, 10, INGROUND, INGROUND>( );

  343.                                 ik[11] = KernelManager->AddKernel<TM, 11, INGROUND, INGROUND>( );

  344.                             }

  345.                             break;

  346. 

  347.                         case H:

  348.                             if (lays == 0 && layr == 0) {

  349.                                 ik[12] = KernelManager->AddKernel<TM, 12, INAIR, INAIR>( );

  350.                             } else if (lays == 0 && layr > 0) {

  351.                                 ik[12] = KernelManager->AddKernel<TM, 12, INAIR, INGROUND>( );

  352.                             } else if (lays > 0 && layr == 0) {

  353.                                 ik[12] = KernelManager->AddKernel<TM, 12, INGROUND, INAIR>( );

  354.                             } else {

  355.                                 ik[12] = KernelManager->AddKernel<TM, 12, INGROUND, INGROUND>( );

  356.                             }

  357.                             break;

  358. 

  359. 

  360.                         case BOTH:

  361.                             if ( lays == 0 && layr == 0) {

  362.                                 ik[10] = KernelManager->AddKernel<TM, 10, INAIR, INAIR>( );

  363.                                 ik[11] = KernelManager->AddKernel<TM, 11, INAIR, INAIR>( );

  364.                                 ik[12] = KernelManager->AddKernel<TM, 12, INAIR, INAIR>( );

  365.                             } else if (lays == 0 && layr > 0) {

  366.                                 ik[10] = KernelManager->AddKernel<TM, 10, INAIR, INGROUND>( );

  367.                                 ik[11] = KernelManager->AddKernel<TM, 11, INAIR, INGROUND>( );

  368.                                 ik[12] = KernelManager->AddKernel<TM, 12, INAIR, INGROUND>( );

  369.                             } else if (lays > 0 && layr == 0) {

  370.                                 ik[10] = KernelManager->AddKernel<TM, 10, INGROUND, INAIR>( );

  371.                                 ik[11] = KernelManager->AddKernel<TM, 11, INGROUND, INAIR>( );

  372.                                 ik[12] = KernelManager->AddKernel<TM, 12, INGROUND, INAIR>( );

  373.                             } else {

  374.                                 ik[10] = KernelManager->AddKernel<TM, 10, INGROUND, INGROUND>( );

  375.                                 ik[11] = KernelManager->AddKernel<TM, 11, INGROUND, INGROUND>( );

  376.                                 ik[12] = KernelManager->AddKernel<TM, 12, INGROUND, INGROUND>( );

  377.                             }

  378.                         }

  379.                 }

  380.                 if (std::abs(Pol[1]) > 0 || std::abs(Pol[0]) > 0) { // x or y grounded HED dipole

  381. 

  382.                     switch(FieldsToCalculate) {

  383. 

  384.                         case E:

  385.                             if ( lays == 0 && layr == 0) {

  386.                                 ik[0] = KernelManager->AddKernel<TM, 0, INAIR, INAIR>( );

  387.                                 ik[1] = KernelManager->AddKernel<TM, 1, INAIR, INAIR>( );

  388.                                 ik[4] = KernelManager->AddKernel<TM, 4, INAIR, INAIR>( );

  389.                                 ik[2] = KernelManager->AddKernel<TE, 2, INAIR, INAIR>( );

  390.                                 ik[3] = KernelManager->AddKernel<TE, 3, INAIR, INAIR>( );

  391.                             } else if (lays == 0 && layr > 0) {

  392.                                 ik[0] = KernelManager->AddKernel<TM, 0, INAIR, INGROUND>( );

  393.                                 ik[1] = KernelManager->AddKernel<TM, 1, INAIR, INGROUND>( );

  394.                                 ik[4] = KernelManager->AddKernel<TM, 4, INAIR, INGROUND>( );

  395.                                 ik[2] = KernelManager->AddKernel<TE, 2, INAIR, INGROUND>( );

  396.                                 ik[3] = KernelManager->AddKernel<TE, 3, INAIR, INGROUND>( );

  397.                             } else if (lays > 0 && layr == 0) {

  398.                                 ik[0] = KernelManager->AddKernel<TM, 0, INGROUND, INAIR>( );

  399.                                 ik[1] = KernelManager->AddKernel<TM, 1, INGROUND, INAIR>( );

  400.                                 ik[4] = KernelManager->AddKernel<TM, 4, INGROUND, INAIR>( );

  401.                                 ik[2] = KernelManager->AddKernel<TE, 2, INGROUND, INAIR>( );

  402.                                 ik[3] = KernelManager->AddKernel<TE, 3, INGROUND, INAIR>( );

  403.                             } else {

  404.                                 ik[0] = KernelManager->AddKernel<TM, 0, INGROUND, INGROUND>( );

  405.                                 ik[1] = KernelManager->AddKernel<TM, 1, INGROUND, INGROUND>( );

  406.                                 ik[4] = KernelManager->AddKernel<TM, 4, INGROUND, INGROUND>( );

  407.                                 ik[2] = KernelManager->AddKernel<TE, 2, INGROUND, INGROUND>( );

  408.                                 ik[3] = KernelManager->AddKernel<TE, 3, INGROUND, INGROUND>( );

  409.                             }

  410.                             break;

  411. 

  412.                         case H:

  413.                             if (lays == 0 && layr == 0) {

  414.                                 ik[5] = KernelManager->AddKernel<TM, 5, INAIR, INAIR>( );

  415.                                 ik[6] = KernelManager->AddKernel<TM, 6, INAIR, INAIR>( );

  416.                                 ik[7] = KernelManager->AddKernel<TE, 7, INAIR, INAIR>( );

  417.                                 ik[8] = KernelManager->AddKernel<TE, 8, INAIR, INAIR>( );

  418.                                 ik[9] = KernelManager->AddKernel<TE, 9, INAIR, INAIR>( );

  419.                             } else if (lays == 0 && layr > 0) {

  420.                                 ik[5] = KernelManager->AddKernel<TM, 5, INAIR, INGROUND>( );

  421.                                 ik[6] = KernelManager->AddKernel<TM, 6, INAIR, INGROUND>( );

  422.                                 ik[7] = KernelManager->AddKernel<TE, 7, INAIR, INGROUND>( );

  423.                                 ik[8] = KernelManager->AddKernel<TE, 8, INAIR, INGROUND>( );

  424.                                 ik[9] = KernelManager->AddKernel<TE, 9, INAIR, INGROUND>( );

  425.                             } else if (lays > 0 && layr == 0) {

  426.                                 ik[5] = KernelManager->AddKernel<TM, 5, INGROUND, INAIR>( );

  427.                                 ik[6] = KernelManager->AddKernel<TM, 6, INGROUND, INAIR>( );

  428.                                 ik[7] = KernelManager->AddKernel<TE, 7, INGROUND, INAIR>( );

  429.                                 ik[8] = KernelManager->AddKernel<TE, 8, INGROUND, INAIR>( );

  430.                                 ik[9] = KernelManager->AddKernel<TE, 9, INGROUND, INAIR>( );

  431.                             } else {

  432.                                 ik[5] = KernelManager->AddKernel<TM, 5, INGROUND, INGROUND>( );

  433.                                 ik[6] = KernelManager->AddKernel<TM, 6, INGROUND, INGROUND>( );

  434.                                 ik[7] = KernelManager->AddKernel<TE, 7, INGROUND, INGROUND>( );

  435.                                 ik[8] = KernelManager->AddKernel<TE, 8, INGROUND, INGROUND>( );

  436.                                 ik[9] = KernelManager->AddKernel<TE, 9, INGROUND, INGROUND>( );

  437.                             }

  438.                             break;

  439. 

  440.                         case BOTH:

  441.                             if (lays == 0 && layr == 0) {

  442.                                 ik[0] = KernelManager->AddKernel<TM, 0, INAIR, INAIR>( );

  443.                                 ik[1] = KernelManager->AddKernel<TM, 1, INAIR, INAIR>( );

  444.                                 ik[4] = KernelManager->AddKernel<TM, 4, INAIR, INAIR>( );

  445.                                 ik[2] = KernelManager->AddKernel<TE, 2, INAIR, INAIR>( );

  446.                                 ik[3] = KernelManager->AddKernel<TE, 3, INAIR, INAIR>( );

  447.                                 ik[5] = KernelManager->AddKernel<TM, 5, INAIR, INAIR>( );

  448.                                 ik[6] = KernelManager->AddKernel<TM, 6, INAIR, INAIR>( );

  449.                                 ik[7] = KernelManager->AddKernel<TE, 7, INAIR, INAIR>( );

  450.                                 ik[8] = KernelManager->AddKernel<TE, 8, INAIR, INAIR>( );

  451.                                 ik[9] = KernelManager->AddKernel<TE, 9, INAIR, INAIR>( );

  452.                             } else if (lays == 0 && layr > 0) {

  453.                                 ik[0] = KernelManager->AddKernel<TM, 0, INAIR, INGROUND>( );

  454.                                 ik[1] = KernelManager->AddKernel<TM, 1, INAIR, INGROUND>( );

  455.                                 ik[4] = KernelManager->AddKernel<TM, 4, INAIR, INGROUND>( );

  456.                                 ik[2] = KernelManager->AddKernel<TE, 2, INAIR, INGROUND>( );

  457.                                 ik[3] = KernelManager->AddKernel<TE, 3, INAIR, INGROUND>( );

  458.                                 ik[5] = KernelManager->AddKernel<TM, 5, INAIR, INGROUND>( );

  459.                                 ik[6] = KernelManager->AddKernel<TM, 6, INAIR, INGROUND>( );

  460.                                 ik[7] = KernelManager->AddKernel<TE, 7, INAIR, INGROUND>( );

  461.                                 ik[8] = KernelManager->AddKernel<TE, 8, INAIR, INGROUND>( );

  462.                                 ik[9] = KernelManager->AddKernel<TE, 9, INAIR, INGROUND>( );

  463.                             } else if (lays > 0 && layr == 0) {

  464.                                 ik[0] = KernelManager->AddKernel<TM, 0, INGROUND, INAIR>( );

  465.                                 ik[1] = KernelManager->AddKernel<TM, 1, INGROUND, INAIR>( );

  466.                                 ik[4] = KernelManager->AddKernel<TM, 4, INGROUND, INAIR>( );

  467.                                 ik[2] = KernelManager->AddKernel<TE, 2, INGROUND, INAIR>( );

  468.                                 ik[3] = KernelManager->AddKernel<TE, 3, INGROUND, INAIR>( );

  469.                                 ik[5] = KernelManager->AddKernel<TM, 5, INGROUND, INAIR>( );

  470.                                 ik[6] = KernelManager->AddKernel<TM, 6, INGROUND, INAIR>( );

  471.                                 ik[7] = KernelManager->AddKernel<TE, 7, INGROUND, INAIR>( );

  472.                                 ik[8] = KernelManager->AddKernel<TE, 8, INGROUND, INAIR>( );

  473.                                 ik[9] = KernelManager->AddKernel<TE, 9, INGROUND, INAIR>( );

  474.                             } else {

  475.                                 ik[0] = KernelManager->AddKernel<TM, 0, INGROUND, INGROUND>( );

  476.                                 ik[1] = KernelManager->AddKernel<TM, 1, INGROUND, INGROUND>( );

  477.                                 ik[4] = KernelManager->AddKernel<TM, 4, INGROUND, INGROUND>( );

  478.                                 ik[2] = KernelManager->AddKernel<TE, 2, INGROUND, INGROUND>( );

  479.                                 ik[3] = KernelManager->AddKernel<TE, 3, INGROUND, INGROUND>( );

  480.                                 ik[5] = KernelManager->AddKernel<TM, 5, INGROUND, INGROUND>( );

  481.                                 ik[6] = KernelManager->AddKernel<TM, 6, INGROUND, INGROUND>( );

  482.                                 ik[7] = KernelManager->AddKernel<TE, 7, INGROUND, INGROUND>( );

  483.                                 ik[8] = KernelManager->AddKernel<TE, 8, INGROUND, INGROUND>( );

  484.                                 ik[9] = KernelManager->AddKernel<TE, 9, INGROUND, INGROUND>( );

  485.                             }

  486.                             break;

  487.                         }

  488.                     }

  489.                 break;

  490. 

  491.             case (GROUNDINGPOINT):

  492. 

  493.                 if (std::abs(Pol[2]) > 0) { // z dipole

  494. 

  495.                     switch(FieldsToCalculate) {

  496. 

  497.                         case E:

  498.                             if (lays == 0 && layr == 0) {

  499.                                 ik[10] = KernelManager->AddKernel<TM, 10, INAIR, INAIR>( );

  500.                                 ik[11] = KernelManager->AddKernel<TM, 11, INAIR, INAIR>( );

  501.                             } else if (lays == 0 && layr > 0) {

  502.                                 ik[10] = KernelManager->AddKernel<TM, 10, INAIR, INGROUND>( );

  503.                                 ik[11] = KernelManager->AddKernel<TM, 11, INAIR, INGROUND>( );

  504.                             } else if (lays > 0 && layr == 0) {

  505.                                 ik[10] = KernelManager->AddKernel<TM, 10, INGROUND, INAIR>( );

  506.                                 ik[11] = KernelManager->AddKernel<TM, 11, INGROUND, INAIR>( );

  507.                             } else {

  508.                                 ik[10] = KernelManager->AddKernel<TM, 10, INGROUND, INGROUND>( );

  509.                                 ik[11] = KernelManager->AddKernel<TM, 11, INGROUND, INGROUND>( );

  510.                             }

  511.                             break;

  512. 

  513.                         case H:

  514.                             if (lays == 0 && layr == 0) {

  515.                                 ik[12] = KernelManager->AddKernel<TM, 12, INAIR, INAIR>( );

  516.                             } else if (lays == 0 && layr > 0) {

  517.                                 ik[12] = KernelManager->AddKernel<TM, 12, INAIR, INGROUND>( );

  518.                             } else if (lays > 0 && layr == 0) {

  519.                                 ik[12] = KernelManager->AddKernel<TM, 12, INGROUND, INAIR>( );

  520.                             } else {

  521.                                 ik[12] = KernelManager->AddKernel<TM, 12, INGROUND, INGROUND>( );

  522.                             }

  523.                             break;

  524. 

  525. 

  526.                         case BOTH:

  527.                             if ( lays == 0 && layr == 0) {

  528.                                 ik[10] = KernelManager->AddKernel<TM, 10, INAIR, INAIR>( );

  529.                                 ik[11] = KernelManager->AddKernel<TM, 11, INAIR, INAIR>( );

  530.                                 ik[12] = KernelManager->AddKernel<TM, 12, INAIR, INAIR>( );

  531.                             } else if (lays == 0 && layr > 0) {

  532.                                 ik[10] = KernelManager->AddKernel<TM, 10, INAIR, INGROUND>( );

  533.                                 ik[11] = KernelManager->AddKernel<TM, 11, INAIR, INGROUND>( );

  534.                                 ik[12] = KernelManager->AddKernel<TM, 12, INAIR, INGROUND>( );

  535.                             } else if (lays > 0 && layr == 0) {

  536.                                 ik[10] = KernelManager->AddKernel<TM, 10, INGROUND, INAIR>( );

  537.                                 ik[11] = KernelManager->AddKernel<TM, 11, INGROUND, INAIR>( );

  538.                                 ik[12] = KernelManager->AddKernel<TM, 12, INGROUND, INAIR>( );

  539.                             } else {

  540.                                 ik[10] = KernelManager->AddKernel<TM, 10, INGROUND, INGROUND>( );

  541.                                 ik[11] = KernelManager->AddKernel<TM, 11, INGROUND, INGROUND>( );

  542.                                 ik[12] = KernelManager->AddKernel<TM, 12, INGROUND, INGROUND>( );

  543.                             }

  544.                         }

  545.                 }

  546.                 if (std::abs(Pol[1]) > 0 || std::abs(Pol[0]) > 0) { // x or y grounded HED dipole

  547. 

  548.                     switch(FieldsToCalculate) {

  549. 

  550.                         case E:

  551.                             if ( lays == 0 && layr == 0) {

  552.                                 ik[0] = KernelManager->AddKernel<TM, 0, INAIR, INAIR>( );

  553.                                 ik[1] = KernelManager->AddKernel<TM, 1, INAIR, INAIR>( );

  554.                                 ik[4] = KernelManager->AddKernel<TM, 4, INAIR, INAIR>( );

  555.                                 //ik[2] = KernelManager->AddKernel<TE, 2, INAIR, INAIR>( );

  556.                                 //ik[3] = KernelManager->AddKernel<TE, 3, INAIR, INAIR>( );

  557.                             } else if (lays == 0 && layr > 0) {

  558.                                 ik[0] = KernelManager->AddKernel<TM, 0, INAIR, INGROUND>( );

  559.                                 ik[1] = KernelManager->AddKernel<TM, 1, INAIR, INGROUND>( );

  560.                                 ik[4] = KernelManager->AddKernel<TM, 4, INAIR, INGROUND>( );

  561.                                 //ik[2] = KernelManager->AddKernel<TE, 2, INAIR, INGROUND>( );

  562.                                 //ik[3] = KernelManager->AddKernel<TE, 3, INAIR, INGROUND>( );

  563.                             } else if (lays > 0 && layr == 0) {

  564.                                 ik[0] = KernelManager->AddKernel<TM, 0, INGROUND, INAIR>( );

  565.                                 ik[1] = KernelManager->AddKernel<TM, 1, INGROUND, INAIR>( );

  566.                                 ik[4] = KernelManager->AddKernel<TM, 4, INGROUND, INAIR>( );

  567.                                 //ik[2] = KernelManager->AddKernel<TE, 2, INGROUND, INAIR>( );

  568.                                 //ik[3] = KernelManager->AddKernel<TE, 3, INGROUND, INAIR>( );

  569.                             } else {

  570.                                 ik[0] = KernelManager->AddKernel<TM, 0, INGROUND, INGROUND>( );

  571.                                 ik[1] = KernelManager->AddKernel<TM, 1, INGROUND, INGROUND>( );

  572.                                 ik[4] = KernelManager->AddKernel<TM, 4, INGROUND, INGROUND>( );

  573.                                 //ik[2] = KernelManager->AddKernel<TE, 2, INGROUND, INGROUND>( );

  574.                                 //ik[3] = KernelManager->AddKernel<TE, 3, INGROUND, INGROUND>( );

  575.                             }

  576.                             break;

  577. 

  578.                         case H:

  579.                             if (lays == 0 && layr == 0) {

  580.                                 ik[5] = KernelManager->AddKernel<TM, 5, INAIR, INAIR>( );

  581.                                 ik[6] = KernelManager->AddKernel<TM, 6, INAIR, INAIR>( );

  582.                                 //ik[7] = KernelManager->AddKernel<TE, 7, INAIR, INAIR>( );

  583.                                 //ik[8] = KernelManager->AddKernel<TE, 8, INAIR, INAIR>( );

  584.                                 //ik[9] = KernelManager->AddKernel<TE, 9, INAIR, INAIR>( );

  585.                             } else if (lays == 0 && layr > 0) {

  586.                                 ik[5] = KernelManager->AddKernel<TM, 5, INAIR, INGROUND>( );

  587.                                 ik[6] = KernelManager->AddKernel<TM, 6, INAIR, INGROUND>( );

  588.                                 //ik[7] = KernelManager->AddKernel<TE, 7, INAIR, INGROUND>( );

  589.                                 //ik[8] = KernelManager->AddKernel<TE, 8, INAIR, INGROUND>( );

  590.                                 //ik[9] = KernelManager->AddKernel<TE, 9, INAIR, INGROUND>( );

  591.                             } else if (lays > 0 && layr == 0) {

  592.                                 ik[5] = KernelManager->AddKernel<TM, 5, INGROUND, INAIR>( );

  593.                                 ik[6] = KernelManager->AddKernel<TM, 6, INGROUND, INAIR>( );

  594.                                 //ik[7] = KernelManager->AddKernel<TE, 7, INGROUND, INAIR>( );

  595.                                 //ik[8] = KernelManager->AddKernel<TE, 8, INGROUND, INAIR>( );

  596.                                 //ik[9] = KernelManager->AddKernel<TE, 9, INGROUND, INAIR>( );

  597.                             } else {

  598.                                 ik[5] = KernelManager->AddKernel<TM, 5, INGROUND, INGROUND>( );

  599.                                 ik[6] = KernelManager->AddKernel<TM, 6, INGROUND, INGROUND>( );

  600.                                 //ik[7] = KernelManager->AddKernel<TE, 7, INGROUND, INGROUND>( );

  601.                                 //ik[8] = KernelManager->AddKernel<TE, 8, INGROUND, INGROUND>( );

  602.                                 //ik[9] = KernelManager->AddKernel<TE, 9, INGROUND, INGROUND>( );

  603.                             }

  604.                             break;

  605. 

  606.                         case BOTH:

  607.                             if (lays == 0 && layr == 0) {

  608.                                 ik[0] = KernelManager->AddKernel<TM, 0, INAIR, INAIR>( );

  609.                                 ik[1] = KernelManager->AddKernel<TM, 1, INAIR, INAIR>( );

  610.                                 ik[4] = KernelManager->AddKernel<TM, 4, INAIR, INAIR>( );

  611.                                 //ik[2] = KernelManager->AddKernel<TE, 2, INAIR, INAIR>( );

  612.                                 //ik[3] = KernelManager->AddKernel<TE, 3, INAIR, INAIR>( );

  613.                                 ik[5] = KernelManager->AddKernel<TM, 5, INAIR, INAIR>( );

  614.                                 ik[6] = KernelManager->AddKernel<TM, 6, INAIR, INAIR>( );

  615.                                 //ik[7] = KernelManager->AddKernel<TE, 7, INAIR, INAIR>( );

  616.                                 //ik[8] = KernelManager->AddKernel<TE, 8, INAIR, INAIR>( );

  617.                                 //ik[9] = KernelManager->AddKernel<TE, 9, INAIR, INAIR>( );

  618.                             } else if (lays == 0 && layr > 0) {

  619.                                 ik[0] = KernelManager->AddKernel<TM, 0, INAIR, INGROUND>( );

  620.                                 ik[1] = KernelManager->AddKernel<TM, 1, INAIR, INGROUND>( );

  621.                                 ik[4] = KernelManager->AddKernel<TM, 4, INAIR, INGROUND>( );

  622.                                 //ik[2] = KernelManager->AddKernel<TE, 2, INAIR, INGROUND>( );

  623.                                 //ik[3] = KernelManager->AddKernel<TE, 3, INAIR, INGROUND>( );

  624.                                 ik[5] = KernelManager->AddKernel<TM, 5, INAIR, INGROUND>( );

  625.                                 ik[6] = KernelManager->AddKernel<TM, 6, INAIR, INGROUND>( );

  626.                                 //ik[7] = KernelManager->AddKernel<TE, 7, INAIR, INGROUND>( );

  627.                                 //ik[8] = KernelManager->AddKernel<TE, 8, INAIR, INGROUND>( );

  628.                                 //ik[9] = KernelManager->AddKernel<TE, 9, INAIR, INGROUND>( );

  629.                             } else if (lays > 0 && layr == 0) {

  630.                                 ik[0] = KernelManager->AddKernel<TM, 0, INGROUND, INAIR>( );

  631.                                 ik[1] = KernelManager->AddKernel<TM, 1, INGROUND, INAIR>( );

  632.                                 ik[4] = KernelManager->AddKernel<TM, 4, INGROUND, INAIR>( );

  633.                                 //ik[2] = KernelManager->AddKernel<TE, 2, INGROUND, INAIR>( );

  634.                                 //ik[3] = KernelManager->AddKernel<TE, 3, INGROUND, INAIR>( );

  635.                                 ik[5] = KernelManager->AddKernel<TM, 5, INGROUND, INAIR>( );

  636.                                 ik[6] = KernelManager->AddKernel<TM, 6, INGROUND, INAIR>( );

  637.                                 //ik[7] = KernelManager->AddKernel<TE, 7, INGROUND, INAIR>( );

  638.                                 //ik[8] = KernelManager->AddKernel<TE, 8, INGROUND, INAIR>( );

  639.                                 //ik[9] = KernelManager->AddKernel<TE, 9, INGROUND, INAIR>( );

  640.                             } else {

  641.                                 ik[0] = KernelManager->AddKernel<TM, 0, INGROUND, INGROUND>( );

  642.                                 ik[1] = KernelManager->AddKernel<TM, 1, INGROUND, INGROUND>( );

  643.                                 ik[4] = KernelManager->AddKernel<TM, 4, INGROUND, INGROUND>( );

  644.                                 //ik[2] = KernelManager->AddKernel<TE, 2, INGROUND, INGROUND>( );

  645.                                 //ik[3] = KernelManager->AddKernel<TE, 3, INGROUND, INGROUND>( );

  646.                                 ik[5] = KernelManager->AddKernel<TM, 5, INGROUND, INGROUND>( );

  647.                                 ik[6] = KernelManager->AddKernel<TM, 6, INGROUND, INGROUND>( );

  648.                                 //ik[7] = KernelManager->AddKernel<TE, 7, INGROUND, INGROUND>( );

  649.                                 //ik[8] = KernelManager->AddKernel<TE, 8, INGROUND, INGROUND>( );

  650.                                 //ik[9] = KernelManager->AddKernel<TE, 9, INGROUND, INGROUND>( );

  651.                             }

  652.                             break;

  653.                         }

  654.                     }

  655.                 break;

  656. 

  657.             case (UNGROUNDEDELECTRICDIPOLE):

  658. 

  659.                 if (std::abs(Pol[2]) > 0) { // z dipole

  660. 

  661.                     switch(FieldsToCalculate) {

  662. 

  663.                         case E:

  664.                             if (lays == 0 && layr == 0) {

  665.                                 ik[11] = KernelManager->AddKernel<TM, 11, INAIR, INAIR>( );

  666.                             } else if (lays == 0 && layr > 0) {

  667.                                 ik[11] = KernelManager->AddKernel<TM, 11, INAIR, INGROUND>( );

  668.                             } else if (lays > 0 && layr == 0) {

  669.                                 ik[11] = KernelManager->AddKernel<TM, 11, INGROUND, INAIR>( );

  670.                             } else {

  671.                                 ik[11] = KernelManager->AddKernel<TM, 11, INGROUND, INGROUND>( );

  672.                             }

  673.                             break;

  674. 

  675.                         case H:

  676.                             if (lays == 0 && layr == 0) {

  677.                                 ik[12] = KernelManager->AddKernel<TM, 12, INAIR, INAIR>( );

  678.                             } else if (lays == 0 && layr > 0) {

  679.                                 ik[12] = KernelManager->AddKernel<TM, 12, INAIR, INGROUND>( );

  680.                             } else if (lays > 0 && layr == 0) {

  681.                                 ik[12] = KernelManager->AddKernel<TM, 12, INGROUND, INAIR>( );

  682.                             } else {

  683.                                 ik[12] = KernelManager->AddKernel<TM, 12, INGROUND, INGROUND>( );

  684.                             }

  685.                             break;

  686. 

  687. 

  688.                         case BOTH:

  689.                             if ( lays == 0 && layr == 0) {

  690.                                 ik[11] = KernelManager->AddKernel<TM, 11, INAIR, INAIR>( );

  691.                                 ik[12] = KernelManager->AddKernel<TM, 12, INAIR, INAIR>( );

  692.                             } else if (lays == 0 && layr > 0) {

  693.                                 ik[11] = KernelManager->AddKernel<TM, 11, INAIR, INGROUND>( );

  694.                                 ik[12] = KernelManager->AddKernel<TM, 12, INAIR, INGROUND>( );

  695.                             } else if (lays > 0 && layr == 0) {

  696.                                 ik[11] = KernelManager->AddKernel<TM, 11, INGROUND, INAIR>( );

  697.                                 ik[12] = KernelManager->AddKernel<TM, 12, INGROUND, INAIR>( );

  698.                             } else {

  699.                                 ik[11] = KernelManager->AddKernel<TM, 11, INGROUND, INGROUND>( );

  700.                                 ik[12] = KernelManager->AddKernel<TM, 12, INGROUND, INGROUND>( );

  701.                             }

  702.                         }

  703.                 }

  704.                 if (std::abs(Pol[1]) > 0 || std::abs(Pol[0]) > 0) { // x or y grounded HED dipole

  705. 

  706.                     switch(FieldsToCalculate) {

  707. 

  708.                         case E:

  709.                             if ( lays == 0 && layr == 0) {

  710.                                 ik[2] = KernelManager->AddKernel<TE, 2, INAIR, INAIR>( );

  711.                                 ik[3] = KernelManager->AddKernel<TE, 3, INAIR, INAIR>( );

  712.                             } else if (lays == 0 && layr > 0) {

  713.                                 ik[2] = KernelManager->AddKernel<TE, 2, INAIR, INGROUND>( );

  714.                                 ik[3] = KernelManager->AddKernel<TE, 3, INAIR, INGROUND>( );

  715.                             } else if (lays > 0 && layr == 0) {

  716.                                 ik[2] = KernelManager->AddKernel<TE, 2, INGROUND, INAIR>( );

  717.                                 ik[3] = KernelManager->AddKernel<TE, 3, INGROUND, INAIR>( );

  718.                             } else {

  719.                                 ik[2] = KernelManager->AddKernel<TE, 2, INGROUND, INGROUND>( );

  720.                                 ik[3] = KernelManager->AddKernel<TE, 3, INGROUND, INGROUND>( );

  721.                             }

  722.                             break;

  723. 

  724.                         case H:

  725.                             if (lays == 0 && layr == 0) {

  726.                                 ik[5] = KernelManager->AddKernel<TM, 5, INAIR, INAIR>( );

  727.                                 ik[6] = KernelManager->AddKernel<TM, 6, INAIR, INAIR>( );

  728.                                 ik[7] = KernelManager->AddKernel<TE, 7, INAIR, INAIR>( );

  729.                                 ik[8] = KernelManager->AddKernel<TE, 8, INAIR, INAIR>( );

  730.                                 ik[9] = KernelManager->AddKernel<TE, 9, INAIR, INAIR>( );

  731.                             } else if (lays == 0 && layr > 0) {

  732.                                 ik[5] = KernelManager->AddKernel<TM, 5, INAIR, INGROUND>( );

  733.                                 ik[6] = KernelManager->AddKernel<TM, 6, INAIR, INGROUND>( );

  734.                                 ik[7] = KernelManager->AddKernel<TE, 7, INAIR, INGROUND>( );

  735.                                 ik[8] = KernelManager->AddKernel<TE, 8, INAIR, INGROUND>( );

  736.                                 ik[9] = KernelManager->AddKernel<TE, 9, INAIR, INGROUND>( );

  737.                             } else if (lays > 0 && layr == 0) {

  738.                                 ik[5] = KernelManager->AddKernel<TM, 5, INGROUND, INAIR>( );

  739.                                 ik[6] = KernelManager->AddKernel<TM, 6, INGROUND, INAIR>( );

  740.                                 ik[7] = KernelManager->AddKernel<TE, 7, INGROUND, INAIR>( );

  741.                                 ik[8] = KernelManager->AddKernel<TE, 8, INGROUND, INAIR>( );

  742.                                 ik[9] = KernelManager->AddKernel<TE, 9, INGROUND, INAIR>( );

  743.                             } else {

  744.                                 ik[5] = KernelManager->AddKernel<TM, 5, INGROUND, INGROUND>( );

  745.                                 ik[6] = KernelManager->AddKernel<TM, 6, INGROUND, INGROUND>( );

  746.                                 ik[7] = KernelManager->AddKernel<TE, 7, INGROUND, INGROUND>( );

  747.                                 ik[8] = KernelManager->AddKernel<TE, 8, INGROUND, INGROUND>( );

  748.                                 ik[9] = KernelManager->AddKernel<TE, 9, INGROUND, INGROUND>( );

  749.                             }

  750.                             break;

  751. 

  752.                         case BOTH:

  753.                             if (lays == 0 && layr == 0) {

  754.                                 ik[5] = KernelManager->AddKernel<TM, 5, INAIR, INAIR>( );

  755.                                 ik[6] = KernelManager->AddKernel<TM, 6, INAIR, INAIR>( );

  756.                                 ik[2] = KernelManager->AddKernel<TE, 2, INAIR, INAIR>( );

  757.                                 ik[3] = KernelManager->AddKernel<TE, 3, INAIR, INAIR>( );

  758.                                 ik[7] = KernelManager->AddKernel<TE, 7, INAIR, INAIR>( );

  759.                                 ik[8] = KernelManager->AddKernel<TE, 8, INAIR, INAIR>( );

  760.                                 ik[9] = KernelManager->AddKernel<TE, 9, INAIR, INAIR>( );

  761.                             } else if (lays == 0 && layr > 0) {

  762.                                 ik[5] = KernelManager->AddKernel<TM, 5, INAIR, INGROUND>( );

  763.                                 ik[6] = KernelManager->AddKernel<TM, 6, INAIR, INGROUND>( );

  764.                                 ik[2] = KernelManager->AddKernel<TE, 2, INAIR, INGROUND>( );

  765.                                 ik[3] = KernelManager->AddKernel<TE, 3, INAIR, INGROUND>( );

  766.                                 ik[7] = KernelManager->AddKernel<TE, 7, INAIR, INGROUND>( );

  767.                                 ik[8] = KernelManager->AddKernel<TE, 8, INAIR, INGROUND>( );

  768.                                 ik[9] = KernelManager->AddKernel<TE, 9, INAIR, INGROUND>( );

  769.                             } else if (lays > 0 && layr == 0) {

  770.                                 ik[5] = KernelManager->AddKernel<TM, 5, INGROUND, INAIR>( );

  771.                                 ik[6] = KernelManager->AddKernel<TM, 6, INGROUND, INAIR>( );

  772.                                 ik[2] = KernelManager->AddKernel<TE, 2, INGROUND, INAIR>( );

  773.                                 ik[3] = KernelManager->AddKernel<TE, 3, INGROUND, INAIR>( );

  774.                                 ik[7] = KernelManager->AddKernel<TE, 7, INGROUND, INAIR>( );

  775.                                 ik[8] = KernelManager->AddKernel<TE, 8, INGROUND, INAIR>( );

  776.                                 ik[9] = KernelManager->AddKernel<TE, 9, INGROUND, INAIR>( );

  777.                             } else {

  778.                                 ik[5] = KernelManager->AddKernel<TM, 5, INGROUND, INGROUND>( );

  779.                                 ik[6] = KernelManager->AddKernel<TM, 6, INGROUND, INGROUND>( );

  780.                                 ik[2] = KernelManager->AddKernel<TE, 2, INGROUND, INGROUND>( );

  781.                                 ik[3] = KernelManager->AddKernel<TE, 3, INGROUND, INGROUND>( );

  782.                                 ik[7] = KernelManager->AddKernel<TE, 7, INGROUND, INGROUND>( );

  783.                                 ik[8] = KernelManager->AddKernel<TE, 8, INGROUND, INGROUND>( );

  784.                                 ik[9] = KernelManager->AddKernel<TE, 9, INGROUND, INGROUND>( );

  785.                             }

  786.                             break;

  787.                         }

  788.                     }

  789. 

  790. 

  791.                 break;

  792. 

  793.             case (MAGNETICDIPOLE):

  794. 

  795.                 if (std::abs(Pol[2]) > 0) { // z dipole

  796. 

  797.                     switch (FieldsToCalculate) {

  798. 

  799.                         case E:

  800. 

  801.                             if (lays == 0 && layr == 0) {

  802.                                 ik[12] = KernelManager->AddKernel<TE, 12, INAIR, INAIR>( );

  803.                             } else if (lays == 0 && layr > 0) {

  804.                                 ik[12] = KernelManager->AddKernel<TE, 12, INAIR, INGROUND>( );

  805.                             } else if (lays > 0 && layr == 0) {

  806.                                 ik[12] = KernelManager->AddKernel<TE, 12, INGROUND, INAIR>( );

  807.                             } else {

  808.                                 ik[12] = KernelManager->AddKernel<TE, 12, INGROUND, INGROUND>( );

  809.                             }

  810.                             break;

  811. 

  812.                         case H:

  813. 

  814.                             if (lays == 0 && layr == 0) {

  815.                                 ik[10] = KernelManager->AddKernel<TE, 10, INAIR, INAIR>( );

  816.                                 ik[11] = KernelManager->AddKernel<TE, 11, INAIR, INAIR>( );

  817.                             } else if (lays == 0 && layr > 0) {

  818.                                 ik[10] = KernelManager->AddKernel<TE, 10, INAIR, INGROUND>( );

  819.                                 ik[11] = KernelManager->AddKernel<TE, 11, INAIR, INGROUND>( );

  820.                             } else if (lays > 0 && layr == 0) {

  821.                                 ik[10] = KernelManager->AddKernel<TE, 10, INGROUND, INAIR>( );

  822.                                 ik[11] = KernelManager->AddKernel<TE, 11, INGROUND, INAIR>( );

  823.                             } else {

  824.                                 ik[10] = KernelManager->AddKernel<TE, 10, INGROUND, INGROUND>( );

  825.                                 ik[11] = KernelManager->AddKernel<TE, 11, INGROUND, INGROUND>( );

  826.                             }

  827.                             break;

  828. 

  829. 

  830.                         case BOTH:

  831. 

  832.                             if (lays == 0 && layr == 0) {

  833.                                 ik[12] = KernelManager->AddKernel<TE, 12, INAIR, INAIR>( );

  834.                                 ik[10] = KernelManager->AddKernel<TE, 10, INAIR, INAIR>( );

  835.                                 ik[11] = KernelManager->AddKernel<TE, 11, INAIR, INAIR>( );

  836.                             } else if (lays == 0 && layr > 0) {

  837.                                 ik[12] = KernelManager->AddKernel<TE, 12, INAIR, INGROUND>( );

  838.                                 ik[10] = KernelManager->AddKernel<TE, 10, INAIR, INGROUND>( );

  839.                                 ik[11] = KernelManager->AddKernel<TE, 11, INAIR, INGROUND>( );

  840.                             } else if (lays > 0 && layr == 0) {

  841.                                 ik[12] = KernelManager->AddKernel<TE, 12, INGROUND, INAIR>( );

  842.                                 ik[10] = KernelManager->AddKernel<TE, 10, INGROUND, INAIR>( );

  843.                                 ik[11] = KernelManager->AddKernel<TE, 11, INGROUND, INAIR>( );

  844.                             } else {

  845.                                 ik[12] = KernelManager->AddKernel<TE, 12, INGROUND, INGROUND>( );

  846.                                 ik[10] = KernelManager->AddKernel<TE, 10, INGROUND, INGROUND>( );

  847.                                 ik[11] = KernelManager->AddKernel<TE, 11, INGROUND, INGROUND>( );

  848.                             }

  849.                     }

  850.                 }

  851.                 if (std::abs(Pol[1]) > 0 || std::abs(Pol[0]) > 0) { // x or y grounded HED dipole

  852. 

  853.                     switch (FieldsToCalculate) {

  854. 

  855.                         case E:

  856.                             if ( lays == 0 && layr == 0) {

  857.                                 ik[5] = KernelManager->AddKernel<TE, 5, INAIR, INAIR>( );

  858.                                 ik[6] = KernelManager->AddKernel<TE, 6, INAIR, INAIR>( );

  859.                                 ik[7] = KernelManager->AddKernel<TM, 7, INAIR, INAIR>( );

  860.                                 ik[8] = KernelManager->AddKernel<TM, 8, INAIR, INAIR>( );

  861.                                 ik[9] = KernelManager->AddKernel<TM, 9, INAIR, INAIR>( );

  862.                             } else if (lays == 0 && layr > 0) {

  863.                                 ik[5] = KernelManager->AddKernel<TE, 5, INAIR, INGROUND>( );

  864.                                 ik[6] = KernelManager->AddKernel<TE, 6, INAIR, INGROUND>( );

  865.                                 ik[7] = KernelManager->AddKernel<TM, 7, INAIR, INGROUND>( );

  866.                                 ik[8] = KernelManager->AddKernel<TM, 8, INAIR, INGROUND>( );

  867.                                 ik[9] = KernelManager->AddKernel<TM, 9, INAIR, INGROUND>( );

  868.                             } else if (lays > 0 && layr == 0) {

  869.                                 ik[5] = KernelManager->AddKernel<TE, 5, INGROUND, INAIR>( );

  870.                                 ik[6] = KernelManager->AddKernel<TE, 6, INGROUND, INAIR>( );

  871.                                 ik[7] = KernelManager->AddKernel<TM, 7, INGROUND, INAIR>( );

  872.                                 ik[8] = KernelManager->AddKernel<TM, 8, INGROUND, INAIR>( );

  873.                                 ik[9] = KernelManager->AddKernel<TM, 9, INGROUND, INAIR>( );

  874.                             } else {

  875.                                 ik[5] = KernelManager->AddKernel<TE, 5, INGROUND, INGROUND>( );

  876.                                 ik[6] = KernelManager->AddKernel<TE, 6, INGROUND, INGROUND>( );

  877.                                 ik[7] = KernelManager->AddKernel<TM, 7, INGROUND, INGROUND>( );

  878.                                 ik[8] = KernelManager->AddKernel<TM, 8, INGROUND, INGROUND>( );

  879.                                 ik[9] = KernelManager->AddKernel<TM, 9, INGROUND, INGROUND>( );

  880.                             }

  881.                             break;

  882. 

  883.                         case H:

  884. 

  885.                             if ( lays == 0 && layr == 0) {

  886.                                 ik[0] = KernelManager->AddKernel<TE, 0, INAIR, INAIR>( );

  887.                                 ik[1] = KernelManager->AddKernel<TE, 1, INAIR, INAIR>( );

  888.                                 ik[4] = KernelManager->AddKernel<TE, 4, INAIR, INAIR>( );

  889.                                 ik[2] = KernelManager->AddKernel<TM, 2, INAIR, INAIR>( );

  890.                                 ik[3] = KernelManager->AddKernel<TM, 3, INAIR, INAIR>( );

  891.                             } else if (lays == 0 && layr > 0) {

  892.                                 ik[0] = KernelManager->AddKernel<TE, 0, INAIR, INGROUND>( );

  893.                                 ik[1] = KernelManager->AddKernel<TE, 1, INAIR, INGROUND>( );

  894.                                 ik[4] = KernelManager->AddKernel<TE, 4, INAIR, INGROUND>( );

  895.                                 ik[2] = KernelManager->AddKernel<TM, 2, INAIR, INGROUND>( );

  896.                                 ik[3] = KernelManager->AddKernel<TM, 3, INAIR, INGROUND>( );

  897.                             } else if (lays > 0 && layr == 0) {

  898.                                 ik[0] = KernelManager->AddKernel<TE, 0, INGROUND, INAIR>( );

  899.                                 ik[1] = KernelManager->AddKernel<TE, 1, INGROUND, INAIR>( );

  900.                                 ik[4] = KernelManager->AddKernel<TE, 4, INGROUND, INAIR>( );

  901.                                 ik[2] = KernelManager->AddKernel<TM, 2, INGROUND, INAIR>( );

  902.                                 ik[3] = KernelManager->AddKernel<TM, 3, INGROUND, INAIR>( );

  903.                             } else {

  904.                                 ik[0] = KernelManager->AddKernel<TE, 0, INGROUND, INGROUND>( );

  905.                                 ik[1] = KernelManager->AddKernel<TE, 1, INGROUND, INGROUND>( );

  906.                                 ik[4] = KernelManager->AddKernel<TE, 4, INGROUND, INGROUND>( );

  907.                                 ik[2] = KernelManager->AddKernel<TM, 2, INGROUND, INGROUND>( );

  908.                                 ik[3] = KernelManager->AddKernel<TM, 3, INGROUND, INGROUND>( );

  909.                             }

  910.                             break;

  911. 

  912.                         case BOTH:

  913. 

  914.                             if ( lays == 0 && layr == 0) {

  915.                                 ik[5] = KernelManager->AddKernel<TE, 5, INAIR, INAIR>( );

  916.                                 ik[6] = KernelManager->AddKernel<TE, 6, INAIR, INAIR>( );

  917.                                 ik[7] = KernelManager->AddKernel<TM, 7, INAIR, INAIR>( );

  918.                                 ik[8] = KernelManager->AddKernel<TM, 8, INAIR, INAIR>( );

  919.                                 ik[9] = KernelManager->AddKernel<TM, 9, INAIR, INAIR>( );

  920.                                 ik[0] = KernelManager->AddKernel<TE, 0, INAIR, INAIR>( );

  921.                                 ik[1] = KernelManager->AddKernel<TE, 1, INAIR, INAIR>( );

  922.                                 ik[4] = KernelManager->AddKernel<TE, 4, INAIR, INAIR>( );

  923.                                 ik[2] = KernelManager->AddKernel<TM, 2, INAIR, INAIR>( );

  924.                                 ik[3] = KernelManager->AddKernel<TM, 3, INAIR, INAIR>( );

  925.                             } else if (lays == 0 && layr > 0) {

  926.                                 ik[5] = KernelManager->AddKernel<TE, 5, INAIR, INGROUND>( );

  927.                                 ik[6] = KernelManager->AddKernel<TE, 6, INAIR, INGROUND>( );

  928.                                 ik[7] = KernelManager->AddKernel<TM, 7, INAIR, INGROUND>( );

  929.                                 ik[8] = KernelManager->AddKernel<TM, 8, INAIR, INGROUND>( );

  930.                                 ik[9] = KernelManager->AddKernel<TM, 9, INAIR, INGROUND>( );

  931.                                 ik[0] = KernelManager->AddKernel<TE, 0, INAIR, INGROUND>( );

  932.                                 ik[1] = KernelManager->AddKernel<TE, 1, INAIR, INGROUND>( );

  933.                                 ik[4] = KernelManager->AddKernel<TE, 4, INAIR, INGROUND>( );

  934.                                 ik[2] = KernelManager->AddKernel<TM, 2, INAIR, INGROUND>( );

  935.                                 ik[3] = KernelManager->AddKernel<TM, 3, INAIR, INGROUND>( );

  936.                             } else {

  937.                                 ik[5] = KernelManager->AddKernel<TE, 5, INGROUND, INGROUND>( );

  938.                                 ik[6] = KernelManager->AddKernel<TE, 6, INGROUND, INGROUND>( );

  939.                                 ik[7] = KernelManager->AddKernel<TM, 7, INGROUND, INGROUND>( );

  940.                                 ik[8] = KernelManager->AddKernel<TM, 8, INGROUND, INGROUND>( );

  941.                                 ik[9] = KernelManager->AddKernel<TM, 9, INGROUND, INGROUND>( );

  942.                                 ik[0] = KernelManager->AddKernel<TE, 0, INGROUND, INGROUND>( );

  943.                                 ik[1] = KernelManager->AddKernel<TE, 1, INGROUND, INGROUND>( );

  944.                                 ik[4] = KernelManager->AddKernel<TE, 4, INGROUND, INGROUND>( );

  945.                                 ik[2] = KernelManager->AddKernel<TM, 2, INGROUND, INGROUND>( );

  946.                                 ik[3] = KernelManager->AddKernel<TM, 3, INGROUND, INGROUND>( );

  947.                            }

  948.                            break;

  949.                         }

  950.                 }

  951.                 break;

  952. 

  953.             default:

  954.                 std::cerr << "Dipole type incorrect, in dipolesource.cpp";

  955.                 exit(EXIT_FAILURE);

  956. 

  957.         }

  958.     }

  959. 

  960.     void DipoleSource::UpdateFields( const int& ifreq, HankelTransform* Hankel, const Real& wavef) {

  961. 

  962.         Vector3r Pol = Phat;

  963. 

  964.         switch (Type) {

  965. 

  966.             case (GROUNDEDELECTRICDIPOLE):

  967. 

  968.                 //Hankel->ComputeRelated(rho, KernelManager);

  969. 

  970.                 if (std::abs(Pol[2]) > 0) { // z dipole

  971.                     switch(FieldsToCalculate) {

  972.                         case E:

  973.                             f(10) = Hankel->Zgauss(10, TM, 1, rho, wavef, KernelManager->GetRAWKernel(ik[10])) / KernelManager->GetRAWKernel(ik[10])->GetYm();

  974.                             f(11) = Hankel->Zgauss(11, TM, 0, rho, wavef, KernelManager->GetRAWKernel(ik[11])) / KernelManager->GetRAWKernel(ik[11])->GetYm();

  975.                             this->Receivers->AppendEfield(ifreq, irec,

  976.                                 -Pol[2]*QPI*cp*f(10)*Moment,

  977.                                 -Pol[2]*QPI*sp*f(10)*Moment,

  978.                                  Pol[2]*QPI*f(11)*Moment);

  979.                             break;

  980. 

  981.                         case H:

  982.                             f(12) = Hankel->Zgauss(12, TM, 1, rho, wavef, KernelManager->GetRAWKernel(ik[12]));

  983.                             this->Receivers->AppendHfield(ifreq, irec,

  984.                                 -Pol[2]*QPI*sp*f(12)*Moment,

  985.                                  Pol[2]*QPI*cp*f(12)*Moment,

  986.                                  0. );

  987.                             break;

  988. 

  989.                         case BOTH:

  990.                             f(10) = Hankel->Zgauss(10, TM, 1, rho, wavef, KernelManager->GetRAWKernel(ik[10])) / KernelManager->GetRAWKernel(ik[10])->GetYm();

  991.                             f(11) = Hankel->Zgauss(11, TM, 0, rho, wavef, KernelManager->GetRAWKernel(ik[11])) / KernelManager->GetRAWKernel(ik[11])->GetYm();

  992.                             this->Receivers->AppendEfield(ifreq, irec,

  993.                                     -Pol[2]*QPI*cp*f(10)*Moment,

  994.                                     -Pol[2]*QPI*sp*f(10)*Moment,

  995.                                      Pol[2]*QPI*f(11)*Moment   );

  996. 

  997.                             f(12) = Hankel->Zgauss(12, TM, 1, rho, wavef, KernelManager->GetRAWKernel(ik[12]));

  998.                             this->Receivers->AppendHfield(ifreq, irec,

  999.                                     -Pol[2]*QPI*sp*f(12)*Moment,

  1000.                                      Pol[2]*QPI*cp*f(12)*Moment,

  1001.                                      0. );

  1002.                     } // Fields to calculate Z polarity Electric dipole

  1003.                 }

  1004.                 if (std::abs(Pol[1]) > 0 || std::abs(Pol[0]) > 0) { // x or y dipole

  1005.                     switch(FieldsToCalculate) {

  1006.                         case E:

  1007.                             f(2) = Hankel->Zgauss(2, TE, 0, rho, wavef, KernelManager->GetRAWKernel(ik[2])) * KernelManager->GetRAWKernel(ik[2])->GetZs();

  1008.                             f(3) = Hankel->Zgauss(3, TE, 1, rho, wavef, KernelManager->GetRAWKernel(ik[3])) * KernelManager->GetRAWKernel(ik[3])->GetZs();

  1009.                             f(0) = Hankel->Zgauss(0, TM, 0, rho, wavef, KernelManager->GetRAWKernel(ik[0])) / KernelManager->GetRAWKernel(ik[0])->GetYm();

  1010.                             f(1) = Hankel->Zgauss(1, TM, 1, rho, wavef, KernelManager->GetRAWKernel(ik[1])) / KernelManager->GetRAWKernel(ik[1])->GetYm();

  1011.                             f(4) = Hankel->Zgauss(4, TM, 1, rho, wavef, KernelManager->GetRAWKernel(ik[4])) / KernelManager->GetRAWKernel(ik[4])->GetYm();

  1012.                             if (std::abs(Pol[1]) > 0) {

  1013.                                 this->Receivers->AppendEfield(ifreq, irec,

  1014.                                     Pol[1]*Moment*QPI*scp*((f(0)-(Real)(2.)*f(1)/rho)+(f(2)-(Real)(2.)*f(3)/rho)),

  1015.                                     Pol[1]*Moment*QPI*((sps*f(0)+c2p*f(1)/rho)-(cps*f(2)-c2p*f(3)/rho)),

  1016.                                     Pol[1]*Moment*QPI*sp*f(4));

  1017.                             }

  1018.                             if (std::abs(Pol[0]) > 0) {

  1019.                                 this->Receivers->AppendEfield(ifreq, irec,

  1020.                                     Pol[0]*Moment*QPI*((cps*f(0)-c2p*f(1)/rho)-(sps*f(2)+c2p*f(3)/rho)),

  1021.                                     Pol[0]*Moment*QPI*scp*((f(0)-(Real)(2.)*f(1)/rho)+(f(2)-(Real)(2.)*f(3)/rho)),

  1022.                                     Pol[0]*Moment*QPI*cp*f(4) );

  1023.                             }

  1024.                             break;

  1025.                         case H:

  1026.                             f(5) = Hankel->Zgauss(5, TM, 0, rho, wavef, KernelManager->GetRAWKernel(ik[5]));

  1027.                             f(6) = Hankel->Zgauss(6, TM, 1, rho, wavef, KernelManager->GetRAWKernel(ik[6]));

  1028.                             f(7) = Hankel->Zgauss(7, TE, 0, rho, wavef, KernelManager->GetRAWKernel(ik[7]))*KernelManager->GetRAWKernel(ik[7])->GetZs()/KernelManager->GetRAWKernel(ik[7])->GetZm();

  1029.                             f(8) = Hankel->Zgauss(8, TE, 1, rho, wavef, KernelManager->GetRAWKernel(ik[8]))*KernelManager->GetRAWKernel(ik[8])->GetZs()/KernelManager->GetRAWKernel(ik[8])->GetZm();

  1030.                             f(9) = Hankel->Zgauss(9, TE, 1, rho, wavef, KernelManager->GetRAWKernel(ik[9]))*KernelManager->GetRAWKernel(ik[9])->GetZs()/KernelManager->GetRAWKernel(ik[9])->GetZm();

  1031.                             if (std::abs(Pol[1]) > 0) {

  1032.                                 this->Receivers->AppendHfield(ifreq, irec,

  1033.                                         Pol[1]*QPI*(sps*f(5)+c2p*f(6)/rho-cps*f(7)+c2p*f(8)/rho)*Moment,

  1034.                                         Pol[1]*QPI*scp*(-f(5)+(Real)(2.)*f(6)/rho-f(7)+(Real)(2.)*f(8)/rho)*Moment,

  1035.                                         -Pol[1]*QPI*cp*f(9)*Moment );

  1036.                             }

  1037.                             if (std::abs(Pol[0]) > 0) {

  1038.                                 this->Receivers->AppendHfield(ifreq, irec,

  1039.                                     Pol[0]*Moment*QPI*scp*(f(5)-(Real)(2.)*f(6)/rho+f(7)-(Real)(2.)*f(8)/rho),

  1040.                                     Pol[0]*Moment*QPI*(-cps*f(5)+c2p*f(6)/rho+sps*f(7)+c2p*f(8)/rho),

  1041.                                     Pol[0]*Moment*QPI*sp*f(9) );

  1042.                             }

  1043.                             break;

  1044. 

  1045.                         case BOTH:

  1046.                             f(0) = Hankel->Zgauss(0, TM, 0, rho, wavef, KernelManager->GetRAWKernel(ik[0])) / KernelManager->GetRAWKernel(ik[0])->GetYm();

  1047.                             f(1) = Hankel->Zgauss(1, TM, 1, rho, wavef, KernelManager->GetRAWKernel(ik[1])) / KernelManager->GetRAWKernel(ik[1])->GetYm();

  1048.                             f(4) = Hankel->Zgauss(4, TM, 1, rho, wavef, KernelManager->GetRAWKernel(ik[4])) / KernelManager->GetRAWKernel(ik[4])->GetYm();

  1049.                             f(2) = Hankel->Zgauss(2, TE, 0, rho, wavef, KernelManager->GetRAWKernel(ik[2])) * KernelManager->GetRAWKernel(ik[2])->GetZs();

  1050.                             f(3) = Hankel->Zgauss(3, TE, 1, rho, wavef, KernelManager->GetRAWKernel(ik[3])) * KernelManager->GetRAWKernel(ik[3])->GetZs();

  1051.                             f(5) = Hankel->Zgauss(5, TM, 0, rho, wavef, KernelManager->GetRAWKernel(ik[5]));

  1052.                             f(6) = Hankel->Zgauss(6, TM, 1, rho, wavef, KernelManager->GetRAWKernel(ik[6]));

  1053.                             f(7) = Hankel->Zgauss(7, TE, 0, rho, wavef, KernelManager->GetRAWKernel(ik[7]))*KernelManager->GetRAWKernel(ik[7])->GetZs()/KernelManager->GetRAWKernel(ik[7])->GetZm();

  1054.                             f(8) = Hankel->Zgauss(8, TE, 1, rho, wavef, KernelManager->GetRAWKernel(ik[8]))*KernelManager->GetRAWKernel(ik[8])->GetZs()/KernelManager->GetRAWKernel(ik[8])->GetZm();

  1055.                             f(9) = Hankel->Zgauss(9, TE, 1, rho, wavef, KernelManager->GetRAWKernel(ik[9]))*KernelManager->GetRAWKernel(ik[9])->GetZs()/KernelManager->GetRAWKernel(ik[9])->GetZm();

  1056. 

  1057.                             if (std::abs(Pol[1]) > 0) {

  1058.                                 this->Receivers->AppendEfield(ifreq, irec,

  1059.                                         Pol[1]*QPI*scp*((f(0)-(Real)(2.)*f(1)/rho)+(f(2)-(Real)(2.)*f(3)/rho))*Moment ,

  1060.                                         Pol[1]*QPI*((sps*f(0)+c2p*f(1)/rho)-(cps*f(2)-c2p*f(3)/rho))*Moment,

  1061.                                         Pol[1]*QPI*sp*f(4)*Moment);

  1062. 

  1063.                                 this->Receivers->AppendHfield(ifreq, irec,

  1064.                                         Pol[1]*QPI*(sps*f(5)+c2p*f(6)/rho-cps*f(7)+c2p*f(8)/rho)*Moment,

  1065.                                         Pol[1]*QPI*scp*(-f(5)+(Real)(2.)*f(6)/rho-f(7)+(Real)(2.)*f(8)/rho)*Moment,

  1066.                                        -Pol[1]*QPI*cp*f(9)*Moment );

  1067.                             }

  1068.                             if (std::abs(Pol[0]) > 0) {

  1069.                                 this->Receivers->AppendEfield(ifreq, irec,

  1070.                                     Pol[0]*Moment*QPI*((cps*f(0)-c2p*f(1)/rho)-(sps*f(2)+c2p*f(3)/rho)),

  1071.                                     Pol[0]*Moment*QPI*scp*((f(0)-(Real)(2.)*f(1)/rho)+(f(2)-(Real)(2.)*f(3)/rho)),

  1072.                                     Pol[0]*Moment*QPI*cp*f(4) );

  1073. 

  1074.                                 this->Receivers->AppendHfield(ifreq, irec,

  1075.                                     Pol[0]*Moment*QPI*scp*(f(5)-(Real)(2.)*f(6)/rho+f(7)-(Real)(2.)*f(8)/rho),

  1076.                                     Pol[0]*Moment*QPI*(-cps*f(5)+c2p*f(6)/rho+sps*f(7)+c2p*f(8)/rho),

  1077.                                     Pol[0]*Moment*QPI*sp*f(9) );

  1078.                             }

  1079.                             break;

  1080.                     }

  1081.                 }

  1082.                 break; // GROUNDEDELECTRICDIPOLE

  1083. 

  1084.             case (GROUNDINGPOINT):

  1085.                 if (std::abs(Pol[2]) > 0) { // z dipole

  1086.                     switch(FieldsToCalculate) {

  1087.                         case E:

  1088.                             f(10) = Hankel->Zgauss(10, TM, 1, rho, wavef, KernelManager->GetRAWKernel(ik[10])) / KernelManager->GetRAWKernel(ik[10])->GetYm();

  1089.                             f(11) = Hankel->Zgauss(11, TM, 0, rho, wavef, KernelManager->GetRAWKernel(ik[11])) / KernelManager->GetRAWKernel(ik[11])->GetYm();

  1090.                             this->Receivers->AppendEfield(ifreq, irec,

  1091.                                 -Pol[2]*QPI*cp*f(10)*Moment,

  1092.                                 -Pol[2]*QPI*sp*f(10)*Moment,

  1093.                                  Pol[2]*QPI*f(11)*Moment);

  1094.                             break;

  1095. 

  1096.                         case H:

  1097.                             f(12) = Hankel->Zgauss(12, TM, 1, rho, wavef, KernelManager->GetRAWKernel(ik[12]));

  1098.                             this->Receivers->AppendHfield(ifreq, irec,

  1099.                                 -Pol[2]*QPI*sp*f(12)*Moment,

  1100.                                  Pol[2]*QPI*cp*f(12)*Moment,

  1101.                                  0. );

  1102.                             break;

  1103. 

  1104.                         case BOTH:

  1105.                             f(10) = Hankel->Zgauss(10, TM, 1, rho, wavef, KernelManager->GetRAWKernel(ik[10])) / KernelManager->GetRAWKernel(ik[10])->GetYm();

  1106.                             f(11) = Hankel->Zgauss(11, TM, 0, rho, wavef, KernelManager->GetRAWKernel(ik[11])) / KernelManager->GetRAWKernel(ik[11])->GetYm();

  1107.                             this->Receivers->AppendEfield(ifreq, irec,

  1108.                                     -Pol[2]*QPI*cp*f(10)*Moment,

  1109.                                     -Pol[2]*QPI*sp*f(10)*Moment,

  1110.                                      Pol[2]*QPI*f(11)*Moment   );

  1111. 

  1112.                             f(12) = Hankel->Zgauss(12, TM, 1, rho, wavef, KernelManager->GetRAWKernel(ik[12]));

  1113.                             this->Receivers->AppendHfield(ifreq, irec,

  1114.                                     -Pol[2]*QPI*sp*f(12)*Moment,

  1115.                                      Pol[2]*QPI*cp*f(12)*Moment,

  1116.                                      0. );

  1117.                     } // Fields to calculate Z polarity Electric dipole

  1118.                 }

  1119.                 if (std::abs(Pol[1]) > 0 || std::abs(Pol[0]) > 0) { // x or y dipole

  1120.                     switch(FieldsToCalculate) {

  1121.                         case E:

  1122.                             f(2) = 0;//Hankel->Zgauss(2, TE, 0, rho, wavef, KernelManager->GetRAWKernel(ik[2])) * KernelManager->GetRAWKernel(ik[2])->GetZs();

  1123.                             f(3) = 0;//Hankel->Zgauss(3, TE, 1, rho, wavef, KernelManager->GetRAWKernel(ik[3])) * KernelManager->GetRAWKernel(ik[3])->GetZs();

  1124.                             f(0) = Hankel->Zgauss(0, TM, 0, rho, wavef, KernelManager->GetRAWKernel(ik[0])) / KernelManager->GetRAWKernel(ik[0])->GetYm();

  1125.                             f(1) = Hankel->Zgauss(1, TM, 1, rho, wavef, KernelManager->GetRAWKernel(ik[1])) / KernelManager->GetRAWKernel(ik[1])->GetYm();

  1126.                             f(4) = Hankel->Zgauss(4, TM, 1, rho, wavef, KernelManager->GetRAWKernel(ik[4])) / KernelManager->GetRAWKernel(ik[4])->GetYm();

  1127.                             if (std::abs(Pol[1]) > 0) {

  1128.                                 this->Receivers->AppendEfield(ifreq, irec,

  1129.                                     0,0,0);

  1130.                                     //Pol[1]*QPI*Moment*scp*(f(0)+f(2)),

  1131.                                     //Pol[1]*QPI*Moment*((sps*f(0)+c2p*f(1)/rho)),

  1132.                                     //Pol[1]*QPI*Moment*(f(0)+f(2)),

  1133.                                     //Pol[1]*QPI*Moment*((f(0)+f(1)/rho)),

  1134.                                     //Pol[1]*QPI*sp*f(4)*Moment);

  1135.                                     // std dipole

  1136.                                     //Pol[1]*QPI*scp*((f(0)-(Real)(2.)*f(1)/rho)+(f(2)-(Real)(2.)*f(3)/rho))*Moment ,

  1137.                                     //Pol[1]*QPI*((sps*f(0)+c2p*f(1)/rho)-(cps*f(2)-c2p*f(3)/rho))*Moment,

  1138.                                     //Pol[1]*QPI*sp*f(4)*Moment);

  1139.                             }

  1140.                             if (std::abs(Pol[0]) > 0) {

  1141.                                 this->Receivers->AppendEfield(ifreq, irec,

  1142.                                     Pol[0]*Moment*QPI*((cps*f(0)-c2p*f(1)/rho)),          //-(sps*f(2)+c2p*f(3)/rho)),

  1143.                                     Pol[0]*Moment*QPI*scp*((f(0)-(Real)(2.)*f(1)/rho)),   //+(f(2)-(Real)(2.)*f(3)/rho)),

  1144.                                     Pol[0]*Moment*QPI*cp*f(4) );

  1145.                             }

  1146.                             break;

  1147.                         case H:

  1148.                             f(5) = Hankel->Zgauss(5, TM, 0, rho, wavef, KernelManager->GetRAWKernel(ik[5]));

  1149.                             f(6) = Hankel->Zgauss(6, TM, 1, rho, wavef, KernelManager->GetRAWKernel(ik[6]));

  1150.                             f(7) = Hankel->Zgauss(7, TE, 0, rho, wavef, KernelManager->GetRAWKernel(ik[7]))*KernelManager->GetRAWKernel(ik[7])->GetZs()/KernelManager->GetRAWKernel(ik[7])->GetZm();

  1151.                             f(8) = Hankel->Zgauss(8, TE, 1, rho, wavef, KernelManager->GetRAWKernel(ik[8]))*KernelManager->GetRAWKernel(ik[8])->GetZs()/KernelManager->GetRAWKernel(ik[8])->GetZm();

  1152.                             f(9) = Hankel->Zgauss(9, TE, 1, rho, wavef, KernelManager->GetRAWKernel(ik[9]))*KernelManager->GetRAWKernel(ik[9])->GetZs()/KernelManager->GetRAWKernel(ik[9])->GetZm();

  1153.                             if (std::abs(Pol[1]) > 0) {

  1154.                                 this->Receivers->AppendHfield(ifreq, irec,

  1155.                                         Pol[1]*QPI*(sps*f(5)+c2p*f(6)/rho-cps*f(7)+c2p*f(8)/rho)*Moment,

  1156.                                         Pol[1]*QPI*scp*(-f(5)+(Real)(2.)*f(6)/rho-f(7)+(Real)(2.)*f(8)/rho)*Moment,

  1157.                                         -Pol[1]*QPI*cp*f(9)*Moment );

  1158.                             }

  1159.                             if (std::abs(Pol[0]) > 0) {

  1160.                                 this->Receivers->AppendHfield(ifreq, irec,

  1161.                                     Pol[0]*Moment*QPI*scp*(f(5)-(Real)(2.)*f(6)/rho+f(7)-(Real)(2.)*f(8)/rho),

  1162.                                     Pol[0]*Moment*QPI*(-cps*f(5)+c2p*f(6)/rho+sps*f(7)+c2p*f(8)/rho),

  1163.                                     Pol[0]*Moment*QPI*sp*f(9) );

  1164.                             }

  1165.                             break;

  1166. 

  1167.                         case BOTH:

  1168.                             f(0) = Hankel->Zgauss(0, TM, 0, rho, wavef, KernelManager->GetRAWKernel(ik[0])) / KernelManager->GetRAWKernel(ik[0])->GetYm();

  1169.                             f(1) = Hankel->Zgauss(1, TM, 1, rho, wavef, KernelManager->GetRAWKernel(ik[1])) / KernelManager->GetRAWKernel(ik[1])->GetYm();

  1170.                             f(4) = Hankel->Zgauss(4, TM, 1, rho, wavef, KernelManager->GetRAWKernel(ik[4])) / KernelManager->GetRAWKernel(ik[4])->GetYm();

  1171.                             f(2) = Hankel->Zgauss(2, TE, 0, rho, wavef, KernelManager->GetRAWKernel(ik[2])) * KernelManager->GetRAWKernel(ik[2])->GetZs();

  1172.                             f(3) = Hankel->Zgauss(3, TE, 1, rho, wavef, KernelManager->GetRAWKernel(ik[3])) * KernelManager->GetRAWKernel(ik[3])->GetZs();

  1173.                             f(5) = Hankel->Zgauss(5, TM, 0, rho, wavef, KernelManager->GetRAWKernel(ik[5]));

  1174.                             f(6) = Hankel->Zgauss(6, TM, 1, rho, wavef, KernelManager->GetRAWKernel(ik[6]));

  1175.                             f(7) = Hankel->Zgauss(7, TE, 0, rho, wavef, KernelManager->GetRAWKernel(ik[7]))*KernelManager->GetRAWKernel(ik[7])->GetZs()/KernelManager->GetRAWKernel(ik[7])->GetZm();

  1176.                             f(8) = Hankel->Zgauss(8, TE, 1, rho, wavef, KernelManager->GetRAWKernel(ik[8]))*KernelManager->GetRAWKernel(ik[8])->GetZs()/KernelManager->GetRAWKernel(ik[8])->GetZm();

  1177.                             f(9) = Hankel->Zgauss(9, TE, 1, rho, wavef, KernelManager->GetRAWKernel(ik[9]))*KernelManager->GetRAWKernel(ik[9])->GetZs()/KernelManager->GetRAWKernel(ik[9])->GetZm();

  1178. 

  1179.                             if (std::abs(Pol[1]) > 0) {

  1180.                                 this->Receivers->AppendEfield(ifreq, irec,

  1181.                                         Pol[1]*QPI*scp*((f(0)-(Real)(2.)*f(1)/rho)+(f(2)-(Real)(2.)*f(3)/rho))*Moment ,

  1182.                                         Pol[1]*QPI*((sps*f(0)+c2p*f(1)/rho)-(cps*f(2)-c2p*f(3)/rho))*Moment,

  1183.                                         Pol[1]*QPI*sp*f(4)*Moment);

  1184. 

  1185.                                 this->Receivers->AppendHfield(ifreq, irec,

  1186.                                         Pol[1]*QPI*(sps*f(5)+c2p*f(6)/rho-cps*f(7)+c2p*f(8)/rho)*Moment,

  1187.                                         Pol[1]*QPI*scp*(-f(5)+(Real)(2.)*f(6)/rho-f(7)+(Real)(2.)*f(8)/rho)*Moment,

  1188.                                        -Pol[1]*QPI*cp*f(9)*Moment );

  1189.                             }

  1190.                             if (std::abs(Pol[0]) > 0) {

  1191.                                 this->Receivers->AppendEfield(ifreq, irec,

  1192.                                     Pol[0]*Moment*QPI*((cps*f(0)-c2p*f(1)/rho)-(sps*f(2)+c2p*f(3)/rho)),

  1193.                                     Pol[0]*Moment*QPI*scp*((f(0)-(Real)(2.)*f(1)/rho)+(f(2)-(Real)(2.)*f(3)/rho)),

  1194.                                     Pol[0]*Moment*QPI*cp*f(4) );

  1195. 

  1196.                                 this->Receivers->AppendHfield(ifreq, irec,

  1197.                                     Pol[0]*Moment*QPI*scp*(f(5)-(Real)(2.)*f(6)/rho+f(7)-(Real)(2.)*f(8)/rho),

  1198.                                     Pol[0]*Moment*QPI*(-cps*f(5)+c2p*f(6)/rho+sps*f(7)+c2p*f(8)/rho),

  1199.                                     Pol[0]*Moment*QPI*sp*f(9) );

  1200.                             }

  1201.                             break;

  1202.                     }

  1203.                 }

  1204.                 break; // GROUNDINGPOINT

  1205. 

  1206. 

  1207.             case UNGROUNDEDELECTRICDIPOLE:

  1208. 

  1209.                 if (std::abs(Pol[2]) > 0) { // z dipole

  1210.                     switch(FieldsToCalculate) {

  1211.                         case E:

  1212.                             f(10) = 0;

  1213.                             f(11) = Hankel->Zgauss(11, TM, 0, rho, wavef, KernelManager->GetRAWKernel(ik[11])) / KernelManager->GetRAWKernel(ik[11])->GetYm();

  1214. 

  1215.                             this->Receivers->AppendEfield(ifreq, irec,

  1216.                                 -Pol[2]*QPI*cp*f(10)*Moment,

  1217.                                 -Pol[2]*QPI*sp*f(10)*Moment,

  1218.                                  Pol[2]*QPI*f(11)*Moment);

  1219.                             break;

  1220. 

  1221.                         case H:

  1222.                             f(12) = Hankel->Zgauss(12, TM, 1, rho, wavef, KernelManager->GetRAWKernel(ik[12]));

  1223.                             this->Receivers->AppendHfield(ifreq, irec,

  1224.                                 -Pol[2]*QPI*sp*f(12)*Moment,

  1225.                                  Pol[2]*QPI*cp*f(12)*Moment,

  1226.                                  0. );

  1227.                             break;

  1228. 

  1229.                         case BOTH:

  1230.                             f(10) = 0;

  1231.                             f(11) = Hankel->Zgauss(11, TM, 0, rho, wavef, KernelManager->GetRAWKernel(ik[11])) / KernelManager->GetRAWKernel(ik[11])->GetYm();

  1232.                             this->Receivers->AppendEfield(ifreq, irec,

  1233.                                     -Pol[2]*QPI*cp*f(10)*Moment,

  1234.                                     -Pol[2]*QPI*sp*f(10)*Moment,

  1235.                                      Pol[2]*QPI*f(11)*Moment   );

  1236. 

  1237.                             f(12) = Hankel->Zgauss(12, TM, 1, rho, wavef, KernelManager->GetRAWKernel(ik[12]));

  1238.                             this->Receivers->AppendHfield(ifreq, irec,

  1239.                                     -Pol[2]*QPI*sp*f(12)*Moment,

  1240.                                      Pol[2]*QPI*cp*f(12)*Moment,

  1241.                                      0. );

  1242.                     } // Fields to calculate Z polarity Electric dipole

  1243.                 }

  1244.                 if (std::abs(Pol[1]) > 0 || std::abs(Pol[0]) > 0) { // x or y dipole

  1245. 

  1246.                     switch(FieldsToCalculate) {

  1247.                         case E:

  1248.                             //f(0) = 0;

  1249.                             //f(1) = 0;

  1250.                             //f(2) = Hankel->Zgauss(2, TE, 0, rho, wavef, KernelManager->GetRAWKernel(ik[2])) * KernelManager->GetRAWKernel(ik[2])->GetZs();

  1251.                             //f(3) = Hankel->Zgauss(3, TE, 1, rho, wavef, KernelManager->GetRAWKernel(ik[3])) * KernelManager->GetRAWKernel(ik[3])->GetZs();

  1252.                             //f(4) = 0;

  1253.                             f(2) = Hankel->Zgauss(2, TE, 0, rho, wavef, KernelManager->GetRAWKernel(ik[2])) * KernelManager->GetRAWKernel(ik[2])->GetZs();

  1254.                             f(3) = Hankel->Zgauss(3, TE, 1, rho, wavef, KernelManager->GetRAWKernel(ik[3])) * KernelManager->GetRAWKernel(ik[3])->GetZs();

  1255.                             f(0) = Hankel->Zgauss(0, TM, 0, rho, wavef, KernelManager->GetRAWKernel(ik[0])) / KernelManager->GetRAWKernel(ik[0])->GetYm();

  1256.                             f(1) = Hankel->Zgauss(1, TM, 1, rho, wavef, KernelManager->GetRAWKernel(ik[1])) / KernelManager->GetRAWKernel(ik[1])->GetYm();

  1257.                             f(4) = Hankel->Zgauss(4, TM, 1, rho, wavef, KernelManager->GetRAWKernel(ik[4])) / KernelManager->GetRAWKernel(ik[4])->GetYm();

  1258.                             if (std::abs(Pol[1]) > 0) {

  1259.                                 this->Receivers->AppendEfield(ifreq, irec,

  1260.                                     Pol[1]*QPI*scp*((f(0)-(Real)(2.)*f(1)/rho)+(f(2)-(Real)(2.)*f(3)/rho))*Moment,

  1261.                                     Pol[1]*QPI*((sps*f(0)+c2p*f(1)/rho)-(cps*f(2)-c2p*f(3)/rho))*Moment,

  1262.                                     Pol[1]*QPI*sp*f(4)*Moment);

  1263.                             }

  1264.                             if (std::abs(Pol[0]) > 0) {

  1265.                                 this->Receivers->AppendEfield(ifreq, irec,

  1266.                                     Pol[0]*Moment*QPI*((cps*f(0)-c2p*f(1)/rho)-(sps*f(2)+c2p*f(3)/rho)),

  1267.                                     Pol[0]*Moment*QPI*scp*((f(0)-(Real)(2.)*f(1)/rho)+(f(2)-(Real)(2.)*f(3)/rho)),

  1268.                                     Pol[0]*Moment*QPI*cp*f(4) );

  1269.                             }

  1270.                             break;

  1271.                         case H:

  1272.                             // TI - Comparisons with Amira show slight better agreement when neglecting these grounding terms

  1273.                             f(5) = 0; //Hankel->Zgauss(5, TM, 0, rho, wavef, KernelManager->GetRAWKernel(ik[5]));

  1274.                             f(6) = 0; //Hankel->Zgauss(6, TM, 1, rho, wavef, KernelManager->GetRAWKernel(ik[6]));

  1275.                             f(7) = Hankel->Zgauss(7, TE, 0, rho, wavef, KernelManager->GetRAWKernel(ik[7]))*KernelManager->GetRAWKernel(ik[7])->GetZs()/KernelManager->GetRAWKernel(ik[7])->GetZm();

  1276.                             f(8) = Hankel->Zgauss(8, TE, 1, rho, wavef, KernelManager->GetRAWKernel(ik[8]))*KernelManager->GetRAWKernel(ik[8])->GetZs()/KernelManager->GetRAWKernel(ik[8])->GetZm();

  1277.                             f(9) = Hankel->Zgauss(9, TE, 1, rho, wavef, KernelManager->GetRAWKernel(ik[9]))*KernelManager->GetRAWKernel(ik[9])->GetZs()/KernelManager->GetRAWKernel(ik[9])->GetZm();

  1278.                             if (std::abs(Pol[1]) > 0) {

  1279.                                 this->Receivers->AppendHfield(ifreq, irec,

  1280.                                         Pol[1]*QPI*(sps*f(5)+c2p*f(6)/rho-cps*f(7)+c2p*f(8)/rho)*Moment,

  1281.                                         Pol[1]*QPI*scp*(-f(5)+(Real)(2.)*f(6)/rho-f(7)+(Real)(2.)*f(8)/rho)*Moment,

  1282.                                        -Pol[1]*QPI*cp*f(9)*Moment );

  1283.                             }

  1284.                             if (std::abs(Pol[0]) > 0) {

  1285.                                 this->Receivers->AppendHfield(ifreq, irec,

  1286.                                     Pol[0]*Moment*QPI*scp*(f(5)-(Real)(2.)*f(6)/rho+f(7)-(Real)(2.)*f(8)/rho),

  1287.                                     Pol[0]*Moment*QPI*(-cps*f(5)+c2p*f(6)/rho+sps*f(7)+c2p*f(8)/rho),

  1288.                                     Pol[0]*Moment*QPI*sp*f(9) );

  1289.                             }

  1290.                             break;

  1291. 

  1292.                         case BOTH:

  1293.                             f(0) = 0;

  1294.                             f(1) = 0;

  1295.                             f(4) = 0;

  1296.                             f(2) = Hankel->Zgauss(2, TE, 0, rho, wavef, KernelManager->GetRAWKernel(ik[2])) * KernelManager->GetRAWKernel(0)->GetZs();

  1297.                             f(3) = Hankel->Zgauss(3, TE, 1, rho, wavef, KernelManager->GetRAWKernel(ik[3])) * KernelManager->GetRAWKernel(1)->GetZs();

  1298.                             f(5) = 0;//Hankel->Zgauss(5, TM, 0, rho, wavef, KernelManager->GetRAWKernel(ik[5]));

  1299.                             f(6) = 0;//Hankel->Zgauss(6, TM, 1, rho, wavef, KernelManager->GetRAWKernel(ik[6]));

  1300.                             f(7) = Hankel->Zgauss(7, TE, 0, rho, wavef, KernelManager->GetRAWKernel(ik[7]))*KernelManager->GetRAWKernel(ik[7])->GetZs()/KernelManager->GetRAWKernel(ik[7])->GetZm();

  1301.                             f(8) = Hankel->Zgauss(8, TE, 1, rho, wavef, KernelManager->GetRAWKernel(ik[8]))*KernelManager->GetRAWKernel(ik[8])->GetZs()/KernelManager->GetRAWKernel(ik[8])->GetZm();

  1302.                             f(9) = Hankel->Zgauss(9, TE, 1, rho, wavef, KernelManager->GetRAWKernel(ik[9]))*KernelManager->GetRAWKernel(ik[9])->GetZs()/KernelManager->GetRAWKernel(ik[9])->GetZm();

  1303. 

  1304.                             if (std::abs(Pol[1]) > 0) {

  1305.                                 this->Receivers->AppendEfield(ifreq, irec,

  1306.                                         Pol[1]*QPI*scp*((f(0)-(Real)(2.)*f(1)/rho)+(f(2)-(Real)(2.)*f(3)/rho))*Moment ,

  1307.                                         Pol[1]*QPI*((sps*f(0)+c2p*f(1)/rho)-(cps*f(2)-c2p*f(3)/rho))*Moment,

  1308.                                         Pol[1]*QPI*sp*f(4)*Moment);

  1309. 

  1310.                                 this->Receivers->AppendHfield(ifreq, irec,

  1311.                                         Pol[1]*QPI*(sps*f(5)+c2p*f(6)/rho-cps*f(7)+c2p*f(8)/rho)*Moment,

  1312.                                         Pol[1]*QPI*scp*(-f(5)+(Real)(2.)*f(6)/rho-f(7)+(Real)(2.)*f(8)/rho)*Moment,

  1313.                                        -Pol[1]*QPI*cp*f(9)*Moment );

  1314.                             }

  1315. 

  1316.                             if (std::abs(Pol[0]) > 0) {

  1317.                                 this->Receivers->AppendEfield(ifreq, irec,

  1318.                                     Pol[0]*Moment*QPI*((cps*f(0)-c2p*f(1)/rho)-(sps*f(2)+c2p*f(3)/rho)),

  1319.                                     Pol[0]*Moment*QPI*scp*((f(0)-(Real)(2.)*f(1)/rho)+(f(2)-(Real)(2.)*f(3)/rho)),

  1320.                                     Pol[0]*Moment*QPI*cp*f(4) );

  1321. 

  1322.                                 this->Receivers->AppendHfield(ifreq, irec,

  1323.                                     Pol[0]*Moment*QPI*scp*(f(5)-(Real)(2.)*f(6)/rho+f(7)-(Real)(2.)*f(8)/rho),

  1324.                                     Pol[0]*Moment*QPI*(-cps*f(5)+c2p*f(6)/rho+sps*f(7)+c2p*f(8)/rho),

  1325.                                     Pol[0]*Moment*QPI*sp*f(9) );

  1326.                             }

  1327.                             break;

  1328.                     }

  1329.                 }

  1330. 

  1331.                 break; // UNGROUNDEDELECTRICDIPOLE

  1332. 

  1333.             case MAGNETICDIPOLE:

  1334.                 //Hankel->ComputeRelated(rho, KernelManager);

  1335.                 if (std::abs(Pol[2]) > 0) { // z dipole

  1336.                     switch(FieldsToCalculate) {

  1337.                         case E:

  1338.                             f(12)=Hankel->Zgauss(12, TE, 1, rho, wavef, KernelManager->GetRAWKernel(ik[12]))*KernelManager->GetRAWKernel(ik[12])->GetZs();

  1339.                             this->Receivers->AppendEfield(ifreq, irec,

  1340.                                  Pol[2]*Moment*QPI*sp*f(12),

  1341.                                 -Pol[2]*Moment*QPI*cp*f(12),

  1342.                                  0);

  1343.                             break;

  1344.                         case H:

  1345.                             f(10)=Hankel->Zgauss(10, TE, 1, rho, wavef, KernelManager->GetRAWKernel(ik[10]))*KernelManager->GetRAWKernel(ik[10])->GetZs()/KernelManager->GetRAWKernel(ik[10])->GetZm();

  1346.                             f(11)=Hankel->Zgauss(11, TE, 0, rho, wavef, KernelManager->GetRAWKernel(ik[11]))*KernelManager->GetRAWKernel(ik[11])->GetZs()/KernelManager->GetRAWKernel(ik[11])->GetZm();

  1347.                             this->Receivers->AppendHfield(ifreq, irec,

  1348.                                 -Pol[2]*Moment*QPI*cp*f(10),

  1349.                                 -Pol[2]*Moment*QPI*sp*f(10),

  1350.                                  Pol[2]*Moment*QPI*f(11) );

  1351.                             break;

  1352. 

  1353.                         case BOTH:

  1354.                             f(12)=Hankel->Zgauss(12, TE, 1, rho, wavef, KernelManager->GetRAWKernel(ik[12]))*KernelManager->GetRAWKernel(ik[12])->GetZs();

  1355.                             f(10)=Hankel->Zgauss(10, TE, 1, rho, wavef, KernelManager->GetRAWKernel(ik[10]))*KernelManager->GetRAWKernel(ik[10])->GetZs()/KernelManager->GetRAWKernel(ik[10])->GetZm();

  1356.                             f(11)=Hankel->Zgauss(11, TE, 0, rho, wavef, KernelManager->GetRAWKernel(ik[11]))*KernelManager->GetRAWKernel(ik[11])->GetZs()/KernelManager->GetRAWKernel(ik[11])->GetZm();

  1357. 

  1358.                             this->Receivers->AppendEfield(ifreq, irec,

  1359.                                  Pol[2]*Moment*QPI*sp*f(12),

  1360.                                 -Pol[2]*Moment*QPI*cp*f(12),

  1361.                                  0);

  1362. 

  1363.                             this->Receivers->AppendHfield(ifreq, irec,

  1364.                                 -Pol[2]*Moment*QPI*cp*f(10),

  1365.                                 -Pol[2]*Moment*QPI*sp*f(10),

  1366.                                  Pol[2]*Moment*QPI*f(11) );

  1367.                             break;

  1368.                     }

  1369.                 }

  1370.                 if (std::abs(Pol[1]) > 0 || std::abs(Pol[0]) > 0) { // x or y grounded HED dipole

  1371. 

  1372.                     switch (FieldsToCalculate) {

  1373. 

  1374.                         case E:

  1375. 

  1376.                             f(5) = Hankel->Zgauss(5, TE, 0, rho, wavef, KernelManager->GetRAWKernel(ik[5]))*KernelManager->GetRAWKernel(ik[5])->GetZs();

  1377.                             f(6) = Hankel->Zgauss(6, TE, 1, rho, wavef, KernelManager->GetRAWKernel(ik[6]))*KernelManager->GetRAWKernel(ik[6])->GetZs();

  1378.                             f(7) = Hankel->Zgauss(7, TM, 0, rho, wavef, KernelManager->GetRAWKernel(ik[7]))*KernelManager->GetRAWKernel(ik[7])->GetKs()/KernelManager->GetRAWKernel(ik[7])->GetYm();

  1379.                             f(8) = Hankel->Zgauss(8, TM, 1, rho, wavef, KernelManager->GetRAWKernel(ik[8]))*KernelManager->GetRAWKernel(ik[8])->GetKs()/KernelManager->GetRAWKernel(ik[8])->GetYm();

  1380.                             f(9) = Hankel->Zgauss(9, TM, 1, rho, wavef, KernelManager->GetRAWKernel(ik[9]))*KernelManager->GetRAWKernel(ik[9])->GetKs()/KernelManager->GetRAWKernel(ik[9])->GetYm();

  1381. 

  1382.                             if (std::abs(Pol[0]) > 0) {

  1383.                                 this->Receivers->AppendEfield(ifreq, irec,

  1384.                                 Pol[0]*Moment*QPI*scp*((-f(5)+(Real)(2.)*f(6)/rho)+(f(7)-(Real)(2.)*f(8)/rho)),

  1385.                                 Pol[0]*Moment*QPI*((cps*f(5)-c2p*f(6)/rho)+(sps*f(7)+c2p*f(8)/rho)),

  1386.                                 Pol[0]*Moment*QPI*sp*f(9));

  1387.                             }

  1388.                             if (std::abs(Pol[1]) > 0) {

  1389.                                 this->Receivers->AppendEfield(ifreq, irec,

  1390.                                     Pol[1]*Moment*QPI*(-(sps*f(5)+c2p*f(6)/rho)-(cps*f(7)-c2p*f(8)/rho)),

  1391.                                     Pol[1]*Moment*QPI*scp*((f(5)-(Real)(2.)*f(6)/rho)-(f(7)-(Real)(2.)*f(8)/rho)),

  1392.                                     -Pol[1]*Moment*QPI*cp*f(9) );

  1393.                             }

  1394.                             break;

  1395. 

  1396.                         case H:

  1397.                             f(0) = Hankel->Zgauss(0, TE, 0, rho, wavef, KernelManager->GetRAWKernel(ik[0]))*KernelManager->GetRAWKernel(ik[0])->GetZs()/KernelManager->GetRAWKernel(ik[0])->GetZm();

  1398.                             f(1) = Hankel->Zgauss(1, TE, 1, rho, wavef, KernelManager->GetRAWKernel(ik[1]))*KernelManager->GetRAWKernel(ik[1])->GetZs()/KernelManager->GetRAWKernel(ik[1])->GetZm();

  1399.                             f(4) = Hankel->Zgauss(4, TE, 1, rho, wavef, KernelManager->GetRAWKernel(ik[4]))*KernelManager->GetRAWKernel(ik[4])->GetZs()/KernelManager->GetRAWKernel(ik[4])->GetZm();

  1400.                             f(2) = Hankel->Zgauss(2, TM, 0, rho, wavef, KernelManager->GetRAWKernel(ik[2]))*KernelManager->GetRAWKernel(ik[2])->GetKs();

  1401.                             f(3) = Hankel->Zgauss(3, TM, 1, rho, wavef, KernelManager->GetRAWKernel(ik[3]))*KernelManager->GetRAWKernel(ik[3])->GetKs();

  1402. 

  1403.                             if (std::abs(Pol[0]) > 0) {

  1404.                                 this->Receivers->AppendHfield(ifreq, irec,

  1405.                                     Pol[0]*Moment*QPI*(cps*f(0)-c2p*f(1)/rho+(sps*f(2)+c2p*f(3)/rho)),

  1406.                                     Pol[0]*Moment*QPI*scp*(f(0)-(Real)(2.)*f(1)/rho-(f(2)-(Real)(2.)*f(3)/rho)),

  1407.                                     Pol[0]*Moment*QPI*cp*f(4) );

  1408.                             }

  1409.                             if (std::abs(Pol[1]) > 0) {

  1410.                                 this->Receivers->AppendHfield(ifreq, irec,

  1411.                                     Pol[1]*Moment*QPI*scp*(f(0)-(Real)(2.)*f(1)/rho-(f(2)-(Real)(2.)*f(3)/rho)),

  1412.                                     Pol[1]*Moment*QPI*(sps*f(0)+c2p*f(1)/rho+(cps*f(2)-c2p*f(3)/rho)),

  1413.                                     Pol[1]*Moment*QPI*sp*f(4));

  1414.                             }

  1415.                             break;

  1416. 

  1417.                         case BOTH:

  1418.                             f(5) = Hankel->Zgauss(5, TE, 0, rho, wavef, KernelManager->GetRAWKernel(ik[5]))*KernelManager->GetRAWKernel(ik[5])->GetZs();

  1419.                             f(6) = Hankel->Zgauss(6, TE, 1, rho, wavef, KernelManager->GetRAWKernel(ik[6]))*KernelManager->GetRAWKernel(ik[6])->GetZs();

  1420.                             f(7) = Hankel->Zgauss(7, TM, 0, rho, wavef, KernelManager->GetRAWKernel(ik[7]))*KernelManager->GetRAWKernel(ik[7])->GetKs()/KernelManager->GetRAWKernel(ik[7])->GetYm();

  1421.                             f(8) = Hankel->Zgauss(8, TM, 1, rho, wavef, KernelManager->GetRAWKernel(ik[8]))*KernelManager->GetRAWKernel(ik[8])->GetKs()/KernelManager->GetRAWKernel(ik[8])->GetYm();

  1422.                             f(9) = Hankel->Zgauss(9, TM, 1, rho, wavef, KernelManager->GetRAWKernel(ik[9]))*KernelManager->GetRAWKernel(ik[9])->GetKs()/KernelManager->GetRAWKernel(ik[9])->GetYm();

  1423.                             f(0) = Hankel->Zgauss(0, TE, 0, rho, wavef, KernelManager->GetRAWKernel(ik[0]))*KernelManager->GetRAWKernel(ik[0])->GetZs()/KernelManager->GetRAWKernel(ik[0])->GetZm();

  1424.                             f(1) = Hankel->Zgauss(1, TE, 1, rho, wavef, KernelManager->GetRAWKernel(ik[1]))*KernelManager->GetRAWKernel(ik[1])->GetZs()/KernelManager->GetRAWKernel(ik[1])->GetZm();

  1425.                             f(4) = Hankel->Zgauss(4, TE, 1, rho, wavef, KernelManager->GetRAWKernel(ik[4]))*KernelManager->GetRAWKernel(ik[4])->GetZs()/KernelManager->GetRAWKernel(ik[4])->GetZm();

  1426.                             f(2) = Hankel->Zgauss(2, TM, 0, rho, wavef, KernelManager->GetRAWKernel(ik[2]))*KernelManager->GetRAWKernel(ik[2])->GetKs();

  1427.                             f(3) = Hankel->Zgauss(3, TM, 1, rho, wavef, KernelManager->GetRAWKernel(ik[3]))*KernelManager->GetRAWKernel(ik[3])->GetKs();

  1428. 

  1429.                             if (std::abs(Pol[0]) > 0) {

  1430.                                 this->Receivers->AppendEfield(ifreq, irec,

  1431.                                 Pol[0]*Moment*QPI*scp*((-f(5)+(Real)(2.)*f(6)/rho)+(f(7)-(Real)(2.)*f(8)/rho)),

  1432.                                 Pol[0]*Moment*QPI*((cps*f(5)-c2p*f(6)/rho)+(sps*f(7)+c2p*f(8)/rho)),

  1433.                                 Pol[0]*Moment*QPI*sp*f(9));

  1434. 

  1435.                                 this->Receivers->AppendHfield(ifreq, irec,

  1436.                                 Pol[0]*Moment*QPI*(cps*f(0)-c2p*f(1)/rho+(sps*f(2)+c2p*f(3)/rho)),

  1437.                                 Pol[0]*Moment*QPI*scp*(f(0)-(Real)(2.)*f(1)/rho-(f(2)-(Real)(2.)*f(3)/rho)),

  1438.                                 Pol[0]*Moment*QPI*cp*f(4) );

  1439.                             }

  1440.                             if (std::abs(Pol[1]) > 0) {

  1441.                                 this->Receivers->AppendEfield(ifreq, irec,

  1442.                                     Pol[1]*Moment*QPI*(-(sps*f(5)+c2p*f(6)/rho)-(cps*f(7)-c2p*f(8)/rho)),

  1443.                                     Pol[1]*Moment*QPI*scp*((f(5)-(Real)(2.)*f(6)/rho)-(f(7)-(Real)(2.)*f(8)/rho)),

  1444.                                     -Pol[1]*Moment*QPI*cp*f(9) );

  1445.                                 this->Receivers->AppendHfield(ifreq, irec,

  1446.                                     Pol[1]*Moment*QPI*scp*(f(0)-(Real)(2.)*f(1)/rho-(f(2)-(Real)(2.)*f(3)/rho)),

  1447.                                     Pol[1]*Moment*QPI*(sps*f(0)+c2p*f(1)/rho+(cps*f(2)-c2p*f(3)/rho)),

  1448.                                     Pol[1]*Moment*QPI*sp*f(4));

  1449.                             }

  1450. 

  1451.                             break;

  1452.                     }

  1453.                 }

  1454.                 break;

  1455.             case NOSOURCETYPE:

  1456.                 throw NonValidDipoleType(this);

  1457. 

  1458.         } // Source Type Switch

  1459.     }

  1460. 

  1461.     // ====================  INQUIRY       ======================

  1462. 

  1463.     std::shared_ptr<KernelEM1DManager>  DipoleSource::GetKernelManager() {

  1464.         return KernelManager;

  1465.     }

  1466. 

  1467.     Vector3r DipoleSource::GetLocation() {

  1468.         return this->Location;

  1469.     }

  1470. 

  1471.     #ifdef LEMMAUSEVTK

  1472.     vtkActor* DipoleSource::GetVtkActor() {

  1473. 

  1474.         vtkActor*                    vActor;

  1475. 

  1476.         vtkLineSource*               vLineSource;

  1477.         vtkTubeFilter*               vTube;

  1478.         vtkPolyDataMapper*           vMapper;

  1479.         vtkRegularPolygonSource*     vCircleSource;

  1480. 

  1481.         vLineSource = vtkLineSource::New();

  1482.         vTube = vtkTubeFilter::New();

  1483.         vMapper = vtkPolyDataMapper::New();

  1484.         vCircleSource = vtkRegularPolygonSource::New();

  1485. 

  1486.         VectorXr M0 = Location - .5*Moment*Phat;

  1487.         VectorXr M1 = Location + .5*Moment*Phat;

  1488. 

  1489.         vActor = vtkActor::New();

  1490. 

  1491.         switch (Type) {

  1492. 

  1493.             case GROUNDEDELECTRICDIPOLE:

  1494. 

  1495.                 vLineSource->SetPoint1( M0(0), M0(1), M0(2));

  1496.                 vLineSource->SetPoint2( M1(0), M1(1), M1(2));

  1497. 

  1498.                 vTube->SetInputConnection(vLineSource->GetOutputPort());

  1499.                 vTube->SetRadius(.1 * std::abs(Moment));

  1500.                 vTube->SetNumberOfSides(6);

  1501.                 vTube->SetCapping(1);

  1502.                 vMapper->SetInputConnection(vTube->GetOutputPort());

  1503.                 vActor->SetMapper(vMapper);

  1504.                 vActor->GetProperty()->SetColor(Phat[0], Phat[1], Phat[2]);

  1505.                 break;

  1506. 

  1507.             case UNGROUNDEDELECTRICDIPOLE:

  1508. 

  1509.                 vLineSource->SetPoint1( M0(0), M0(1), M0(2));

  1510.                 vLineSource->SetPoint2( M1(0), M1(1), M1(2));

  1511.                 vTube->SetInputConnection(vLineSource->GetOutputPort());

  1512.                 vTube->SetRadius(.1 * std::abs(Moment));

  1513.                 vTube->SetNumberOfSides(6);

  1514.                 vTube->SetCapping(1);

  1515.                 vMapper->SetInputConnection(vTube->GetOutputPort());

  1516.                 vActor->SetMapper(vMapper);

  1517.                 //vActor->GetProperty()->SetColor(Phat[0], Phat[1], Phat[2]);

  1518.                 vActor->GetProperty()->SetColor(rand()/(Real)(RAND_MAX), rand()/(Real)(RAND_MAX), rand()/(Real)(RAND_MAX));

  1519.                 vActor->GetProperty()->SetOpacity(1.);

  1520.                 break;

  1521. 

  1522.             case MAGNETICDIPOLE:

  1523. 

  1524.                 vCircleSource->SetCenter(Location(0), Location(1),

  1525.                                 Location(2));

  1526.                 vCircleSource->SetNumberOfSides(360);

  1527. 

  1528.                 vCircleSource->SetNormal(Phat[0], Phat[1], Phat[2]);

  1529.                 vCircleSource->SetRadius(0.2);  // .2 m radius

  1530.                 vCircleSource->SetGeneratePolygon(false);

  1531.                 vCircleSource->SetGeneratePolyline(true);

  1532.                 vCircleSource->Update();

  1533. 

  1534.                 vTube->SetInputConnection(vCircleSource->GetOutputPort());

  1535.                 //vTube->SetRadius( max((float)(*xCoords->GetTuple(nx)),

  1536.                 //                    (float)(*yCoords->GetTuple(ny))) / 100);

  1537.                 vTube->SetRadius(.1*std::abs(Moment));

  1538.                 vTube->SetNumberOfSides(6);

  1539.                 vTube->SetCapping(1);

  1540.                 vMapper->SetInputConnection(vTube->GetOutputPort());

  1541.                 vActor->SetMapper(vMapper);

  1542.                 vActor->GetProperty()->SetColor(.9,.2,.9);

  1543.                 break;

  1544. 

  1545.             default:

  1546.                 throw NonValidDipoleType();

  1547.         }

  1548. 

  1549.         vLineSource->Delete();

  1550.         vCircleSource->Delete();

  1551.         vTube->Delete();

  1552.         vMapper->Delete();

  1553. 

  1554.         return vActor;

  1555. 

  1556.     }

  1557.     #endif

  1558. 

  1559.     Real DipoleSource::GetLocation(const int& coordinate) {

  1560.         switch (coordinate) {

  1561.             case (0):

  1562.                 return this->Location.x();

  1563.                 //break; // implicit

  1564.             case (1):

  1565.                 return this->Location.y();

  1566.                 //break; // implicit

  1567.             case (2):

  1568.                 return this->Location.z();

  1569.                 //break; // implicit

  1570.             default:

  1571.                 throw  NonValidLocationCoordinate( );

  1572.         }

  1573.     }

  1574. 

  1575.     DIPOLESOURCETYPE DipoleSource::GetDipoleSourceType() {

  1576.         return this->Type;

  1577.     }

  1578. 

  1579.     //DipoleSourcePolarisation DipoleSource::GetDipoleSourcePolarisation() {

  1580.     //    return this->Polarisation;

  1581.     //}

  1582. 

  1583.     Real DipoleSource::GetAngularFrequency(const int& ifreq) {

  1584.         return 2.*PI*this->Freqs(ifreq);

  1585.     }

  1586. 

  1587.     Real DipoleSource::GetFrequency(const int& ifreq) {

  1588.         return this->Freqs(ifreq);

  1589.     }

  1590. 

  1591.     VectorXr DipoleSource::GetFrequencies( ) {

  1592.         return this->Freqs;

  1593.     }

  1594. 

  1595.     Real DipoleSource::GetPhase() {

  1596.         return this->Phase;

  1597.     }

  1598. 

  1599.     Real DipoleSource::GetMoment() {

  1600.         return this->Moment;

  1601.     }

  1602. 

  1603.     int DipoleSource::GetNumberOfFrequencies() {

  1604.         return (int)(this->Freqs.size());

  1605.     }

  1606. 

  1607.     void DipoleSource::SetNumberOfFrequencies(const int &nfreq){

  1608.         Freqs.resize(nfreq);

  1609.         Freqs.setZero();

  1610.     }

  1611. 

  1612.     void DipoleSource::SetFrequency(const int &ifreq, const Real &freq){

  1613.         Freqs(ifreq) = freq;

  1614.     }

  1615. 

  1616.     void DipoleSource::SetFrequencies(const VectorXr &freqs){

  1617.         Freqs = freqs;

  1618.     }

  1619. 

  1620.     /////////////////////////////////////////////////////////////////

  1621.     /////////////////////////////////////////////////////////////////

  1622.     // Error classes

  1623.     NullDipoleSource::NullDipoleSource() :

  1624.         runtime_error( "NULL VALUED DIPOLE SOURCE") {}

  1625. 

  1626.     NonValidDipoleTypeAssignment::NonValidDipoleTypeAssignment( ) :

  1627.         runtime_error( "NON VALID DIPOLE TYPE ASSIGNMENT") { }

  1628. 

  1629.     NonValidDipoleType::NonValidDipoleType( LemmaObject* ptr ) :

  1630.         runtime_error( "NON VALID DIPOLE TYPE") {

  1631.             std::cout << "Thrown by instance of "

  1632.                       << ptr->GetName() << std::endl;

  1633.     }

  1634. 

  1635.     NonValidDipoleType::NonValidDipoleType( ) :

  1636.         runtime_error( "NON VALID DIPOLE TYPE") { }

  1637. 

  1638.     NonValidDipolePolarity::NonValidDipolePolarity () :

  1639.         runtime_error( "NON VALID DIPOLE POLARITY") { }

  1640. 

  1641.     NonValidDipolePolarisation::NonValidDipolePolarisation( ) :

  1642.         runtime_error( "NON VALID DIPOLE TYPE") { }

  1643. 

  1644.     NonValidDipolePolarisationAssignment::

  1645.             NonValidDipolePolarisationAssignment( ) :

  1646.         runtime_error( "NON VALID DIPOLE POLARISATION ASSIGNMENT") { }

  1647. 

  1648.     NonValidLocationCoordinate::NonValidLocationCoordinate( ) :

  1649.         runtime_error( "NON VALID LOCATION COORDINATE REQUESTED") { }

  1650. 

  1651. }