fortran不能运行 弹出奇怪的东西 求大神指教是不是fortran'出问题了

00佳儿00

编写了一个小程序，我自己也不知道是否正确，正在调试，但是Fortran总是弹出奇怪的东西不能正常的运行
程序如下：
program main
implicit none
!48个时次
INTEGER t,i,j,i2
real a(99,999,999),b(999,999)
character*86 name(48)
!读文件名称,第一个大循环，时间t循环
OPEN (30,FILE='D:\xiangmu\filelist1.txt')
do t=1,48
read(30,*)name(t)
!打开数据文件
open(33,file=name(t))
print*,name(t)
!读前面台站信息，无用
read(33,*)
read(33,*)
read(33,*)
read(33,*)
!读mode first数据，一共30行，i表示行,也是高度，j表示列，也是变量      
do i=1,30
read(33,*)(a(t,i,j),j=1,7)
end do
!后面两种模式的数据不要
do i2=1,96
read(33,*)
end do
!赋值，只要第四列垂直速度
b(t,i)=a(t,i,4)
!第一个循环，时间循环结束
end do
close(30)
print*,b(t,i)
open(66,file='D:\shuju\54597\201508\20150801\hobsQ\w.txt')
write(66,'(48f7.2)')((b(t,i),i=1,30),t=1,48)
close(66)
end
!********************

点了开始执行之后弹出
而且调试过程会触发断点，输出里面是这样显示的，还有调用堆栈（小妹不知道这是什么）是这样显示 有时候还会蹦出来一个.c后缀的东西 如图
求大家指导，我的Fortran出了什么问题
对了 小妹怀疑是fortran问题之后编了一个a+b=c的小程序测试，发现每次输出的值都不一样

lqouc

1.强烈怀疑这一段就是化蛇填足，请先弄清楚数据的排列方式。难道后面两种模式每个都是48行？和前一种模式的30行不一样，反而和时间的长度一致？
“!后面两种模式的数据不要
do i2=1,96
read(33,*)
end do”
2.赋值过程不对
“!赋值，只要第四列垂直速度 b(t,i)=a(t,i,4)” 改为 b(t,:)=a(t,:,4)”
3.最后输出根本没看明白打算怎么排数据
“write(66,'(48f7.2)')((b(t,i),i=1,30),t=1,48)”可以改为
do t = 1 , 48
write(66,'(30f7.2)') (b(t,1:30)
end do

至于最后说的fortran计算a+b=c出错，请给出依据。

南国的佳人

请是用visual C++写的Fortran 吗？

00佳儿00

南国的佳人 发表于 2016-4-10 23:55
请是用visual C++写的Fortran 吗？

是IVF的 不是C++

00佳儿00

南国的佳人 发表于 2016-4-10 23:55
请是用visual C++写的Fortran 吗？

是IVF的 不是C++

00佳儿00

lqouc 发表于 2016-4-8 13:59
1.强烈怀疑这一段就是化蛇填足，请先弄清楚数据的排列方式。难道后面两种模式每个都是48行？和前一种模式的 ...

第一个问题已经改过来了
第二个问题的用法确实不太会，是不是我的没加循环，你的方法加上了循环
第三个问题是不是内外循环弄错了，如果(b(t,i)，t=48,i=30)是不是就正确了
谢谢你的指导，至于fortran的问题已经解决了