===================================================================
RCS file: /home/cvs/OpenXM_contrib2/asir2000/engine/alg.c,v
retrieving revision 1.3
retrieving revision 1.4
diff -u -p -r1.3 -r1.4
--- OpenXM_contrib2/asir2000/engine/alg.c	2000/08/22 05:04:05	1.3
+++ OpenXM_contrib2/asir2000/engine/alg.c	2018/03/29 01:32:51	1.4
@@ -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/alg.c,v 1.2 2000/08/21 08:31:27 noro Exp $ 
+ * $OpenXM: OpenXM_contrib2/asir2000/engine/alg.c,v 1.3 2000/08/22 05:04:05 noro Exp $ 
 */
 #include "ca.h"
 #include "base.h"
@@ -57,71 +57,71 @@ Obj ToAlg();
 Obj ToAlg(a)
 Num a;
 {
-	Obj t;
+  Obj t;
 
-	if ( !a || (NID(a) != N_A) )
-		t = (Obj)a;
-	else
-		t = BDY((Alg)a);
-	return t;
+  if ( !a || (NID(a) != N_A) )
+    t = (Obj)a;
+  else
+    t = BDY((Alg)a);
+  return t;
 }
 
 void addalg(a,b,c)
 Num a,b,*c;
 {
-	Obj t;
-	Alg r;
+  Obj t;
+  Alg r;
 
-	addr(ALG,ToAlg(a),ToAlg(b),&t); MKAlg(t,r); *c = (Num)r;
+  addr(ALG,ToAlg(a),ToAlg(b),&t); MKAlg(t,r); *c = (Num)r;
 }
 
 void subalg(a,b,c)
 Num a,b,*c;
 {
-	Obj t;
-	Alg r;
+  Obj t;
+  Alg r;
 
-	subr(ALG,ToAlg(a),ToAlg(b),&t); MKAlg(t,r); *c = (Num)r;
+  subr(ALG,ToAlg(a),ToAlg(b),&t); MKAlg(t,r); *c = (Num)r;
 }
 
 void mulalg(a,b,c)
 Num a,b,*c;
 {
-	Obj t;
-	Alg r;
+  Obj t;
+  Alg r;
 
-	mulr(ALG,ToAlg(a),ToAlg(b),&t); MKAlg(t,r); *c = (Num)r;
+  mulr(ALG,ToAlg(a),ToAlg(b),&t); MKAlg(t,r); *c = (Num)r;
 }
 
 void divalg(a,b,c)
 Num a,b,*c;
 {
-	Obj t;
-	Alg r;
+  Obj t;
+  Alg r;
 
-	divr(ALG,ToAlg(a),ToAlg(b),&t); MKAlg(t,r); *c = (Num)r;
+  divr(ALG,ToAlg(a),ToAlg(b),&t); MKAlg(t,r); *c = (Num)r;
 }
 
 void chsgnalg(a,c)
 Num a,*c;
 {
-	Obj t;
-	Alg r;
+  Obj t;
+  Alg r;
 
-	chsgnr(ToAlg(a),&t); MKAlg(t,r); *c = (Num)r;
+  chsgnr(ToAlg(a),&t); MKAlg(t,r); *c = (Num)r;
 }
 
 void pwralg(a,b,c)
 Num a,b,*c;
 {
-	Obj t;
-	Alg r;
+  Obj t;
+  Alg r;
 
-	pwrr(ALG,ToAlg(a),(Obj)b,&t); MKAlg(t,r); *c = (Num)r;
+  pwrr(ALG,ToAlg(a),(Obj)b,&t); MKAlg(t,r); *c = (Num)r;
 }
 
 int cmpalg(a,b)
 Num a,b;
 {
-	return compr(ALG,ToAlg(a),ToAlg(b));
+  return compr(ALG,ToAlg(a),ToAlg(b));
 }