06/07/01 12:57:19
>>575
たとえば、これならうまくいくはず。
program test
external g
S = f(3.0, g, 4.0, 4.0, 4.0)
PRINT *, S
END
function f(x,g,a,b,c)
external g
f=3+x+g(x,c)+a+b
print *, x, g(x, c), a,b,c
return
end
function g(x,c)
g=x**2+c
return
end
06/07/01 12:57:19
>>575
たとえば、これならうまくいくはず。
program test
external g
S = f(3.0, g, 4.0, 4.0, 4.0)
PRINT *, S
END
function f(x,g,a,b,c)
external g
f=3+x+g(x,c)+a+b
print *, x, g(x, c), a,b,c
return
end
function g(x,c)
g=x**2+c
return
end