From 4e138e2b292952d5652b70668375021adf65fdcf Mon Sep 17 00:00:00 2001
From: JanThorbecke <janth@xs4all.nl>
Date: Thu, 9 Jul 2020 14:40:24 +0200
Subject: [PATCH] taper correction
---
marchenko/marchenko.c | 2 --
1 file changed, 2 deletions(-)
diff --git a/marchenko/marchenko.c b/marchenko/marchenko.c
index 8bc284a..7622d4e 100644
--- a/marchenko/marchenko.c
+++ b/marchenko/marchenko.c
@@ -286,8 +286,6 @@ int main (int argc, char **argv)
for (j = nxs-ntap-1; j < nxs; j++)
tapersy[j] =(cos(PI*(j+1-(nxs-ntap))/ntap)+1)/2.0;
if (verbose) vmess("Taper for operator applied ntap=%d", ntap);
- for (j = 0; j < nxs; j++)
- fprintf(stderr,"taper [%d] = %f \n", j, tapersy[j]);
for (l = 0; l < Nfoc; l++) {
for (i = 0; i < nxs; i++) {
for (j = 0; j < nts; j++) {
--
GitLab