读取输出错误 不知道原因啊

jeffggg

program practice
character shuru(73,50)
integer k,l
open (10,file='H:\50136.grd')
do l=1,50
do k=1,73
  read (10,*) shuru(l,k)
enddo
enddo
close(10)
open(20,file='H:\OUTPUT.txt')
do l=1,50
do k=1,73
  write (20,*) shuru(l,k)
enddo
enddo
end
读取的数据是个GRD   50136.grd  里面是50136这个站点50年 每年73侯的数据，请问为什么运行提示   end of file during read

难道数组不是二维的吗？ 里面只有侯和年2维啊 没有经度纬度 因为只是这一个站点 求解答

夏朗的芒果

错误有可能出在读取数据格式。grd文件是二进制的吗？
如果是的话，试试改成
open (10,file='H:\50136.grd'，form='binary')
do l=1,50
do k=1,73
  read (10) shuru(l,k)
enddo
enddo
close(10)

liutaoz21

第一要二进制，第二不晓得你的CTL有木有问题

river

二进制属于无格式有数据类型的文件，read里面的那个*是用来读有格式无数据类型的文件的，比如txt之类的。照着沙发的改一下就行了

jeffggg

夏朗的芒果 发表于 2013-6-1 10:59

                               
登录/注册后可看大图

错误有可能出在读取数据格式。grd文件是二进制的吗？
如果是的话，试试改成
open (10,file='H:\50136.grd ...

谢谢芒果i 这个数出来了 但是 数出来的很奇怪 不是数字啊 数字母啊 十进制怎么是字母呢？

jeffggg

river 发表于 2013-6-1 12:12

                               
登录/注册后可看大图

二进制属于无格式有数据类型的文件，read里面的那个*是用来读有格式无数据类型的文件的，比如txt之类的。照 ...

输出来的结果很奇怪啊  4
3
3
?
?
?
L
>
g
f
f
?
  
3
3
3
?
?
?
L
>
  
  

夏朗的芒果

jeffggg 发表于 2013-6-1 12:39

                               
登录/注册后可看大图

谢谢芒果i 这个数出来了 但是 数出来的很奇怪 不是数字啊 数字母啊 十进制怎么是字母呢？

定义数组的时候出错了。
你定义的是character shuru(73,50)
读取的是字符串。自然会出问题。
改成real::shuru(73,50)

lqouc

jeffggg 发表于 2013-6-1 12:41

                               
登录/注册后可看大图

输出来的结果很奇怪啊  4
3
3

把你声明的那个变量改成real，你按照字符读取那肯定是不一样的，而且输出的txt不叫做十进制，叫做文本格式。内容可以是任何东西。还有，你编的程序实在太不规范了。

jeffggg

lqouc 发表于 2013-6-1 12:51

                               
登录/注册后可看大图

把你声明的那个变量改成real，你按照字符读取那肯定是不一样的，而且输出的txt不叫做十进制，叫做文本格式 ...

唉 编程一直是我最头疼的东西  没有这方面的天分   以后需要各位多帮忙了！再次感谢各位

jeffggg

夏朗的芒果 发表于 2013-6-1 12:47

                               
登录/注册后可看大图

定义数组的时候出错了。
你定义的是character shuru(73,50)
读取的是字符串。自然会出问题。

多i谢芒果！！我要号召论坛里的人回答问题向你学习  字体加红 很清晰明了！！！唉 编程一直是我最头疼的东西  没有这方面的天分   以后需要各位多帮忙了！再次感谢各位