Changeset 986 for trunk/optimizer/src/pgapack/pgapack/source/parallel.c

Timestamp:

Apr 2, 2008, 2:32:58 PM (16 years ago)

Author:

gah

Message:

added global pgapack_abort flag to plugin and abort operation to optimizer

File:

• trunk/optimizer/src/pgapack/pgapack/source/parallel.c (modified) (4 diffs)

trunk/optimizer/src/pgapack/pgapack/source/parallel.c

@@ -69 +69 @@
 
 #include "pgapack.h"
+#include <setjmp.h>
+
+extern jmp_buf pgapack_jmpbuf;
+extern int *pgapack_abortPtr;
 
 #define DEBUG_EVAL 0
@@ -111 +115 @@
 
     PGAEvaluate(ctx, PGA_OLDPOP, f, comm);
+        
     if (rank == 0)
         PGAFitness(ctx, PGA_OLDPOP);
@@ -192 +197 @@
                 PGASetEvaluation (ctx, p-1, pop, e);
             }
-    } else {
-        for (p=0; p<ctx->ga.PopSize; p++) 
+    } else { 
+        for (p=0; p<ctx->ga.PopSize; p++) {
+            if ((pgapack_abortPtr != NULL) && (*pgapack_abortPtr == 1)) {
+                longjmp(pgapack_jmpbuf, 1);
+            }
             if (!PGAGetEvaluationUpToDateFlag(ctx, p, pop)) {
                 e = (*f)(ctx, p, pop);
                 PGASetEvaluation(ctx, p, pop, e);
-            }
+            } 
+        }
     }
     PGADebugExited("PGAEvaluateSeq");
@@ -485 +494 @@
         PGAEvaluateSlave(ctx, pop, f, comm);
     }
-
     PGADebugExited("PGAEvaluate");
 }