Developer Forum

Seems that I'm a little crazy! hehe

You better let the compiler do that for you. It is far better
equipped to check the types than us mere mortals:

module mymodule
interface mysub
module procedure a, b
end interface
contains

subroutine a(x)
integer :: x
end subroutine


subroutine a(x)
real :: x
end subroutine
end module

program myprogram
use mymodule

real :: x
integer :: y

call mysub(x) ! The compiler will call b()
call mysub(y) ! The compiler will call a()

end program myprogram

Or perhaps you should explain a bit why you need such
a function?

Regards,

Arjen

I think you meant "b" for the real subroutine, e.g.

subroutine b(x)
real :: x
end subroutine


On Mon, 10 Sep 2007 00:32:25 -0700, Arjen Markus

Oops, yes, you are right :)