利用vs2013编写程序,源代码如下,请问应该ru'he修改
program work
implicit none
real N(0:9,0:9),M(0:2,0:2),V(0:9,0:9),s(0:9,0:9),t
integer i,j,K,L
open(1,file='N矩阵.txt',status='old')
do K=0,9
do L=0,9
read(1,100)N(K,L)
enddo
enddo
100 format(100f5.2)
open(2,file='M矩阵.txt',status='old')
do i=0,2
do j=0,2
read(2,9)M(i,j)
enddo
enddo
9 format(9f4.2)
open(3,file='V.txt',form='formatted')
do K=0,9
do L=0,9
s(K,L)=0
t=0
do i=0,2
do j=0,2
if((K-i-19).or.(L-j-1>9))then
M(i,j)=0
endif
s(K,L)=s(K,L)+M(i,j)*N(K-i-1,L-j-1)
t=t+M(i,j)
enddo
enddo
V(K,L)=s(K,L)/t
write(3,200) V(K,L)
enddo
enddo
200 format(100f5.2)
close(1)
close(2)
close(3)
end program