Question

求高手解答，小弟不胜感激，非常谢谢

program hanshu
implicit none
real::w
parameter(w=500.0)
real::u
parameter(u=1.2)
real::s(4)=(/400.0,300.0,200.0,130.0/)
integer i
complex::kn
real::f=(2.0)
do i=1,3
Kn=cmplx((w*u*0.5/s(i))**(0.5),(-(w*u*0.5/s(i))**(0.5)))
f=kn*f
end
do
write(*,*)"f",f
stop
end

D:\exercise\tiaoshi\1.f90

D:\exercise\tiaoshi\1.f90(12) : Error: An unterminated block exists.
do i=1,3
^
D:\exercise\tiaoshi\1.f90(17) : Error: An unterminated block exists.
do
^
Error executing df.exe.
1.obj - 2 error(s), 0 warning(s)

Answer 1

此乃程序也，安装过程有错误

Answer 2

什么东东？

Answer 3

看不懂啊