Question

运行fortran时，我没设置断点，却显示触发了一个断点，怎么回事？

program readdata
implicit none
integer::fileid=10
integer::date(5) !记录时间，包含年、月、日、时、
real(8)::alpha(4) !记录alpha的4个参数(浮点数类型)
real(8)::beta(4) !记录beta的4个参数(浮点数类型)
integer::error
character::tempstr
character::PGM,RUN_BY ! PGM / RUN BY / DATE

open(fileid,file='urus0010.15n',status='old',iostat=error)
if(error/=0)then
write(*,*)" open file fail !"
stop
end if
!读取第一行，存放在tempstr中
read(fileid,"(A80)")tempstr
!读取第二行的时间
read(fileid,108)PGM,RUN_BY,date(1),date(2),date(3),date(4),date(5)
!读取第三行的aplha的四参数
read(fileid,109)alpha(1),alpha(2),alpha(3),alpha(4)
!读取第四行的beta的四参数
read(fileid,110)beta(1),beta(2),beta(3),beta(4)
108 format(A6,A11,I4,I2,I2,I2,1X,I2)
109 format(D10.4,D11.4,D11.4,D10.4)
110 format(D11.4,D11.4,D11.4,D11.4)

!新建一个new_urus0010.15n的文件用来存储所需的参数
open(10,file='new_urus0010.15n')
write(10,120)date(1),date(2),date(3),date(4),":",date(5)
120 format(I4,1X,I2,1X,I2,1X,I2,A2,I2)
write(10,121)"ALPHA",alpha(1),alpha(2),alpha(3),alpha(4)

121 format(A5,1X,D11.4,1X,D11.4,1X,D11.4,1X,D11.4)
write(10,122)"BETA",beta(1),beta(2),beta(3),beta(4)
122 format(A5,1X,D11.4,1X,D11.4,1X,D11.4,1X,D11.4)

stop
end program
*************************************************************************************************
上面时程序，运行时出现是触发了一个断点，点击继续时，结果又不正确，大神给我看看怎么改啊？
我初学fortran，求指导





Answer 1

因为发生了运行时错误，则编译器自动断在错误处。

错误原因，请看黑色命令行窗口显示。input conversion error

追问

怎么知道错误错在什么地方呢，断点处不一定时错误的地方啊
因为有些时候改别的地方，程序可能一下子就过了

对于我的这个程序，怎么改就可以

追答

为什么要用格式呢？
把
read(fileid,109)
改为
read(fileid,*)

大多数时候，read 都不需要格式。