同一份数据，输出grd和txt不一样？

dzxconan

好奇怪啊~怎么grd输出的跟txt输出的用同一个程序读 数据大小差别好大呢？？

program t
parameter(n=160,m=55,tt=12)
integer it(n,m,tt),ave(n,m)
CHARACTER aa*5,mon(tt)*2
data mon/'01','02','03','04','05','06','07','08','09','10','11','12'/
data aa/'t1601'/
do k=1,tt
aa(4:5)=mon(k)
open(11,file=aa)
read(11,*)((it(i,j,k),i=1,n),j=1,m)
close(11)
enddo
do i=1,n
do j=1,m
do k=6,8
ave(i,j)=ave(i,j)+it(i,j,k)/3
enddo
enddo
enddo
open(12,file='d:\160\ts.grd',form='binary')
write(12)((ave(i,j),i=1,n),j=1,m)
  open(13,file='d:\160\ts.txt')
write(13,*)((ave(i,j),i=1,n),j=1,m)
end

kongfeng0824

你的意思是grd大一些，txt小一些吗？

river

你弄个帖子提问好歹把帖子名字写的差不多啊,这叫什么题目啊。进来一看，自己什么问都说不清楚，和题目写的一个意思······
下回我肯德基，人家问我点什么，我就说肯德基，看看人家能不能明白我想要的

dzxconan

kongfeng0824 发表于 2013-4-19 22:03

                               
登录/注册后可看大图

你的意思是grd大一些，txt小一些吗？

grd 都是xxxxxE-34左右
txt却是几十是真实的

dzxconan

river 发表于 2013-4-19 22:29

                               
登录/注册后可看大图

你弄个帖子提问好歹把帖子名字写的差不多啊,这叫什么题目啊。进来一看，自己什么问都说不清楚，和题目写的一 ...

           
我就是把上面程序运行以后，然后发现用下面分别读grd和txt,print后的大小差别特别大 好奇怪呢
parameter (n=160,m=55)
      real ts(n,m)
        open(1,file='ts.txt')
        read(1,*)((ts(i,j),i=1,n),j=1,m)
        print*,ts
        close(1)

river

dzxconan 发表于 2013-4-19 22:47

                               
登录/注册后可看大图

我就是把上面程序运行以后，然后发现用下面分别读grd和txt,print后的大小差别特别大 好 ...

不可能吧，同时写进去，再读出来放在屏幕上是一样的值才对啊。

易小凯

dzxconan 发表于 2013-4-19 22:47

                               
登录/注册后可看大图

我就是把上面程序运行以后，然后发现用下面分别读grd和txt,print后的大小差别特别大 好 ...

你grd文件是怎么读的呢？

dzxconan

易小凯 发表于 2013-4-19 23:07

                               
登录/注册后可看大图

你grd文件是怎么读的呢？

parameter (n=160,m=55)
      real ts(n,m)
        open(1,file='ts.grd',form='binary')
        read(1,*)((ts(i,j),i=1,n),j=1,m)
        print*,ts
        close(1)

dzxconan

river 发表于 2013-4-19 23:00

                               
登录/注册后可看大图

不可能吧，同时写进去，再读出来放在屏幕上是一样的值才对啊。

是的啊 我就是换个文件读的

river

dzxconan 发表于 2013-4-20 11:59

                               
登录/注册后可看大图

是的啊 我就是换个文件读的

换个文件是什么意思，难道不是上面那个程序生成的那个二进制文件？