第13篇 章 Fortran指针 Fortran电子教案（PPT）.ppt

* 第13章 Fortran指针 指针是现代程序设计语言中一个非常重要的概念，指针的应用能够大大加强程序语言的功能。Fortran 90以前的Fortran标准中没有提供指针这种数据类型，在Fortran 90标准中对这种现象进行了重大的改进，引入了指针的概念。 但是值得注意的是，标准Fortran中的指针与C语言中的指针并不完全相同。标准Fortran中的指针并不代表一个变量在内部存储单元中的地址，而是代表这个变量的别名。实质上标准Fortran中的指针相当于C语言中的引用。本章将介绍Fortran指针的概念与应用。 13.1 指针的基本概念 在没有引入指针概念之前，Fortran中对变量的使用都是通过变量的名字直接进行的，程序中每个变量的名字都必须是惟一的。那么同一个变量是否可以取不同的名字呢？Fortran 90/95中的指针，正是用来给变量起别名的。通过指针，同一个变量存储单元可以通过多个变量名来进行访问。 13.1.1 定义指针 Fortran语言中，要将一个变量名定义成指针，可以采用如下的语法形式来进行： 类型说明, POINTER :: 指针变量名列表 其中，类型说明用来说明指针变量可以指向的目标变量类型，目标变量类型既可以是Fortran中提供的内部数据类型。如INTEGER、REAL等，也可以是用户自行定义的派生数据类型。不管适合哪种数据类型，目标变量都必须在程序的声明阶段被赋予TARGET属性。 属性关键字POINTER说明被定义的变量具有指针属性，能够用于指向类型说明中规定类型的变量。 指针变量名列表由若干个指针变量名组成，变量名之间用逗号“,”进行分隔。指针变量名的命名规则同普通变量是一致的，但不允许与其他的变量同名。 13.1.2 定义指针范例 下面是一些合法的指针变量定义范例： INTEGER, POINTER :: Alp, A 2p(:) REAL, POINTER :: Mp, Np(:, :) COMPLEX, POINTER :: Cp CHARACTER, POINTER :: Sp TYPE(Personal_Information) :: Tp 在上面的范例中，第一行语句声明了一个整型指针变量A1p和一个整型指针数组A2p；第二行则声明了一个实型指针变量Mp和一个二维的实型指针数组Np；第三行则声明了一个复型指针数组Cp；第四行则声明了一个字符型指针变量Sp；最后一行则声明了一个自定义数据类型的指针变量Tp。 在实际编程中，也可以将类型说明与指针说明分成两行来书写，即先说明变量的类型，然后再定义变量的指针属性。例如下面的语句同样定义了两个整型的指针变量A1p和A2p： INTEGER :: A1p, A2p(:) POINTER :: Alp, A2p 13.2 指针的基本应用 在Fortran语言中，指针能够与之进行联合的变量既可以是其他非指针变量，也可以是通过动态内存分配得到的一块内存。 13.2.3 动态分配和释放指针空间 指针除了指向非指针变量外，还可以通过动态内存分配来得到一块内存。来看下面的例子： TEST1303.F90 ! 动态分配指针空间 PROGRAM TEST1303 IMPLICIT NONE ! 变量定义 REAL, POINTER :: A INTEGER :: Err ! 为指针分配存储空间 ALLOCATE(A, STAT=Err) IF(0 /= Err) THEN PRINT *, ‘分配指针的存储空间失败!’ STOP ENDIF A = 3.1415926 PRINT *, P END PROGRAM TEST1303 13.2.4 指针状态的查询和更改 在使用一个指针之前，可以通过ASSOCIATED内部函数来查询指针当前的状态。语句的使用形式如下： ASSOCIATED(pointer[, target]) 该内部函数用于检查指针是否设置了指向，返回值为逻辑型变量。如果函数只含有一个指针参数，则会检查该指针是否已经建立联合；如果函数含有两个参数，则会检查第一个指针参数是否与第二个目标参数联合。 除了查询函数，Fortran语言中还提供NULL空置函数来确保指针指向一个不能使用的内存地址，从而保证ASSOCIATED能够正确判断出指针还没有与任何目标建立联合。语句的使用形式如下： NULL() 13.2.5 指针分享存储空间 在使用指针时，除了建立一对一的联合之外，还可以同时用多个指针指向同一个变量。下面就来看一