| 161 |
|
static int |
| 162 |
|
rmx_load_double(RMATRIX *rm, FILE *fp) |
| 163 |
|
{ |
| 164 |
< |
int i, j; |
| 164 |
> |
int i; |
| 165 |
|
|
| 166 |
< |
for (i = 0; i < rm->nrows; i++) |
| 167 |
< |
for (j = 0; j < rm->ncols; j++) { |
| 168 |
< |
if (getbinary(&rmx_lval(rm,i,j,0), sizeof(double), rm->ncomp, fp) != rm->ncomp) |
| 169 |
< |
return(0); |
| 166 |
> |
if (&rmx_lval(rm,0,0,0) - &rmx_lval(rm,1,0,0) != |
| 167 |
> |
sizeof(double)*rm->ncols*rm->ncomp) { |
| 168 |
> |
fputs("Code error in rmx_load_double()\n", stderr); |
| 169 |
> |
exit(1); |
| 170 |
> |
} |
| 171 |
> |
for (i = 0; i < rm->nrows; i++) { |
| 172 |
> |
if (getbinary(&rmx_lval(rm,i,0,0), sizeof(double)*rm->ncomp, |
| 173 |
> |
rm->ncols, fp) != rm->ncols) |
| 174 |
> |
return(0); |
| 175 |
|
if (rm->swapin) |
| 176 |
< |
swap64((char *)&rmx_lval(rm,i,j,0), rm->ncomp); |
| 177 |
< |
} |
| 176 |
> |
swap64((char *)&rmx_lval(rm,i,0,0), rm->ncols*rm->ncomp); |
| 177 |
> |
} |
| 178 |
|
return(1); |
| 179 |
|
} |
| 180 |
|
|
