07/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