From c5353a9a9fd01a416f5bdab2ab904f693dfab797 Mon Sep 17 00:00:00 2001
From: bremner <bremner@09fa754a-f411-0410-976a-da6bfa213b30>
Date: Thu, 1 Jun 2006 16:12:57 +0000
Subject: fixed stupid bug

git-svn-id: file:///export/data/bremner/svn/trunk/inetools@5356 09fa754a-f411-0410-976a-da6bfa213b30
---
 rat2canon.c | 10 +++++++++-
 1 file changed, 9 insertions(+), 1 deletion(-)

diff --git a/rat2canon.c b/rat2canon.c
index 88b72b3..872a286 100644
--- a/rat2canon.c
+++ b/rat2canon.c
@@ -128,10 +128,18 @@ int main(argc,argv)
 
 	  if (looking==1 && !zero(num)){
 	    copy(num0,num);
+
+	    if (negative(num)) {
+	      changesign(num0);
+	      itomp(-1,An[i][j]);
+	    } else {
+	      itomp(1,An[i][j]);
+	    }
+
 	    copy(den0,den);
-	    itomp(1,An[i][j]);
 	    itomp(1,Ad[i][j]);
 
+
 	    looking=0;
 	  } else {
 
-- 
cgit v1.2.3