형제 서브모듈 사이에서 프로시저 호출하기

두 가지를 바꾸면 서로 호출할 수 있어요:

• 자식 루틴의 인터페이스를 부모 모듈에 넣으세요

• 모든 자식이 같은 부모 모듈에 속하므로 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를 정의한다는 점을 보세요. 형제라서 서로의 선언을 볼 수 없기 때문이에요.