Changeset c512d9 in git

Timestamp:

Nov 24, 2010, 6:55:59 PM (13 years ago)

Author:

Stefan Steidel <steidel@…>

Branches:

(u'spielwiese', '0d6b7fcd9813a1ca1ed4220cfa2b104b97a0a003')

Children:

9c0b20a846fcd4420f63d7e2e4ecbe93ff3af9f4

Parents:

74a91c91d8695bf1218f00ca8619a52439734742

Message:

MP-links changed to ssi-links.

git-svn-id: file:///usr/local/Singular/svn/trunk@13669 2c84dea3-7e68-4137-9b89-c4e89433aadc

File:

• Singular/LIB/modstd.lib (modified) (6 diffs)

Singular/LIB/modstd.lib

@@ -75 +75 @@
       int n = #[1];
       if(n >= ncols(I)) { n = ncols(I); }
-      if((n > 1) && system("with","MP"))
+      if(n > 1)
       {
          for(i = 1; i <= n - 1; i++)
          {
-            link l(i) = "MPtcp:fork";
-            //link l(i) = "ssi:fork";
+            //link l(i) = "MPtcp:fork";
+            link l(i) = "ssi:fork";
             open(l(i));
 
@@ -625 +625 @@
 "USAGE:  modStd(I); I ideal
 ASSUME:  If size(#) > 0, then # contains either 1, 2 or 4 integers such that
-@*       - #[1] is the number of available processors for the computation
-                (parallelization is just applicable using 32-bit Singular
-                version since MP-links are not compatible with 64-bit Singular
-                version),
+@*       - #[1] is the number of available processors for the computation,
 @*       - #[2] is an optional parameter for the exactness of the computation,
                 if #[2] = 1, the procedure computes a standard basis for sure,
@@ -684 +681 @@
       {
          int n1 = #[1];
-         if((n1 > 1) && (1 - system("with","MP")))
-         {
-     "========================================================================";
-     "There is no MP available on your system. Since this is necessary to     ";
-     "parallelize the algorithm, the computation will be done without forking.";
-     "========================================================================";
-            n1 = 1;
-         }
          int exactness = 1;
          int n2 = 10;
@@ -699 +688 @@
       {
          int n1 = #[1];
-         if((n1 > 1) && (1 - system("with","MP")))
-         {
-     "========================================================================";
-     "There is no MP available on your system. Since this is necessary to     ";
-     "parallelize the algorithm, the computation will be done without forking.";
-     "========================================================================";
-            n1 = 1;
-         }
          int exactness = #[2];
          int n2 = 10;
@@ -714 +695 @@
       {
          int n1 = #[1];
-         if((n1 > 1) && (1 - system("with","MP")))
-         {
-     "========================================================================";
-     "There is no MP available on your system. Since this is necessary to     ";
-     "parallelize the algorithm, the computation will be done without forking.";
-     "========================================================================";
-            n1 = 1;
-         }
          int exactness = #[2];
          int n2 = #[3];
@@ -947 +920 @@
       for(i = 1; i <= n1; i++)
       {
-         link l(i) = "MPtcp:fork";
+         //link l(i) = "MPtcp:fork";
+         link l(i) = "ssi:fork";
          open(l(i));
          if((variant == 1) || (variant == 3) ||