| 259 |
|
} |
| 260 |
|
if (nrows <= 0) { /* don't know length? */ |
| 261 |
|
int guessrows = 147; /* usually big enough */ |
| 262 |
< |
if ((dtype != DTascii) & (fp != stdin) & (inspec[0] != '!')) { |
| 262 |
> |
if (cm_elem_size[dtype] && (fp != stdin) & (inspec[0] != '!')) { |
| 263 |
|
long startpos = ftell(fp); |
| 264 |
|
if (fseek(fp, 0L, SEEK_END) == 0) { |
| 265 |
+ |
long rowsiz = (long)ncols*cm_elem_size[dtype]; |
| 266 |
|
long endpos = ftell(fp); |
| 266 |
– |
long elemsiz = 3*(dtype==DTfloat ? |
| 267 |
– |
sizeof(float) : sizeof(double)); |
| 267 |
|
|
| 268 |
< |
if ((endpos - startpos) % (ncols*elemsiz)) { |
| 268 |
> |
if ((endpos - startpos) % rowsiz) { |
| 269 |
|
sprintf(errmsg, |
| 270 |
|
"improper length for binary file '%s'", |
| 271 |
|
inspec); |
| 272 |
|
error(USER, errmsg); |
| 273 |
|
} |
| 274 |
< |
guessrows = (endpos - startpos)/(ncols*elemsiz); |
| 274 |
> |
guessrows = (endpos - startpos)/rowsiz; |
| 275 |
|
if (fseek(fp, startpos, SEEK_SET) < 0) { |
| 276 |
|
sprintf(errmsg, |
| 277 |
|
"fseek() error on file '%s'", |