您所在位置：主题：求指点，下面错误是什么意思？该怎么修改？
xjzfy
[专家分：60] 发布于 2010-10-22 10:15:00
program
implicit none
real(kind=8) t,h
real(kind=8)::y(3),d(3),b(3)
real(kind=8)::z(3,11)
real,external::f
t=0.0
y(3)=(/-1.0,0.0,1.0/)
h=0.01
m=3
n=11
call grkt1(t,y,m,h,n,z,f,d,b)
write(*,*)
do i=1,n
t=(i-1)*h
write(*,50) t
write(*,100) (z(j,i),j=i,m)
write(*,*)
end do
50 format(1x,'t=',f7.3)
100 format(1x,'y(1)=',d13.3,2x,'y(2)=',d13.6,3x,'y(3)=',d13.6)
end
运行提示：
Error: Syntax error, found END-OF-STATEMENT when expecting one of: <IDENTIFIER>
program
-------^
Error executing df.exe.
implicit none
real(kind=8) t,h
real(kind=8)::y(3),d(3),b(3)
real(kind=8)::z(3,11)
real,external::f
t=0.0
y(3)=(/-1.0,0.0,1.0/)
h=0.01
m=3
n=11
call grkt1(t,y,m,h,n,z,f,d,b)
write(*,*)
do i=1,n
t=(i-1)*h
write(*,50) t
write(*,100) (z(j,i),j=i,m)
write(*,*)
end do
50 format(1x,'t=',f7.3)
100 format(1x,'y(1)=',d13.3,2x,'y(2)=',d13.6,3x,'y(3)=',d13.6)
end
运行提示：
Error: Syntax error, found END-OF-STATEMENT when expecting one of: <IDENTIFIER>
program
-------^
Error executing df.exe.
