在同级子模块间调用过程

做两处修改就能互相调用。

• 把子过程的接口放进父模块

• 不需要 use，因为所有子模块都属于同一个父模块

完整的可运行例子如下。

demo.f90:

  module root_mod
  implicit none
  interface
  module subroutine routine_c()
  end subroutine routine_c
  module subroutine routine_d()
  end subroutine routine_d
  end interface
  end module root_mod

  program demo
  use root_mod
  implicit none
  call routine_d()
  end program demo

c.f90:

  submodule(root_mod) c
  implicit none
  contains
  module subroutine routine_c
  print *, "hello from routine_c"
  end subroutine routine_c
  end submodule c

d.f90:

  submodule(root_mod) d
  implicit none
  contains
  module subroutine routine_d
  print *, "hello from routine_d"
  call routine_c()
  end subroutine routine_d
  end submodule d

把 taskC 放进父模块就会让所有子模块都能访问它，我不希望这样。

Fortran 中同级的子模块不知道彼此的存在。不过，子模块的层次可以按需要一直向下扩展。

  module root1
  implicit none
  ...
  end module root1

  submodule (root1) layer1
  implicit none
  interface
  module subroutine task1() ! visible to descendants of layer1 but not to root1
  end subroutine
  end interface
  end submodule layer1

  submodule (root1:layer1) layer2
  implicit none
  contains
  subroutine perform_task()
  call task1()
  end subroutine
  end submodule layer2

  submodule (root1:layer1) layer3
  implicit none
  contains
  subroutine perform_task()
  call task1()
  end subroutine
  end submodule layer3

请留意，layer2 和 layer3 都定义了 perform_task，因为同级子模块无法看到彼此的声明。