内部子程序

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

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