!-----------------------------
Program TESTT
character*10 T
open(1,file='test.dat')
a =1.234
T='1209810='

read(1,*)T,a 
write(*,*) T,a
close(1)

open(1,file='test.dat',form='unformatted')
read(1)i
write(*,*) ' read ----'
Do i=1,1024
  read(1)j,j1
  write(*,*) j,j1
endDo











end Program TESTT