Вызовы процедур между соседними подмодулями

Они смогут вызывать друг друга после двух изменений:

• Разместите интерфейсы дочерних процедур в родительском модуле

• 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

Обратите внимание, что perform_task определена и в layer2, и в layer3, поскольку соседние подмодули не видят объявлений друг друга.