17、Fortran 程序中的属性声明与使用

Fortran 程序中的属性声明与使用

1. 实体与属性导向的子程序声明

在 Fortran 中，子程序的声明可以采用实体导向（entity - oriented）和属性导向（attribute - oriented）两种方式。以下是示例代码：

实体导向

SUBROUTINE MOVE (FROM, TO)
USE PERSON_MODULE
TYPE (PERSON), INTENT (IN) :: FROM
TYPE (PERSON), INTENT (OUT) :: TO
. . .
SUBROUTINE SUB (X, Y)
INTEGER, INTENT (INOUT) :: X, Y
. . .

属性导向

SUBROUTINE MOVE (FROM, TO)
USE PERSON_MODULE
TYPE (PERSON) FROM, TO
INTENT (IN) FROM
INTENT (OUT) TO
. . .
SUBROUTINE SUB (X, Y)
INTEGER X, Y
INTENT (INOUT) X, Y
. . .

2. VALUE 属性

VALUE 属性用于指定虚拟参数的一种参数关联形式。虚拟参数不与实际参数本身关联，而是与一个匿名临时变量关联。临时变量的初始值取自实际参数的值。在过程执行期间，虚拟参数的值可以被修改（除非虚拟参数也具有 INTENT (IN) 属性），但这些修改仅影响临时变量，