内部子程序

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

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

这样的内部子程序具有许多特征:

  • 子程序中的实体与外部程序之间存在主机关联
  • 隐式类型规则是继承的(implicit nonef 中生效)
  • 内部子程序在主机中具有显式接口

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

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