read_matrix: read rectangular matrix
In conmolfields: Continuous molecular fields

read rectangular matrix

1	read_matrix(nrows, ncols)

`nrows`
`ncols`

##---- Should be DIRECTLY executable !! ----
##-- ==>  Define data, use random,
##--	or do  help(data=index)  for the standard data sets.

## The function is currently defined as
# read rectangular matrix
  read_matrix <- function(nrows, ncols) {
    count <- nrows * ncols
	matr <- matrix(nrow=nrows, ncol=ncols)
	values <- read_reals(count)
	ival <- 0
	for (i in 1:nrows)
	  for (j in 1:ncols) {
	    ival <- ival + 1
		matr[i,j] <- values[ival]
	  }
	matr
  }