Fortran 指针值函数

此时必须使用 result() 子句，且需要声明为指针。例如：

function every5(p1) result(p2)
  real, dimension(:), pointer :: p1, p2
  p2 => p1(low:high:5)
end function every5