|
@@ -1228,6 +1228,7 @@ namespace Lemma {
|
1228
|
1228
|
return pot/ReflCalc->uk;
|
1229
|
1229
|
|
1230
|
1230
|
}
|
|
1231
|
+
|
1231
|
1232
|
template<EMMODE Mode, int Ikernel, DIPOLE_LOCATION Isource, DIPOLE_LOCATION Irecv>
|
1232
|
1233
|
int KernelEM1DSpec<Mode, Ikernel, Isource, Irecv>::GetBesselOrder( ) {
|
1233
|
1234
|
std::cerr << "Calling base GetBesselOrder in KernelEM1DSpec < " << Mode
|
|
@@ -1449,12 +1450,15 @@ namespace Lemma {
|
1449
|
1450
|
((Real)(2.)*ReflCalc->LayerDepth(ReflCalc->nlay-2)-ReflCalc->rx_z-ReflCalc->tx_z));
|
1450
|
1451
|
} else {
|
1451
|
1452
|
con = ReflCalc->rtu(ReflCalc->lays)*(SS_SN(ReflCalc->id-1,0)*
|
1452
|
|
- std::exp(ReflCalc->uk*((Real)(2.)*ReflCalc->LayerDepth(ReflCalc->lays-1) -
|
1453
|
|
- ReflCalc->rx_z-ReflCalc->tx_z)) + SS_SN(ReflCalc->id-1, 1)*ReflCalc->rtd(ReflCalc->lays) *
|
1454
|
|
- std::exp(ReflCalc->uk*(ReflCalc->tx_z-ReflCalc->rx_z-(Real)(2.)* ReflCalc->LayerThickness(ReflCalc->lays)))) +
|
1455
|
|
- ReflCalc->rtd(ReflCalc->lays)*(SS_SN(ReflCalc->id-1, 2)* std::exp(ReflCalc->uk*(ReflCalc->rx_z+ReflCalc->tx_z-(Real)(2.) *
|
1456
|
|
- ReflCalc->LayerDepth(ReflCalc->lays))) + SS_SN(ReflCalc->id-1, 3)*ReflCalc->rtu(ReflCalc->lays) *
|
1457
|
|
- std::exp(ReflCalc->uk*(ReflCalc->rx_z-ReflCalc->tx_z-(Real)(2.) * ReflCalc->LayerThickness(ReflCalc->lays)))) ;
|
|
1453
|
+ std::exp(ReflCalc->uk*((Real)(2.)*ReflCalc->LayerDepth(ReflCalc->lays-1)-ReflCalc->rx_z-ReflCalc->tx_z))
|
|
1454
|
+ + SS_SN(ReflCalc->id-1, 1)*ReflCalc->rtd(ReflCalc->lays)
|
|
1455
|
+ * std::exp(ReflCalc->uk*(ReflCalc->tx_z-ReflCalc->rx_z-(Real)(2.)* ReflCalc->LayerThickness(ReflCalc->lays))))
|
|
1456
|
+ + ReflCalc->rtd(ReflCalc->lays)
|
|
1457
|
+ * ( SS_SN(ReflCalc->id-1, 2)
|
|
1458
|
+ * std::exp(ReflCalc->uk*(ReflCalc->rx_z+ReflCalc->tx_z-(Real)(2.) * ReflCalc->LayerDepth(ReflCalc->lays)))
|
|
1459
|
+ + SS_SN(ReflCalc->id-1, 3)*ReflCalc->rtu(ReflCalc->lays)
|
|
1460
|
+ * std::exp(ReflCalc->uk*(ReflCalc->rx_z-ReflCalc->tx_z-(Real)(2.) * ReflCalc->LayerThickness(ReflCalc->lays)))
|
|
1461
|
+ ) ;
|
1458
|
1462
|
con /= ((Real)(1.)-ReflCalc->rtu(ReflCalc->lays)*ReflCalc->rtd(ReflCalc->lays)*ReflCalc->cf(ReflCalc->lays)) ;
|
1459
|
1463
|
}
|
1460
|
1464
|
}
|