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 */ |