过程指针

指针也可以指向过程,这时候需要先声明指针的接口,用于限制指针的类型,也就是在之前的章节中我们提到的abstract interface

module proc_pointer_mod
    implicit none
    abstract interface
        real(8) function func1d(x) result(res)
            real(8),intent(in)::x
        end function func1d
    end interface
contains
    real(8) function mysin(x) result(res)
        real(8),intent(in)::x
        res=sin(x)
    end function mysin
    real(8) function myexp(x) result(res)
        real(8),intent(in)::x
        res=exp(x)
    end function myexp
    real(8) function mycos(x) result(res)
        real(8),intent(in)::x
        res=cos(x)
    end function mycos
end module proc_pointer_mod

program main
    use proc_pointer_mod
    implicit none
    procedure(func1d),pointer::ptr=>null()
    ptr=>mysin
    write(*,*)ptr(1.0_8)
    ptr=>myexp
    write(*,*)ptr(1.0_8)
    ptr=>mycos
    write(*,*)ptr(1.0_8)
end program main
  • 不能使用过程指针指向通用函数名。由于Fortran的内置函数都是经过重载的通用函数,所以也不能用过程指针指向内置函数

如果定义一个过程指针数组,则需要使用到自定义类型,同时也要指定nopass关键字,用来表示不需要绑定该类型作为第一个虚参传递。

module proc_pointer_mod
    implicit none
    abstract interface
        real(8) function func1d(x) result(res)
            real(8),intent(in)::x
        end function func1d
    end interface
    type ptrfunc
        procedure(func1d),pointer,nopass::ptr
    end type ptrfunc
contains
    real(8) function mysin(x) result(res)
        real(8),intent(in)::x
        res=sin(x)
    end function mysin
    real(8) function myexp(x) result(res)
        real(8),intent(in)::x
        res=exp(x)
    end function myexp
    real(8) function mycos(x) result(res)
        real(8),intent(in)::x
        res=cos(x)
    end function mycos
end module proc_pointer_mod

program main
    use proc_pointer_mod
    implicit none
    type(ptrfunc)::a(3)
    integer::i
    a(1)%ptr=>mysin
    a(2)%ptr=>myexp
    a(3)%ptr=>mycos
    write(*,*)(a(i)%ptr(1.0_8),i=1,3) !此处使用隐式循环输出
end program main
  • 使用过程指针后,一些操作需要转向运行时确定,所以编译器无法进行更加激进的优化(内联inline),代码的运行速度有可能会降低。

习题

  • 思考为什么不使用procedure(func1d),pointer::ptr(:)来定义过程指针数组