フォートランですが。。

質問

以下のように関数を定義したのですが、
double precision function theata(x, u, ns, i)
のところでwarningがでて、"関数の戻り値が定義されていない"みたいなことを言ってるんですが、何がいけないのでしょう？
double precision function theata(x, u, ns, i)
implicit double precision(a-h, o-z)
dimension y(51), u(51)
do 100 i=1, ns
y(i)=cos(x)-sin(u(i))
100 continue
return
end

回答No.1

nagare · ベストアンサー

theata関数で計算した結果をtheataに代入していないからです

サンプル
real*8 FUNCTION G(x,y)
G = cos(x)+sin(y)
RETURN END

サブルーチン的なのに、関数にしていますので、このワーニングは絶対取れません
どうしてもファンクションを使いたい場合は、
関数の中のループを外に出して、ループの中でtheataをCALLしてください
（パタメタのiって必要?)

お礼

無事解決しました。ありがとうございました。