fortran程序运行出错求解答

SHX

integer none
parameter(nx=63,ny=25)
real i,j
dimension sumr(nx,ny),a(nx,1)
open(1,file='sumr.dat')
open(12,file='sumrmean.grd',form='binary')
open(13,file='sumrmean.dat')
   read(1,*)((sumr(i,j),i=1,nx),j=1,ny)
a(1,1)=0
do i=1,nx
  do j=1,ny
   a(i,1)=a(i,1)+sumr(i,j)
  enddo
a(i,1)=a(i,1)/25
enddo
  do i=1,nx
   write(*,*)(a(i,1))
   enddo
   write(12)(a(i,1),i=1,nx)
   write(13,100)(a(i,1),i=1,nx)
100 format(1x,f7.1)
end
运行出来结果
[img]file:///C:/Users/xiao/AppData/Roaming/Tencent/Users/896988563/QQ/WinTemp/RichOle/SZ1%7D72]NJNAK6[CKPZ6%25WP9.png[/img]
这是什么情况，求大神指点

shuang

同求。我也遇到这样的问题😅

lqouc

打开sumr.dat看看，里面应该是有非实型的字符。

SHX

lqouc 发表于 2015-4-18 11:46
打开sumr.dat看看，里面应该是有非实型的字符。

没有呀，里面的数据都是实型的

shuang

我的好啦，你生成.dat的那个程序里存放数据的格式变一变试试

SHX

shuang 发表于 2015-4-18 13:51
我的好啦，你生成.dat的那个程序里存放数据的格式变一变试试

嗯嗯，好了，问题解决

huisumin

shuang 发表于 2015-4-18 13:51
我的好啦，你生成.dat的那个程序里存放数据的格式变一变试试

怎么改变就可以了呀

huisumin

SHX 发表于 2015-4-18 14:13
嗯嗯，好了，问题解决

是怎么解决的，怎么改