| 394 |
|
} else if (transpose) /* transpose only */ |
| 395 |
|
n = (long)c*ni_columns + r; |
| 396 |
|
else /* XXX should never happen! */ |
| 397 |
< |
n = (long)r*ni_columns + c; |
| 397 |
> |
n = (long)r*no_columns + c; |
| 398 |
|
return(n); |
| 399 |
|
} |
| 400 |
|
|
| 440 |
|
if (no_rows <= 0) |
| 441 |
|
no_rows = ni_columns; |
| 442 |
|
if ((no_rows != ni_columns) | (no_columns != ni_rows)) |
| 443 |
– |
goto badspec; |
| 444 |
– |
} else { |
| 445 |
– |
if (no_columns <= 0) |
| 446 |
– |
no_columns = ni_columns; |
| 447 |
– |
if (no_rows <= 0) |
| 448 |
– |
no_rows = ni_rows; |
| 449 |
– |
if ((no_rows != ni_rows) | (no_columns != ni_columns)) |
| 443 |
|
goto badspec; |
| 444 |
|
} |
| 445 |
|
/* reorder records */ |