subroutine ftncls(n) close(n) end