From 8a4a693dc66688a02fcf0e859b71252b96acfcfe Mon Sep 17 00:00:00 2001
From: Jan at TU-Delft <J.W.Thorbecke@tudelft.nl>
Date: Thu, 20 Sep 2018 10:31:42 +0200
Subject: [PATCH] bug fixes with help from Boris Boullenger
---
corrvir/corrvir.c | 3 ++-
1 file changed, 2 insertions(+), 1 deletion(-)
diff --git a/corrvir/corrvir.c b/corrvir/corrvir.c
index 49db154..2ca64e0 100644
--- a/corrvir/corrvir.c
+++ b/corrvir/corrvir.c
@@ -368,7 +368,7 @@ int main (int argc, char **argv)
#pragma omp parallel default(shared) \
private(cmaster,cslaves,vtrace,r,c, t1_ivs, t3_ivs) \
- private(ivrcv, gxv, gyv, vrpeg, gelev, nsrcSlave) \
+ private(ivrcv, gxv, gyv, vrpeg, gvelev, nsrcSlave) \
private(xmin,ymin,xmax,ymax, cx1, cy1, cx2, cy2, cx3, cy3, distmc2, distsc2min, distsc2max, distsc2) \
private(nsrc, trdloc, tftloc, tcorrloc) \
private(isrcm, isrcs, sxm, sym, sxs, sys, read_trace) \
@@ -633,6 +633,7 @@ int main (int argc, char **argv)
}
} /* end of virtual receiver loop */
+ #pragma omp barrier /* to get timing when all threads are done */
#pragma omp master
{
if (verbose>=3) {
--
GitLab