Subject | Hash | Author | Date (UTC) |
---|---|---|---|
fix auction_shift for explicit zeros | 10be6a173d391689574e9e88774e90dc1c7ac1d9 | Jason Riedy | 2005-04-12 23:20:38 |
HAVE_LOGB | 38a377840fbffdbcc1f8ebab1f9775502547e4cb | Jason Riedy | 2005-04-12 23:11:13 |
add -nofor_main, fix seqauction | b24bdf1318ea24afd1b43230b372fcc776fef8f6 | Jason Riedy | 2005-04-12 23:05:54 |
Prepare for massive runs. | 5f9172fedbc636a986bd57c48cfa20bd1f1c17a7 | Jason Riedy | 2005-04-12 22:55:06 |
Update build stuff. | 64cf1bc1ea3e70fdf320fe51a95f140f57076d80 | Jason Riedy | 2005-04-12 22:28:15 |
Add bigfloat changes | 11ccd212bae7140c529c3431262b03d52c8a6309 | Jason Riedy | 2005-04-12 21:46:27 |
initial import | 2aa81858e4a8c9d6c37158f5f32eccdaa5184643 | Jason Riedy | 2005-04-12 21:45:12 |
File | Lines added | Lines deleted |
---|---|---|
Make.inc | 2 | 2 |
auction.c | 1 | 1 |
matchmtx.c | 1 | 1 |
File Make.inc changed (mode: 100644) (index 1dd03a4..b500a4f) | |||
... | ... | MPICC = CC=$(CC) mpicc | |
11 | 11 | RANLIB = ranlib | RANLIB = ranlib |
12 | 12 | ||
13 | 13 | CC = icc -Qoption,cpp,--extended_float_types | CC = icc -Qoption,cpp,--extended_float_types |
14 | CPPFLAGS = -DNOSTATS -DHAVE_LOGB | ||
15 | CFLAGS = -g -O2 -Wall "-DBIGFLOAT_T=_Quad" "-DSMUT_BIGFLOAT_T=_Quad" | ||
14 | CPPFLAGS = -DNOSTATS -DHAVE_LOGB -DHAVE_SCALB | ||
15 | CFLAGS = -g -Wall "-DBIGFLOAT_T=_Quad" "-DSMUT_BIGFLOAT_T=_Quad" | ||
16 | 16 | CFLAGS_NOOPT = -g -O0 -Wall "-DBIGFLOAT_T=_Quad" "-DSMUT_BIGFLOAT_T=_Quad" | CFLAGS_NOOPT = -g -O0 -Wall "-DBIGFLOAT_T=_Quad" "-DSMUT_BIGFLOAT_T=_Quad" |
17 | 17 | F77 = ifort -nofor_main | F77 = ifort -nofor_main |
18 | 18 | FFLAGS = -g -O2 | FFLAGS = -g -O2 |
File auction.c changed (mode: 100644) (index 5b5a5bd..0f5644c) | |||
... | ... | auction_shift (const struct spcsr_t *A, double *b_in) | |
141 | 141 | for (k = 0; k < nent; ++k) { | for (k = 0; k < nent; ++k) { |
142 | 142 | const double e = b[k]; | const double e = b[k]; |
143 | 143 | /*if (e > mx) mx = e;*/ | /*if (e > mx) mx = e;*/ |
144 | if (e < mn) mn = e; | ||
144 | if (e > -HUGE_VAL && e < mn) mn = e; | ||
145 | 145 | } | } |
146 | 146 | for (k = 0; k < nent; ++k) { | for (k = 0; k < nent; ++k) { |
147 | 147 | b[k] -= mn; | b[k] -= mn; |
File matchmtx.c changed (mode: 100644) (index 2eedf95..e41b19f) | |||
... | ... | main (int argc, char **argv) | |
94 | 94 | spcsr_lascale (&A, R, C); | spcsr_lascale (&A, R, C); |
95 | 95 | #endif | #endif |
96 | 96 | ||
97 | #if 0 | ||
97 | #if 1 | ||
98 | 98 | auction_toexpint (&A, expint); | auction_toexpint (&A, expint); |
99 | 99 | #else | #else |
100 | 100 | auction_toexp (&A, expint); | auction_toexp (&A, expint); |