Fortran 内部子程序

示例

不是内部子程序的程序单元可以包含称为内部子程序的其他程序单元。

program prog
  implicit none
contains
  function f()
  end function f
  subroutine g()
  end subroutine g
end program

这样的内部子程序具有许多功能：

• 子程序中的实体与外部程序之间存在主机关联

• 隐式键入规则被继承（implicit none在f上面有效）

• 内部子程序在主机中具有显式接口

模块子程序和外部子程序可能具有内部子程序，例如

module mod
  implicit none
contains
  function f()
  contains
    subroutine s()
    end subroutine s
  end function f
end module mod