=================================================================== RCS file: /home/cvs/OpenXM_contrib2/asir2000/engine/vect.c,v retrieving revision 1.2 retrieving revision 1.4 diff -u -p -r1.2 -r1.4 --- OpenXM_contrib2/asir2000/engine/vect.c 2000/08/21 08:31:29 1.2 +++ OpenXM_contrib2/asir2000/engine/vect.c 2003/05/20 07:19:41 1.4 @@ -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.3 2000/08/22 05:04:07 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; } } @@ -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; }