- 199 名前：デフォルトの名無しさん [2007/01/20(土) 17:04:13 ]
- 関数名を引数に使いたいのですが、ＥＸＴＥＲＮＡＬ文を呼び出し側で使っても
うまくいきません。
下のプログラムなのですが、何処が間違っているんでしょう？
External func
real func,SUM
write(*,*) SUM(func)
end
real Function SUM(f)
External func
real f
SUM = f(1.0)+f(2.0)
return
end
real Function func(x)
real x
func = x
return
end
