From 8c81d1c86f66c1d4749f7508727f00ae4095da5a Mon Sep 17 00:00:00 2001
From: Jan at TU-Delft <J.W.Thorbecke@tudelft.nl>
Date: Tue, 31 Oct 2017 12:17:29 +0100
Subject: [PATCH] solved bugs in new marchenko reci option
---
marchenko/marchenko.c | 10 +++-------
marchenko/readShotData.c | 2 +-
2 files changed, 4 insertions(+), 8 deletions(-)
diff --git a/marchenko/marchenko.c b/marchenko/marchenko.c
index 66a8e39..1bb2ec0 100644
--- a/marchenko/marchenko.c
+++ b/marchenko/marchenko.c
@@ -793,7 +793,7 @@ nw, int nw_low, int nw_high, int mode, int reci, int nshots, int *ixpos, int np
shared(iRN, dx, npe, nw, verbose) \
shared(Refl, Nfoc, reci, xrcv, xsrc, xsyn, fxsb, fxse, nxs, dxs) \
shared(nx, dxsrc, inx, k, nfreq, nw_low, nw_high) \
- shared(Fop, size, nts, ntfft, scl, ixrcv, ixsrc, stderr) \
+ shared(Fop, size, nts, ntfft, scl, ixrcv, ixsrc) \
private(l, ix, j, m, i, sum, rtrace)
{ /* start of parallel region */
sum = (complex *)malloc(nfreq*sizeof(complex));
@@ -842,14 +842,13 @@ nw, int nw_low, int nw_high, int mode, int reci, int nshots, int *ixpos, int np
if (isxcount[k] == 0) continue;
ixsrc = k;
inx = isxcount[ixsrc]; /* number of traces per reciprocal shot */
-// fprintf(stderr,"inx=%d for k=%d ixsrc=%d\n", inx, k, ixsrc);
#pragma omp parallel default(none) \
shared(iRN, dx, nw, verbose) \
shared(Refl, Nfoc, reci, xrcv, xsrc, xsyn, fxsb, fxse, nxs, dxs) \
shared(nx, dxsrc, inx, k, nfreq, nw_low, nw_high) \
shared(reci_xrcv, reci_xsrc, ixmask) \
- shared(Fop, size, nts, ntfft, scl, ixrcv, ixsrc, stderr) \
+ shared(Fop, size, nts, ntfft, scl, ixrcv, ixsrc) \
private(l, ix, j, m, i, sum, rtrace, ik, il)
{ /* start of parallel region */
sum = (complex *)malloc(nfreq*sizeof(complex));
@@ -866,9 +865,6 @@ nw, int nw_low, int nw_high, int mode, int reci, int nshots, int *ixpos, int np
il = reci_xrcv[ixsrc*nxs+i];
ik = reci_xsrc[ixsrc*nxs+i];
ix = NINT((xsrc[il] - fxsb)/dxs);
- //if (j==nw_low) {
- // fprintf(stderr,"ixsrc=%d with il=%d and ik=%d and ix=%d mask=%f\n", ixsrc, il, ik, ix, ixmask[ixsrc]);
- //}
sum[j].r += Refl[il*nw*nx+m*nx+ik].r*Fop[l*nw*nxs+m*nxs+ix].r -
Refl[il*nw*nx+m*nx+ik].i*Fop[l*nw*nxs+m*nxs+ix].i;
sum[j].i += Refl[il*nw*nx+m*nx+ik].i*Fop[l*nw*nxs+m*nxs+ix].r +
@@ -980,7 +976,7 @@ float fxse, float fxsb, float dxs, float dxsrc, float dx, int nshots, int *ixpos
free(count);
/* sort ixpos into increasing values */
-// qsort(ixpos, *npos, sizeof(int), compareInt);
+ qsort(ixpos, *npos, sizeof(int), compareInt);
return;
diff --git a/marchenko/readShotData.c b/marchenko/readShotData.c
index fe69303..1e1e33c 100644
--- a/marchenko/readShotData.c
+++ b/marchenko/readShotData.c
@@ -142,9 +142,9 @@ int readShotData(char *filename, float *xrcv, float *xsrc, float *zsrc, int *xnx
/* if reci=1 or reci=2 source-receive reciprocity is used and traces are added */
if (reci != 0) {
+ for (k=0; k<nxs; k++) ixmask[k] = 1.0;
for (k=0; k<nshots; k++) {
ixsrc = NINT((xsrc[k] - fxsb)/dxs);
- ixmask[ixsrc] = 1.0;
nxrk = xnx[k];
for (l=0; l<nxrk; l++) {
samercv = 0;
--
GitLab