parameter(mx=67,ny=69)
      dimension r(mx,ny)
      character*99 kfile
      open(1,file='readtest.par')
          read(1,'(a)')kfile
      close(1)
      open(1,file=kfile,status='old',form='formatted')
           read(1,'(10f8.2)')((r(i,j),i=1,mx),j=1,ny)
      close(1)
      write(*,*)r
      stop
      end