Intel Software Network - feed

Re: External Procedure

Fri, 03 Jul 2009 17:01:45 -0700

Well, you did it in this example, though you have declared the function as integer(2) in one place and integer(4) in the other. If the QSORT you are using wants an INTEGER(2) function make sure that you write the function that way.

This has been a standard feature of Fortran since Fortran 77. (In Fortran 66 the syntax was a bit different.)

Re: External Procedure

Fri, 03 Jul 2009 18:48:38 -0700

Quoting - Steve Lionel (Intel)

I'll fix it. Thank you.

But, how can I create my on procedure that receive a function which is defined outside of the same?

If it is hard to put here, where do I found it?

Re: External Procedure

Sat, 04 Jul 2009 05:20:10 -0700

Oh, sorry, I misunderstood your question.

The Fortran 77 way is this:

subroutine callit (func, arg)
external func
integer func, arg
print *, func(arg)
end subroutine callit

When you call callit and pass your own function as the func argument, callit will call your function.

The Fortran 90 way is this:

subroutine callit (func, arg)
interface
  integer function func (arg)
  integer, intent(in) : arg
  end function func
end interface
integer, intent(in) :: arg
print *, func(arg)
end subroutine callit

This is wordier, true, but it provides more information to the compiler. In particular, if callit is in a module, the compiler can check to make sure that the function you pass has the correct interface.

There's a Fortran 2003 way as well, with the new PROCEDURE declaration, but that's for another day.