%N scrread %F $MIR/src/subs/scrio.c
%D Read real data from a scratch file.
%: scratch-i/o
%B
FORTRAN call sequence:
        subroutine scrread(tno,buf,offset,length)
        integer tno,offset,length
        real buf(length)

  This reads real data from the scratch file.
  Input:
    tno         The handle of the scratch file.
    offset      The offset (measured in reals) into the scratch file
                to read. The first real has offset 0.
    length      The number of reals to read.
  Output:
    buf         The returned data.                                      
