From hui@fid.morgan.com Tue Nov 2 08:10 EST 1993 Received: from gateway.morgan.com by math.uwaterloo.ca with SMTP id ; Tue, 2 Nov 93 08:10:36 -0500 Received: from ns1.fid.morgan.com ([138.20.58.11]) by gateway.morgan.com with SMTP id <41411>; Tue, 2 Nov 1993 08:10:20 -0500 Received: from tansy.Morgan.COM by ns1.fid.morgan.com (4.1/MS/FID-1.0) id AA17387; Tue, 2 Nov 93 08:10:12 EST Date: Tue, 2 Nov 1993 08:10:12 -0500 From: hui@fid.morgan.com (Roger Hui) Message-Id: <9311021310.AA17387@ns1.fid.morgan.com> To: ljdickey@watmath.uwaterloo.ca Subject: gcd Cc: christopher.browne@canrem.com, reiterc@lafcol.lafayette.edu Status: OR A correction for the gcd bug is as follows. File ve.c, function xdgcd: Current: static D xdgcd(a,b)D a,b;{D a1,b1,t; if(!a)R b; a1=a; b1=b; if(a>b){t=a; a=a1=b; b=b1=t;} while(xdrem(a1/floor(0.5+a1/a),b1)){t=a; a=xdrem(a,b); b=t;} R a; } /* D.L. Forkes 1984; E.E. McDonnell 1992 */ Correction: static D xdgcd(a,b)D a,b;{D a1,b1,t; if(!a)R b; if(a>b)R xdgcd(b,a); a1=a; b1=b; while(xdrem(a1/floor(0.5+a1/a),b1)){t=a; a=xdrem(a,b); b=t;} R a; } /* D.L. Forkes 1984; E.E. McDonnell 1992 */