visual Fortran 读文件错误
用visualFortran读文件的时候，编译没有错误，但运行的时候就会显示filenotfound，然后vs就自动停止运行并自动重启，求大神解答。代码如下，不知道是不是...
用visual Fortran 读文件的时候，编译没有错误，但运行的时候就会显示file not found，然后vs就自动停止运行并自动重启，求大神解答。代码如下，不知道是不是代码有什么错误?
program FortranExam
implicit none
integer i,j,stat
real amount,average
real,allocatable::L(:)
real,allocatable::B(:)
real,allocatable::Vary(:)
!character*8 str(25)
j=0
open(11,file="FortranFile.txt")
do i=1,28
read(1)
enddo
do
j=j+1
read(11,fmt=20,iostat=stat)L(j),B(j),Vary(j)
if(stat/=0) exit
enddo
20 format(2f6.1,f6.3)
amount=sum(Vary)
print*,"该月为：",average
close(11)
pause
end program FortranExam 展开
program FortranExam
implicit none
integer i,j,stat
real amount,average
real,allocatable::L(:)
real,allocatable::B(:)
real,allocatable::Vary(:)
!character*8 str(25)
j=0
open(11,file="FortranFile.txt")
do i=1,28
read(1)
enddo
do
j=j+1
read(11,fmt=20,iostat=stat)L(j),B(j),Vary(j)
if(stat/=0) exit
enddo
20 format(2f6.1,f6.3)
amount=sum(Vary)
print*,"该月为：",average
close(11)
pause
end program FortranExam 展开
1个回答
推荐律师服务：
若未解决您的问题，请您详细描述您的问题，通过百度律临进行免费专业咨询
