>>645
こんな感じ？

module mod1
　interface sub
　　module procedure sub_int, sub_real
　end interface

contains
　subroutine sub_int(n)
　　integer, intent(in) :: n
　　print *, "INTEGER", n
　end subroutine sub_int

　subroutine sub_real(x)
　　real, intent(in) :: x
　　print *, "REAL", x
　end subroutine sub_real
end module mod1

! ---------------
program prog1
　use mod1
　call sub(1)
　call sub(2.0)
end program prog1