Fortran指针 - Fortran教程

在大多数编程语言中,一个指针变量存储对象的内存地址。然而,在Fortran中,指针是具有不是仅仅存储存储器地址多功能性的数据对象。它包含有关特定对象的详细信息,如类型,等级,扩展和存储器地址。

指针是通过分配或指针赋值的目标相关联。

声明一个指针变量

一个指针变量与指针属性声明。

下面的实施例示出了声明指针变量:

integer, pointer :: p1 ! pointer to integer  
real, pointer, dimension (:) :: pra ! pointer to 1-dim real array  
real, pointer, dimension (:,:) :: pra2 ! pointer to 2-dim real array

指针可以指向:

  • 动态分配的内存区域
  • 数据对象与目标属性相同类型的指针

分配指针的空间

allocate语句可以分配指针对象空间。例如:

program pointerExample
implicit none

   integer, pointer :: p1
   allocate(p1)

   p1 = 1
   Print *, p1

   p1 = p1 + 4
   Print *, p1

end program pointerExample

当上述代码被编译和执行时,它产生了以下结果:

1
5

应该解除分配语句清空该分配的存储空间当它不再需要,并避免未使用的和不可用的存储器空间的积累。

目标和关联

目标是另一个正态变量,空间预留给它。目标变量必须与目标属性进行声明。

一个指针变量使用的关联操作符使目标变量相关联(=>)。

让我们重写前面的例子中,以说明这个概念:

program pointerExample
implicit none

   integer, pointer :: p1
   integer, target :: t1 

   p1=>t1
   p1 = 1

   Print *, p1
   Print *, t1

   p1 = p1 + 4

   Print *, p1
   Print *, t1

   t1 = 8

   Print *, p1
   Print *, t1

end program pointerExample

当上述代码被编译和执行时,它产生了以下结果:

1
1
5
5
8
8

指针可以是:

  • 未定义的
  • 关联的
  • 未关联的

在上面的程序中,我们使用associated的指针p1与目标t1时,使用=>运算符。相关的函数,测试指针的关联状态。

这个声明无效的关联从一个目标一个指针。

无效非空目标,因为可能有多个指针指向同一个目标。然而空指针指也是无效的。

示例 1

下面的例子演示了概念:

program pointerExample
implicit none

   integer, pointer :: p1
   integer, target :: t1 
   integer, target :: t2

   p1=>t1
   p1 = 1

   Print *, p1
   Print *, t1

   p1 = p1 + 4
   Print *, p1
   Print *, t1

   t1 = 8
   Print *, p1
   Print *, t1

   nullify(p1)
   Print *, t1

   p1=>t2
   Print *, associated(p1)
   Print*, associated(p1, t1)
   Print*, associated(p1, t2)

   !what is the value of p1 at present
   Print *, p1
   Print *, t2

   p1 = 10
   Print *, p1
   Print *, t2

end program pointerExample

当上述代码被编译和执行时,它产生了以下结果:

1
1
5
5
8
8
8
T
F
T
952754640
952754640
10
10

请注意,每次运行该代码时,内存地址会有所不同。

示例 2

program pointerExample
implicit none

   integer, pointer :: a, b
   integer, target :: t
   integer :: n

   t= 1
   a=>t
   t = 2
   b => t
   n = a + b

   Print *, a, b, t, n 

end program pointerExample

当上述代码被编译和执行时,它产生了以下结果:

2  2  2  4