Blob Blame History Raw
diff -u ga-5.7.2/global/testing/elempatch.c.org  ga-5.7.1/global/testing/elempatch.c
--- ga-5.7.2/global/testing/elempatch.c.org	2020-02-17 12:56:51.811130391 -0800
+++ ga-5.7.2/global/testing/elempatch.c	2020-02-17 14:39:55.394616825 -0800
@@ -154,8 +154,8 @@
 #define OP_ABS 4
 #define OP_ADD_CONST 5
 #define OP_RECIP 6
-#define OP_STEP_MAX 7
-#define OP_STEP_BOUND_INFO 8
+/*#define OP_STEP_MAX 7 */
+/*#define OP_STEP_BOUND_INFO 8*/
 #define MY_TYPE 2002
 
 Integer _ga_lo[MAXDIM], _ga_hi[MAXDIM], _ga_work[MAXDIM];
@@ -1166,6 +1166,7 @@
       }
       NGA_Fill_patch (g_n, lo, hi, vresult);
     }
+#if 0    
     break;
     case OP_STEP_MAX:
     if (me == 0)
@@ -1189,7 +1190,6 @@
       aresultl = ((long)(GA_ABS(lval2)/GA_ABS(lval))) - resultl;
     }
     break;
-
     case OP_STEP_BOUND_INFO:
     if (me == 0)
       printf ("Testing GA_Step_bound_info...");
@@ -1234,6 +1234,7 @@
           GA_Error ("GA_step_bound_info wrong data type.", type);
       }
     }
+#endif    
     break;
     default:
     GA_Error ("test_function: wrong operation.", OP);
@@ -1443,6 +1444,7 @@
     if (type == C_DCPL || type == C_SCPL) {
       result = 0;
     } else {
+#if 0      
       if (OP == OP_STEP_MAX) {
         /* Step_max */
         switch (type) 
@@ -1555,6 +1557,7 @@
         }
         result = result | result2 | result3;
       }
+#endif      
     }
   }
   if (me == 0)
@@ -1620,7 +1623,7 @@
 
 
   /* op = 8;*/
-  for (op = 0; op < 9; op++)
+  for (op = 0; op < 7; op++)
   {
     /*for (d = 1; d < 2; d++)*/
     for (d = 1; d < 4; d++)