subroutine grid_open (record)
implicit double precision (a-h,o-z)
Set record as the currently active grid. The grid must already exist.
If record is zero or negative, attempt to access the most recently
used grid, and return record. If failure, record is returned
as -1.