十进制数据资料转化成二进制出错

chase

program main
parameter(nx=46,ny=6160)
real pint(nx,ny)
open(1,file='d:/bcc_pint.txt')
open(2,file='d:/pint.grd',status='replace',form='unformatted')
do i=1,nx
do j=1,ny
read(1,*)pint(i,j)
enddo
enddo
do i=1,nx
do j=1,ny
write(2)pint(i,j)
enddo
enddo
close(1)
close(2)
end

行列数都没有问题，不知道是什么原因。求大神解答