未使用の仮引数と関数の戻り値が設定されていません

Question

これはニュートン・ラフソン法のFortran 90プログラムです。しかし、それは正しくコンパイルしgeanyあなただけの2つの警告を持って

newraph.f90:18.17: 
real function f(x) 
       1 
Warning: Unused dummy argument 'x' at (1) 
newraph.f90:18.15: 
real function f(x) 
       1 
Warning: Return value of function 'f' at (1) not set 
Compilation finished successfully. 

 program newton_raphson 
     implicit none 
     real,parameter::error=1e-4 
     integer::i 
     real::xo,x1,f,fd 
     read*,xo 
     i=1 
     10 x1=xo-(f(xo)/fd(xo)) 
     if(abs((x1-xo)/x1)<error) then 
     print*,"root is", x1,"no. of iteration=",i 
     else 
     xo=x1 
     i=i+1 
     goto 10 
     endif 
     end 

     real function f(x) 
     real::x 
     end 

     real function fd(x) 
     real::x 
     fd=3*x**2-1 
     end 

Answer 1

にこの警告を与えませんでした。どちらも、ただ機能fは何もしないことを知らせる：

real function f(x) 
    real::x 
    end 

変更は、それが有益な何かを返すようにと警告が消えます。

real function f(x) 
     real, intent(in) :: x 
     f = x**2 
    end function 

、その後fd = 2*xのように、fの導関数を返すようにfdを変更します。

それ以外は、まともなプログラミングスタイルを使用してみてください。インデントを使用する場合は、可能であればgo toの代わりにループを使用してください。垂直方向の間隔（空白行）を使用します。また、わかりやすくするためにend function,end subroutineおよびend programを使用する方が良いです。