如何在Fortran中实现带有子模块的通用接口？

! 主模块
module main_module
  implicit none
  
  interface my_interface
    module procedure my_subroutine, my_function
  end interface my_interface
  
contains
  
  ! 子程序
  subroutine my_subroutine(a)
    integer, intent(in) :: a
    ! 实现具体功能
    print *, "This is my_subroutine. Input: ", a
  end subroutine my_subroutine
  
  ! 函数
  function my_function(a) result(b)
    integer, intent(in) :: a
    integer :: b
    ! 实现具体功能
    b = a * 2
  end function my_function
  
end module main_module

! 子模块
module sub_module
  implicit none
  
contains
  
  ! 子程序
  subroutine my_subroutine(a)
    integer, intent(in) :: a
    ! 实现不同的具体功能
    print *, "This is sub_module's my_subroutine. Input: ", a
  end subroutine my_subroutine
  
  ! 函数
  function my_function(a) result(b)
    integer, intent(in) :: a
    integer :: b
    ! 实现不同的具体功能
    b = a + 1
  end function my_function
  
end module sub_module

! 主程序
program main_program
  use main_module
  use sub_module
  
  implicit none
  
  integer :: input
  
  input = 10
  
  call my_interface(input) ! 调用通用接口
  
end program main_program