私のプログラムは無限ループで終わるのはなぜですか？

Question

私はなぜそれが起こっているのかわかりませんが、私はプログラムを開始すると無限ループになります。何が間違っていますか？

program Hello 
    REAL K1,K2,RP,G,m,t,time,R1,R2 
    G = 6.67384 * (10**(-11)) 
    m = 5.9723E24  
    t = 0.1    
    RP = 6371000    
    K1 = 15      
    K2 = 10       
    R1 = K1 + RP 
    R2 = K2 + RP 
    r = R1 
    DO WHILE (r > R2) 
    r = r - ((Gm*t/r**2)*t) 
    time = time + t 
    END DO 
write (*,*) "Time = seconds" 
write (*,*) (Gm*t/r**2) 
end program Hello 

Answer 1

Gm宣言しrealであることを暗黙のうちにあるされていません。 Gmの値は設定されていませんが、0になる可能性は非常に高いです。したがって、rは常に同じです。 Gmに((Gm*t/r**2)*t)が入力されている可能性があります。

あなたのプログラムでは常にimplicit noneを使用してください。それは非常に重要です。

10**(-11)は整数式なので、ゼロであることがわかりました。浮動小数点式の指数にはEまたはDを使用する必要があります。