===================================================================
RCS file: /home/cvs/OpenXM_contrib2/asir2000/engine/vect.c,v
retrieving revision 1.2
retrieving revision 1.5
diff -u -p -r1.2 -r1.5
--- OpenXM_contrib2/asir2000/engine/vect.c	2000/08/21 08:31:29	1.2
+++ OpenXM_contrib2/asir2000/engine/vect.c	2003/05/22 07:01:40	1.5
@@ -23,7 +23,7 @@
  * shall be made on your publication or presentation in any form of the
  * results obtained by use of the SOFTWARE.
  * (4) In the event that you modify the SOFTWARE, you shall notify FLL by
- * e-mail at risa-admin@flab.fujitsu.co.jp of the detailed specification
+ * e-mail at risa-admin@sec.flab.fujitsu.co.jp of the detailed specification
  * for such modification or the source code of the modified part of the
  * SOFTWARE.
  * 
@@ -45,7 +45,7 @@
  * DEVELOPER SHALL HAVE NO LIABILITY IN CONNECTION WITH THE USE,
  * PERFORMANCE OR NON-PERFORMANCE OF THE SOFTWARE.
  *
- * $OpenXM: OpenXM_contrib2/asir2000/engine/vect.c,v 1.1.1.1 1999/12/03 07:39:08 noro Exp $ 
+ * $OpenXM: OpenXM_contrib2/asir2000/engine/vect.c,v 1.4 2003/05/20 07:19:41 noro Exp $ 
 */
 #include "ca.h"
 
@@ -67,7 +67,7 @@ VECT a,b,*c;
 		len = a->len;
 		MKVECT(t,len);
 		for ( i = 0, ab = BDY(a), bb = BDY(b), tb = BDY(t); i < len; i++ )
-			addr(vl,(Obj)ab[i],(Obj)bb[i],(Obj *)&tb[i]);
+			arf_add(vl,(Obj)ab[i],(Obj)bb[i],(Obj *)&tb[i]);
 		*c = t;
 	}
 }
@@ -91,7 +91,7 @@ VECT a,b,*c;
 		MKVECT(t,len);
 		for ( i = 0, ab = BDY(a), bb = BDY(b), tb = BDY(t); 
 				i < len; i++ )
-				subr(vl,(Obj)ab[i],(Obj)bb[i],(Obj *)&tb[i]);
+				arf_sub(vl,(Obj)ab[i],(Obj)bb[i],(Obj *)&tb[i]);
 		*c = t;
 	}
 }
@@ -102,9 +102,9 @@ Obj a,b,*c;
 {
 	if ( !a || !b )
 		*c = 0;
-	else if ( OID(a) <= O_R )
+	else if ( OID(a) <= O_R || OID(a) == O_DP )
 		mulrvect(vl,a,(VECT)b,(VECT *)c);
-	else if ( OID(b) <= O_R )
+	else if ( OID(b) <= O_R || OID(b) == O_DP )
 		mulrvect(vl,b,(VECT)a,(VECT *)c);
 	else
 		notdef(vl,a,b,c);
@@ -123,7 +123,7 @@ Obj a,b,*c;
 	else if ( OID(b) > O_R )
 		notdef(vl,a,b,c);
 	else {
-		divr(vl,(Obj)ONE,b,&t); mulrvect(vl,(Obj)t,(VECT)a,(VECT *)c);
+		arf_div(vl,(Obj)ONE,b,&t); mulrvect(vl,(Obj)t,(VECT)a,(VECT *)c);
 	}
 }
 
@@ -141,7 +141,7 @@ VECT a,*b;
 		MKVECT(t,len);
 		for ( i = 0, ab = BDY(a), tb = BDY(t); 
 			i < len; i++ )
-			chsgnr((Obj)ab[i],(Obj *)&tb[i]);
+			arf_chsgn((Obj)ab[i],(Obj *)&tb[i]);
 		*b = t;
 	} 
 }
@@ -161,7 +161,7 @@ VECT b,*c;
 		len = b->len;
 		MKVECT(t,len);
 		for ( i = 0, bb = BDY(b), tb = BDY(t); i < len; i++ )
-			mulr(vl,a,(Obj)bb[i],(Obj *)&tb[i]);
+			arf_mul(vl,a,(Obj)bb[i],(Obj *)&tb[i]);
 		*c = t;
 	}
 }
@@ -180,7 +180,7 @@ VECT a,b;
 		return a->len>b->len ? 1 : -1;
 	else {
 		for ( i = 0, len = a->len; i < len; i++ )
-			if ( t = compr(vl,(Obj)BDY(a)[i],(Obj)BDY(b)[i]) )
+			if ( t = arf_comp(vl,(Obj)BDY(a)[i],(Obj)BDY(b)[i]) )
 				return t;
 		return 0;
 	}