[cig-commits] [commit] devel: fixed three warnings in scotch_6.0.1rc2 (9bef9d2)
cig_noreply at geodynamics.org
cig_noreply at geodynamics.org
Fri Mar 7 03:04:35 PST 2014
Repository : ssh://geoshell/specfem3d
On branch : devel
Link : https://github.com/geodynamics/specfem3d/compare/fa99f77f37e1915ce43297ceecab198e7b1d7b65...6bc492cb02db42ff74c01612d6592589d23fec9e
>---------------------------------------------------------------
commit 9bef9d2155667887baa318bef56a9519c60f0df8
Author: Dimitri Komatitsch <komatitsch at lma.cnrs-mrs.fr>
Date: Fri Mar 7 05:16:30 2014 +0100
fixed three warnings in scotch_6.0.1rc2
>---------------------------------------------------------------
9bef9d2155667887baa318bef56a9519c60f0df8
.../scotch_6.0.1rc2/src/libscotch/bgraph_bipart_df_loop.c | 2 ++
.../scotch_6.0.1rc2/src/libscotch/kgraph_map_df_loop.c | 10 +++++++---
2 files changed, 9 insertions(+), 3 deletions(-)
diff --git a/src/decompose_mesh/scotch_6.0.1rc2/src/libscotch/bgraph_bipart_df_loop.c b/src/decompose_mesh/scotch_6.0.1rc2/src/libscotch/bgraph_bipart_df_loop.c
index 61b4322..4f20d52 100644
--- a/src/decompose_mesh/scotch_6.0.1rc2/src/libscotch/bgraph_bipart_df_loop.c
+++ b/src/decompose_mesh/scotch_6.0.1rc2/src/libscotch/bgraph_bipart_df_loop.c
@@ -314,7 +314,9 @@ BgraphBipartDfThread * restrict thrdptr) /* Thread-dependent data */
}
#endif /* BGRAPHBIPARTDFLOOPTHREAD */
}
+#if !defined BGRAPHBIPARTDFLOOPTHREAD
abort : ;
+#endif /* BGRAPHBIPARTDFLOOPTHREAD */
for (vertnum = vertbas; vertnum < vertnnd; vertnum ++) /* Update part according to diffusion state */
parttax[vertnum] = (difotax[vertnum] <= 0.0F) ? 0 : 1;
diff --git a/src/decompose_mesh/scotch_6.0.1rc2/src/libscotch/kgraph_map_df_loop.c b/src/decompose_mesh/scotch_6.0.1rc2/src/libscotch/kgraph_map_df_loop.c
index 0149746..24382ac 100644
--- a/src/decompose_mesh/scotch_6.0.1rc2/src/libscotch/kgraph_map_df_loop.c
+++ b/src/decompose_mesh/scotch_6.0.1rc2/src/libscotch/kgraph_map_df_loop.c
@@ -382,7 +382,7 @@ endloop1 : ;
else
diffval -= migrval;
diffval = diffval / (velstax[vertnum] * crloval);
- if (isnan (diffval)) { /* If overflow occured */
+ if (isnan (diffval)) { /* If overflow occurred */
#ifdef SCOTCH_DEBUG_KGRAPH2
errorPrintW (STRINGIFY (KGRAPHMAPDFLOOPNAME) ": overflow (1)");
#endif /* SCOTCH_DEBUG_KGRAPH2 */
@@ -476,7 +476,7 @@ endloop2 : ;
if (diffval <= 0.0F) /* Amount of liquid cannot be negative */
diffval = 0.0F;
- if (isnan (diffval)) { /* If overflow occured */
+ if (isnan (diffval)) { /* If overflow occurred */
#ifdef SCOTCH_DEBUG_KGRAPH2
errorPrintW (STRINGIFY (KGRAPHMAPDFLOOPNAME) ": overflow (2)");
#endif /* SCOTCH_DEBUG_KGRAPH2 */
@@ -495,7 +495,9 @@ endloop2 : ;
difttax = (KgraphMapDfVertex *) difntax; /* Swap old and new diffusion arrays */
difntax = (KgraphMapDfVertex *) difotax; /* Casts to prevent IBM compiler from yelling */
difotax = (KgraphMapDfVertex *) difttax;
-abort1 : ; /* If overflow occured, resume here */
+#ifdef KGRAPHMAPDFLOOPTHREAD
+abort1 : ; /* If overflow occurred, resume here */
+#endif
#ifdef KGRAPHMAPDFLOOPTHREAD
threadBarrier (thrdptr);
@@ -503,7 +505,9 @@ abort1 : ; /* If overflow occured, resume
break;
#endif /* KGRAPHMAPDFLOOPTHREAD */
}
+#if !defined KGRAPHMAPDFLOOPTHREAD
abort2 : ;
+#endif
for (vertnum = vertbas; vertnum < vertnnd; vertnum ++) /* Set new part distribution of local vertices */
parttax[vertnum] = difntax[vertnum].partval;
More information about the CIG-COMMITS
mailing list