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

  This writes real data to the scratch file.
  Input:
    tno         The handle of the scratch file.
    offset      The offset (measured in reals) into the scratch file
                to write. The first real has offset 0.
    length      The number of reals to write.
    buf         The data to write.                                      
