请问用fortran如何读取micaps第四类数据

zytcerulean · 发表于 2015-10-15 15:16:09

登录后查看更多精彩内容~

您需要登录才可以下载或查看，没有帐号？立即注册

x

integer,parameter::lon=330,lat=502
integer i,j
real::tp(lon,lat)
open(1,file='E:\grapes\15101120.003')

read(*,*)
read(*,*)

do i=1,lon
do j=1,lat
read(1,*) tp(i,j)
enddo
enddo
print*, tp(1,1)

运行后程序并不报错，但是什么结果都没有。。。

不知道哪里错了

zytcerulean · 发表于 2015-10-15 15:24:55

lqouc · 发表于 2015-10-15 16:11:20

没有结果是指没print出来东西？

zytcerulean · 发表于 2015-10-15 19:40:30

lqouc 发表于 2015-10-15 16:11
没有结果是指没print出来东西？

是啊就是什么都没显示也没有press any key to continue这句话。。。

lqouc · 发表于 2015-10-15 19:43:40

zytcerulean 发表于 2015-10-15 19:40
是啊就是什么都没显示也没有press any key to continue这句话。。。

命令窗呢？闪退了还是就一直在那里？
可以在read前print一下i和j，看看循环转的怎么样

船头尺 · 发表于 2017-4-7 17:08:09

你的头文件应该是三行或者是四行吧，你读取了两行，是不是这里错了？

Lemon_Mo · 发表于 2017-4-8 10:20:00

辛苦啦，感谢楼主分享~

19921219 · 发表于 2018-8-30 16:00:46

楼主解决了嘛？
我也遇到一样的问题

		自动登录	找回密码
密码			立即注册

[求助] 请问用fortran如何读取micaps第四类数据

登录后查看更多精彩内容~