# cant - print cant open file message and die
include ratdef
   subroutine cant(buf)
   integer buf(MAXLINE)
   
   call putlin(buf, ERROUT)
   call remark(": can't open.")
   call exit
   end