forums.silverfrost.com

[Anonymous]

Greetings. A quick query on passing the name of
a function as an argument. My particular application
is a subroutine that finds the root(s) of whatever
mathematical function is given it:

subroutine solver (func,x)
etc...
end subroutine solver

where "func" refers to any function in the calling statement,
viz.

call solver (func1,x)
call solver (func2,x)

My FTN95 book discusses interfaces (= function prototypes),
but I am not sure eactly where I should put the interface
block and how to use it.

Is there a quick answer?

With many thanks,
Ludwig


Ludwig

[PaulLaidler]

Ludwig

You only need to use an INTERACE (for external subprograms) when using Fortran 90 features such as optional and keyword arguments and when passing "assumed shape" arrays. Otherwise, all you need to do is to declare the return type of a function. Is it also a standard practise to declare external functions and subroutines as EXTERNAL.

Standard texts usually have examples that show you how to do this.