--- progs/taucs_blas_underscore_test.c.orig 2003-09-04 02:28:41.000000000 -0500 +++ progs/taucs_blas_underscore_test.c 2018-11-24 20:21:55.000000000 -0600 @@ -26,7 +26,7 @@ dgemm_("N","N", &n,&n,&n, &alpha, &A,&ld, &B,&ld, &beta, &C,&ld); printf("\n\n"); - printf("Linking with dgemm_ succedded\n"); + printf("Linking with dgemm_ succeeded\n"); printf("\n\n"); if (C == 97.0) { --- progs/test_linsolve.c.orig 2003-08-29 07:38:53.000000000 -0500 +++ progs/test_linsolve.c 2018-11-24 20:23:07.000000000 -0600 @@ -81,7 +81,7 @@ rc = taucs_linsolve(A,NULL,1, y,b,colamd,opt_arg); if (rc == TAUCS_SUCCESS) return TAUCS_ERROR; - printf("TESING SYMMETRIC ORDERINGS SUCCEDDED\n"); + printf("TESING SYMMETRIC ORDERINGS SUCCEEDED\n"); return TAUCS_SUCCESS; } @@ -116,7 +116,7 @@ rc = taucs_linsolve(A,NULL,1, y,b,llmd,opt_arg); if (rc == TAUCS_SUCCESS) return TAUCS_ERROR; - printf("TESING SPD FACTORIZATIONS SUCCEDDED\n"); + printf("TESING SPD FACTORIZATIONS SUCCEEDED\n"); return TAUCS_SUCCESS; } @@ -176,7 +176,7 @@ rc = taucs_linsolve(NULL,&F,0, NULL,NULL,factor,opt_arg); if (rc != TAUCS_SUCCESS) return rc; - printf("TESING SPD FACTORSOLVE SUCCEDDED\n"); + printf("TESING SPD FACTORSOLVE SUCCEEDED\n"); return TAUCS_SUCCESS; } --- src/taucs_timer.c.orig 2003-09-01 05:28:54.000000000 -0500 +++ src/taucs_timer.c 2018-11-24 20:35:43.000000000 -0600 @@ -245,36 +245,35 @@ #include #include #include -#include double taucs_wtime() { - struct timeb T; + struct timeval T; /*static int first_time = 1;*/ /* static time_t start_time, time_diff; - static time_t start_mill, mill_diff; + static time_t start_micro, micro_diff; */ static time_t time_diff; - static time_t mill_diff; + static time_t micro_diff; /*int rc;*/ double dt; - (void) ftime( &T ); + (void) gettimeofday( &T,NULL ); /* if (first_time) { first_time = 0; - start_time = T.time; - start_mill = T.millitm; + start_time = T.tv_sec; + start_micro = T.tv_usec; } - time_diff = T.time - start_time; - mill_diff = T.millitm - start_mill; + time_diff = T.tv_sec - start_time; + micro_diff = T.tv_usec - start_micro; */ - time_diff = T.time; - mill_diff = T.millitm; + time_diff = T.tv_sec; + micro_diff = T.tv_usec; - dt = ((double) time_diff) + (1e-3) * ((double) mill_diff); + dt = ((double) time_diff) + (1e-6) * ((double) micro_diff); return dt; }