关于大量数组之间累加的问题

wutongyu

今天想编一个好几百天的文件累加的程序，每天的文件就是一个x（71,73）的数组，刚才试着写了两天的文件累加，也就两个数组的和，程序一直运行不出来结果，不知道什么情况，把程序贴出来，大家帮忙看一下。
program pingjunzhi
implicit none
integer,parameter::inputfileid=10,outputfileid=11
character(len=80)::inputfile,outputfile
integer m,n,t,j,i,k,s,p
parameter(m=71,n=73)
parameter(s=71,p=73)
integer x(m,n)
integer y(s,p)
y(s,p)=0      ！这里是打算把起始数组定义为0数据

open(10,file='0010.txt',status='old')
do t=1,71
read(10,*)(x(t,j),j=1,73)
end do
close(10)

open(11,file='22.TXT',status="replace")
do i=1,71
read(*,*)(y(i,k),k=1,73)
y(i,k)= y(i,k)+x(t,j)
write(11,"(I6)")y(i,k)
end do
close(11)
end program  

言深深

哈哈，刚刚在群里有朋友发现了，你的read有问题，然后你的数组也溢出了，修改如下：
open(11,file='22.TXT',status="replace")
do i=1,71
read(11,*)(y(i,k),k=1,73)
do k=1,73
y(i,k)= y(i,k)+x(t,j)
write(11,"(I6)")y(i,k)
end do
end do

close(11)
end program