subroutine closeunit(unitnum)

  implicit none

  integer unitnum

  close(unitnum)

  return
  end