# close - close a file.
include ratdef
subroutine close (fd)
   integer fd
   include channel
   
   if (0 <= fd & fd <= MAXCHNL) {
      call flush (fd)
      call CLOSE (fd, ier)
      channel(fd) = ERR
      md(fd) = READWRITE
      }
   
   return
   end