|
|
researchv10 Norman
subroutine foo(f, g) external f double precision g call goo(f,g(3)) end logical function f(n) f = n .gt. 3 end external f, g call foo(f, g) end
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.