fortran基础第11章.pptVIP

* 递归子程序的调用 在主程序中调用递归子程序时，应写明递归子程序的接口块，然后是CALL子程序名[([虚参名表])]。 * 递归子程序的例题 HANOI(汉诺)塔问题（略） * 数组：数组是一种数据结构。数组中所有元素类型相同，引用方式或者给出下标来确定一个元素，或者给出数组名代表所有元素，或者用下标三元组表示数组片段。 派生结构：空间任意一点的坐标可以用三个实数X、Y、Z来描述。但是就FORTRAN语言来说，X、Y、Z之间并无任何联系，只是程序员把这三个变量理解为坐标。如果换一种方式来表述点的坐标：把三个实型数据结合在一起，形成一个新的数据类型COORDINATE，这个类型就是派生类型。 链表结构：由派生结构定义一个节点，包含一个指针。 * 可以看出： 每个结点有两个域，即数据域(这里是一个数值)和指针域(用箭头表示)。 链表的第一个结点称为表头，指向表头的指针称为头指针。 最后一个结点称为表尾，它的结点指针域为空指针。 * 这里，第一句将当前结点current指向原链表的头结点，第二句将链表头指针指向当前插入的结点current，即结点current为现在链表的头结点。 * 删除的过程就是让前一个结点的指针绕过此结点指向下一个结点，然后释放这个结点的空间。例如，我们要在图11-6中，删除数值为27的结点，且经过搜索Q已经指向该结点，P指向它前面的一个结点。 * 删除的过程就是让前一个结点的指针绕过此结点指向下一个结点，然后释放这个结点的空间。例如，我们要在图11-6中，删除数值为27的结点，且经过搜索Q已经指向该结点，P指向它前面的一个结点。 * 例如下面的程序将输出逻辑值F PROGRAM TEST IMPLICIT NONE REAL,TARGET,DIMENSION (4)::A=(/1,2,3,4/) REAL, POINTER, DIMENSION (:) :: P, Q P = A (1 : 3) Q = A (2 : 4) PRINT *, ASSOCIATED (P, Q) END * 11.2.6 悬空指针和无法访问的内存 ⒈ 悬空指针 设P1和P2是两个同类型的指针变量，执行下列语句后会导致悬空指针。 ALLOCATE(P2) P1=P2 DEALLOCATE (P2) ⒉ 无名内存 设P1是一个指针变量，A是一个同类型的目标变量，执行下列语句后会导致无名内存。 ALLOCATE(P1) P1=A * 11.3 指针数组 指针数组定义的一般形式为： 数据类型,DIMENSION(:[,:]), POINTER::V 注意： 这里的数组V一定要定义为一个假定形状数组。 有了上面的说明，V可以指向任何一个一维数组，或二维数组。例如有下列语句： REAL,DIMENSION(:),POINTER::P REAL,DIMENSION(5,6),TARGET:: ARR P=ARR (4,:) 使P变成了数组ARR第四行的别名。如果对P执行赋值语句：P= 1，就是将数组ARR的第四行全部设置为1。当然，此处的目标数组ARR必须具有TARGET属性。 * 11.4 链表 11.4.1 链表的概念 链表是结点的序列。 结点：结点也叫数据元素，它是组成数据的基本单位。 结点分为两部分：一部分用于存储数据元素的值，称为数据域；另一部分用于存放下一个数据元素的存储结点的地址，即指向后继结点，称为指针域。 数据域 指针域 * 11.4.1 链表的概念 例如有三个整型数值结点的链表 L HEAD 13 27 39 * 结点的定义 每个结点至少有一个指针，用于指向下一个结点。结点可以用一个派生类型来定义: TYPE NODE INTEGER::VALUE TYPE(NODE),POINTER::NEXT END TYPE NODE * 链表的头结点 头结点：没有数据域，仅有一个指针域。 定义头结点的派生类型只有一个指向NODE类型的指针成员HEAD: TYPE LIST TYPE(NODE),POINTER:: HEAD END TYPE LIST * 链表的尾结点 表尾：由于它没有后继，该结点的后继指针NEXT指向空。 * 11.4.2 链表的创建 创建一个空链表。该链表不含任何结点，其头指针指向空指针。 HEAD * 11.4.2 链表的创建 可以用一个函数子程序NEW()来创建一个空链表： FUNCTION NEW( ) RESULT (NEW_LIST) TYPE(LIST):: NEW_LIST NU