===================================================================
RCS file: /home/cvs/OpenXM_contrib2/asir2000/engine/init.c,v
retrieving revision 1.12
retrieving revision 1.15
diff -u -p -r1.12 -r1.15
--- OpenXM_contrib2/asir2000/engine/init.c	2001/09/03 07:01:06	1.12
+++ OpenXM_contrib2/asir2000/engine/init.c	2002/01/04 17:08:22	1.15
@@ -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/init.c,v 1.11 2001/06/07 04:54:40 noro Exp $ 
+ * $OpenXM: OpenXM_contrib2/asir2000/engine/init.c,v 1.14 2002/01/04 17:01:39 saito Exp $ 
 */
 #include "ca.h"
 #include "version.h"
@@ -83,6 +83,7 @@ USINT VOIDobj = &oVOID;
 int bigfloat;
 int nez = 1;
 int current_mod = 0;
+int Strassensize = 4;
 
 static int *lprime;
 int lprime_size;
@@ -109,7 +110,7 @@ int paristack = 1<<16;
 #if defined(INTERVAL)
 int zerorewrite = 0;
 void (*addnumt[])() = { addq, addreal, addalg, ADDBF, additvp, additvd, 0, additvf, addcplx, addmi, addlm, addgf2n, addgfpn, addgfs, addgfsn };
-void (*subnumt[])() = { subq, subreal, subalg, SUBBF, subitvp, subitvd, 0, subitvf, subcplx, submi, sublm, subgf2n, subgfpn, subgfs, subfspn };
+void (*subnumt[])() = { subq, subreal, subalg, SUBBF, subitvp, subitvd, 0, subitvf, subcplx, submi, sublm, subgf2n, subgfpn, subgfs, subgfsn };
 void (*mulnumt[])() = { mulq, mulreal, mulalg, MULBF, mulitvp, mulitvd, 0, mulitvf, mulcplx, mulmi, mullm, mulgf2n, mulgfpn, mulgfs, mulgfsn };
 void (*divnumt[])() = { divq, divreal, divalg, DIVBF, divitvp, divitvd, 0, divitvf, divcplx, divmi, divlm, divgf2n, divgfpn, divgfs, divgfsn };
 void (*pwrnumt[])() = { pwrq, pwrreal, pwralg, PWRBF, pwritvp, pwritvd, 0, pwritvf, pwrcplx, pwrmi, pwrlm, pwrgf2n, pwrgfpn, pwrgfs, pwrgfsn };
@@ -191,34 +192,28 @@ extern double gctime;
 double suspend_start;
 double suspended_time=0;
 
-void get_eg(p)
-struct oEGT *p;
+void get_eg(struct oEGT *p)
 {
 	p->exectime = get_clock() - gctime - suspended_time; p->gctime = gctime;
 }
 
-void init_eg(eg)
-struct oEGT *eg;
+void init_eg(struct oEGT *eg)
 {
 	bzero((char *)eg,sizeof(struct oEGT));
 }
 
-void add_eg(base,start,end)
-struct oEGT *base,*start,*end;
+void add_eg(struct oEGT *base,struct oEGT *start,struct oEGT *end)
 {
 	base->exectime += end->exectime - start->exectime;
 	base->gctime += end->gctime - start->gctime;
 }
 
-void print_eg(item,eg)
-char *item;
-struct oEGT *eg;
+void print_eg(char *item,struct oEGT *eg)
 {
 	printf("%s=(%.4g,%.4g)",item,eg->exectime,eg->gctime);
 }
 
-void print_split_eg(start,end)
-struct oEGT *start,*end;
+void print_split_eg(struct oEGT *start,struct oEGT *end)
 {
 	struct oEGT base;
 
@@ -226,8 +221,7 @@ struct oEGT *start,*end;
 	printf("(%.4g,%.4g)",base.exectime,base.gctime);
 }
 
-void print_split_e(start,end)
-struct oEGT *start,*end;
+void print_split_e(struct oEGT *start,struct oEGT *end)
 {
 	struct oEGT base;
 
@@ -303,8 +297,7 @@ int get_lprime(index)
 	return lprime[index];
 }
 
-void create_new_lprimes(index)
-int index;
+void create_new_lprimes(int index)
 {
 	int count,p,i,j,d;