From 7f371c00021a94c0a963c9d6ab591bd996bf4c08 Mon Sep 17 00:00:00 2001
From: Oliver Sander <sander@igpm.rwth-aachen.de>
Date: Sat, 22 Jan 2011 12:34:40 +0000
Subject: [PATCH] support for parallel computations

[[Imported from SVN: r6820]]
---
 dirneu_testsuite/testsuite.sh | 19 +++++++++++++++----
 1 file changed, 15 insertions(+), 4 deletions(-)

diff --git a/dirneu_testsuite/testsuite.sh b/dirneu_testsuite/testsuite.sh
index 9e5ddc2e..a5fc4b22 100755
--- a/dirneu_testsuite/testsuite.sh
+++ b/dirneu_testsuite/testsuite.sh
@@ -116,7 +116,7 @@ instrumented = 0
 ## Dirichlet values
 #dirichletValue = 0.125 0.125 2.5
 
-#dirichletAxisX = 0 0 1
+#dirichletAxis = 0 0 1
 #dirichletAngle = 0
 
 
@@ -133,12 +133,14 @@ instrumented = 0
 #rodA = 1
 
 # Geometric moments (here: square of edge length one)
-#rod J1 = 0.0833333
-#rod J2 = 0.0833333
+#rodJ1 = 0.0833333
+#rodJ2 = 0.0833333
 
 # Material parameters
 #rodE  = 2.5e5
 #rodNu = 0.3
+#E     = 1e6
+#nu    = 0.3
 
 ## Dirichlet values
 #dirichletValue = 0.5 1.5 10
@@ -194,6 +196,7 @@ EOF
 
 # run problems
 
+MAXPROCS=4
 
 for level in 2; do
 #for level in 1 2 3 4; do
@@ -205,14 +208,22 @@ for level in 2; do
     fi
 
     for damping in 0.6; do
+#    for damping in 0.1 0.6 0.9; do
 #    for damping in 0.1 0.2 0.3 0.4 0.5 0.6 0.7 0.8 0.9 1.0 1.1 1.2 1.3; do
 
         echo "Computing on "${level}" levels with damping factor "${damping}
-        runComputation $LEVELDIR $level $damping
+        runComputation $LEVELDIR $level $damping &
 
         # Append convergence rate of this run to overall list for this level
         #cat convrate >> ${LEVELDIR}/convrates
 
+        # Never have more than MAXPROCS processes
+        NPROC=$(($NPROC+1))  
+        if [ "$NPROC" -ge "$MAXPROCS" ]; then  
+          wait  
+          NPROC=0  
+        fi  
+
     done
 
 done
\ No newline at end of file
-- 
GitLab