Fortran 程序错误 program gyyimplicit nonereal*8 t,d,l,c,k,f,f1write(*,*) "请输入周期T与水深d,中间用逗号连接."read(*,*)t,dl=(9.8*t**2)/(2*3.1415926)7 f=l-(9.8*(t**2)*TANH(2*3.1415926*d/l))/(2*3.1415926)f1=1+9.8*t**2/((l**2)*(COSH(2*

Fortran 程序错误 program gyyimplicit nonereal*8 t,d,l,c,k,f,f1write(*,*) "请输入周期T与水深d,中间用逗号连接."read(*,*)t,dl=(9.8*t**2)/(2*3.1415926)7 f=l-(9.8*(t**2)*TANH(2*3.1415926*d/l))/(2*3.1415926)f1=1+9.8*t**2/((l**2)*(COSH(2*
Fortran 程序错误
program gyy
implicit none
real*8 t,d,l,c,k,f,f1
write(*,*) "请输入周期T与水深d,中间用逗号连接."
read(*,*)t,d
l=(9.8*t**2)/(2*3.1415926)
7 f=l-(9.8*(t**2)*TANH(2*3.1415926*d/l))/(2*3.1415926)
f1=1+9.8*t**2/((l**2)*(COSH(2*3.1415926*d/l))**2)
if(f

Fortran 程序错误 program gyyimplicit nonereal*8 t,d,l,c,k,f,f1write(*,*) "请输入周期T与水深d,中间用逗号连接."read(*,*)t,dl=(9.8*t**2)/(2*3.1415926)7 f=l-(9.8*(t**2)*TANH(2*3.1415926*d/l))/(2*3.1415926)f1=1+9.8*t**2/((l**2)*(COSH(2*
if(f