Fortran 中的指针

  • Fortran 中的指针

  • 指针可以看作一种数据类型
    • 指针存储与之关联的数据的内存地址
    • 变量指针:指向变量
    • 数组指针:指向数组
    • 过程指针:指向函数或子程序
  • 指针状态
    • 未定义
    • 未关联
integer, pointer::p1=>null()
!或者
nullify(p1)
    • 已关联

  • 指针操作
    • 指向
      • 将变量、数组、过程或指针的内存地址以及其他信息(数组上下界、过程接口等)赋值给指针
    • 赋值
      • 将非过程的量所关联的值赋值到指针所关联的地址。涉及到的所有指针必须已经关联到足够的内存空间

  • 指针状态查询函数
associated(pointer) !是否已经有关联
associated(target, pointer) !这两个是否有关联
  • example-1:变量指针
! A fortran95 program for G95
! By WQY
program test
    implicit none
    integer, target::a=1
    integer, pointer::p=>null()
    print*, associated(p)
    p=>a
    print*, associated(p)
    print*, associated(p, a)

    pause
end program

Fortran 中的指针_第1张图片

  • example-2:数组指针
! A fortran95 program for G95
! By WQY
program test
    implicit none
    integer, target::a(2, 3)=999
    integer, pointer::p(:, :)=>null()
    print*, associated(p)
    p=>a
    print*, associated(p)
    print*, associated(p, a)

    pause
end program

Fortran 中的指针_第2张图片

  • example-3:过程指针
! A fortran95 program for G95
! By WQY
program test
    use m
    integer::a=1
    procedure(pro), pointer::p

    interface
        subroutine pro(a)
            integer a
        end subroutine
    end interface

    p=>sub
    call p(a)

    pause
end program

module m
    contains
        subroutine sub(a)
            integer a
            print*, "sub:", a
        end subroutine sub
end module

Fortran 中的指针_第3张图片



你可能感兴趣的:(python,算法,数学建模,抽象代数,numpy)