Go to the source code of this file.
|
subroutine | rectblk (nrows, ncols, marked, unmrkd, colstr, rowidx, colset, rowset, prevcl, tryrow, colmrk, rowmrk, nhrows, nhcols) |
|
subroutine rectblk |
( |
integer |
nrows, |
|
|
integer |
ncols, |
|
|
integer |
marked, |
|
|
integer |
unmrkd, |
|
|
integer, dimension (nrows+1) |
colstr, |
|
|
integer, dimension (*) |
rowidx, |
|
|
integer, dimension (ncols) |
colset, |
|
|
integer, dimension (nrows) |
rowset, |
|
|
integer, dimension (ncols) |
prevcl, |
|
|
integer, dimension (ncols) |
tryrow, |
|
|
integer, dimension (ncols) |
colmrk, |
|
|
integer, dimension (nrows) |
rowmrk, |
|
|
integer |
nhrows, |
|
|
integer |
nhcols |
|
) |
| |