program read_whole_line
  implicit none
  integer,parameter :: max_line_len = 4000
  character(max_line_len) linebuf
  open(99, file='mydata.dat', recl=max_line_len )
  read (99,'(a)') linebuf
  close(99)
  print *, trim(linebuf)
end