- 积分
- 3720
- 贡献
-
- 精华
- 在线时间
- 小时
- 注册时间
- 2012-3-20
- 最后登录
- 1970-1-1
![未绑定新浪微博用户 新浪微博达人勋](source/plugin/sina_login/img/gray.png)
|
登录后查看更多精彩内容~
您需要 登录 才可以下载或查看,没有帐号?立即注册
x
本帖最后由 hymn514 于 2012-3-31 15:15 编辑
用FORTRAN编程出现user breakpoint called from code at 0x7c92120e,请问有人知道这是怎么回事,怎么解决吗?编这个程序是想实现将一个季度92个文件里的温度读出来然后求平均,再存在一个叫做05spring.dat的文件里。
05spinglist.txt是我将要处理的文件的名字做成了一个txt文件,然后利用数组a循环读取里面的文件名再将每一个文件打开。
每个文件第七行开始才是数据,总共有42行,64列。三维数组num(i,j,k)中i 控制文件个数,j,k 则是行和列。su(j,k)存放总和。
program main
implicit none
integer,parameter::daysnum=92 !一个季度的日子
character*38 a(daysnum)
integer i,j,k
real su(36,64),num(daysnum,42,64)
open (10,file='E:\chengxu\0507\05springlist.txt') !打开文件
do i=1,daysnum
read (10,*) a(i)
open (i+6,file='E:\chengxu\0507\a(i)')
read (i+6,*) ((num(i,j,k),j=1,42),k=1,64)
enddo
do j=1,36
do k=1,64
do i=1,daysnum
su(j,k)=su(j,k)+num(i,j+6,k)
enddo
enddo
enddo
open(11,file='E:\chengxu\0507\05spring.dat')
write(11,*) ((su(j,k)/daysnum,j=1,36),k=1,64)
close(10)
do i=1,daysnum
close(i+6)
enddo
close(11)
end
谢谢各位了,下面是我的截图
|
|