%N scrclose %F $MIR/src/subs/scrio.c
%D Close and delete a scratch file.
%: scratch-i/o
%B
FORTRAN call sequence:
        subroutine scrclose(tno)
        integer tno

  This closes and deletes a scratch file. The scratch file cannot be
  accessed again, after it is closed.
  Input:
    tno         The handle of the scratch file.                         
