===================================================================
RCS file: /home/cvs/OpenXM/src/asir-contrib/testing/noro/mwl.rr,v
retrieving revision 1.3
retrieving revision 1.4
diff -u -p -r1.3 -r1.4
--- OpenXM/src/asir-contrib/testing/noro/mwl.rr	2009/11/12 01:39:54	1.3
+++ OpenXM/src/asir-contrib/testing/noro/mwl.rr	2009/12/07 10:13:43	1.4
@@ -87,6 +87,10 @@ def generate_coef_ideal(F)
 }
 
 def pdecomp(B,V) {
+	if ( type(IsF4=getopt(f4)) == -1 ) f4(0);
+	else f4(IsF4);
+	if ( type(IsGBCheck=getopt(gbcheck)) == -1 ) gbcheck(0);
+	else gbcheck(IsGBCheck);
 	if ( F4 ) G0 = nd_f4_trace(B,V,1,GBCheck,0);
 	else G0 = nd_gr_trace(B,V,1,GBCheck,0);
 	G=[G0];
@@ -103,6 +107,8 @@ def pdecomp(B,V) {
 }
 
 def pdecomp_ff(B,V,Mod) {
+	if ( type(IsF4=getopt(f4)) == -1 ) f4(0);
+	else f4(IsF4);
 	if ( F4 ) G0 = nd_f4(B,V,Mod,0);
 	else G0 = nd_gr(B,V,Mod,0);
 	G=[G0];