Fortran 子例程作为参数传递给其他过程

首先在主程序中声明子例程为外部：

program xx
  external :: sum, prod
  call subs_as_arg(x, y, prod, result)
...

其次还要在子例程中声明子例程为外部：

subroutine subs_as_arg(x, y, sub, result)
  external :: sub

子例程只有外部语句而无外部属性，函数则都有。