Fortran 数据输入后不显示任何内容

数据输入后不显示任何内容

program g
implicit none
    real::q,n,s,z,q2,y,free_board,r,b,e,A,h,t
    write(*,100)"pls insert discharge Q ="
    read(*,*)q
    write(*,100)"please insert Manning coefficient n ="
    read(*,*)n
    write(*,*)"please insert slope of the hydraulic channel ="
    read(*,*)s
    write(*,*)"please inset Z ="
    read(*,*)z
    write(*,*)"how much of b/y do you want?"
    write(*,*)"if it not important right 2.5"
    read(*,*)e
    if(e<2.or.e>5)then
        stop
    end if
    y=0

    do
        b=y*e
        A=b+2*y*((1+Z**2)**(0.5))
        R=((b+z*y)*y)/(b+(2*y*(1+z**2)**(0.5)))
        h=(1/n)*(r**(2/3))*A*(s)**0.5
       if( abs(h-q)<0.01) then
        exit
       end if




       y=0.001+y
    end do
    free_board=0.2*y
    h=free_board+y
    t=b+2*y*z


    write(*,100)"free board="
    write(*,*) free_board
    write(*,100)"y="
    write(*,*)y
    write(*,100)"b="
    write(*,*)b
    write(*,100)"T="
    write(*,100)t














    100 format(A)
end program g

程序g
隐式无
实数：q，n，s，z，q2，y，自由板，r，b，e，A，h，t
写上（*，100）“请填写出院Q=”
读（*，*）q
填写（*，100）“请插入曼宁系数n=”
读（*，*）n
写（*，*）“请插入液压通道的坡度=”
读（*，*）s
写（*，*）“请插入Z=”
读（*，*）z
写下（*，*）“您想要多少b/y？”
写（*，*）“如果不重要，请写2.5”
读（*，*）e
如果（e5）那么
停止
如果结束
y=0
做
b=y*e
A=b+2*y*（（1+Z**2）**（0.5））
R=（（b+z*y）*y）/（b+（2*y*（1+z**2）**（0.5）））
h=（1/n）*（r**（2/3））*A*（s）**0.5
如果（abs（h-q），请确定行
write（*，100）t
将给出错误的输出，因为“t”是实数，而不是字符串。请将其更改为
write（*，*）

当所有输入值均等于1.0且e=2.5时，我看到这些输出（在屏幕上）：


自由板=3.7200041E-02
y=0.1860002
b=0.4650005
T=0.8370009

如果您没有看到输出，可能是您选择了错误的“e”值（小于2或大于5）。
请在阅读后显示您的输入值和您确实看到的输出以及
e
的值。r**（2/3）-这真的是你的意思吗？你在做整数除法，所以它的计算结果总是r**0=1。我怀疑你想要r**（2.0/3.0）