3
2
0
入门
使用道具 举报
838
大宗师
01
! 主程序
02
program
T
03
implicit
none
04
type
node
05
real
val
06
(
)
,
pointer
::
P
07
end
08
pHead
=
>
null
pTail
pTemp
!指针置空
09
integer
istat
num
i
10
rTemp
11
12
nullify
!断开关联(置空)
13
open
1
file
'1.txt'
14
15
do
!循环读取数据
16
read
*
iostat
rtemp
17
if
/=
exit
18
+
19
.NOT.
associated
then
!第一个数据
20
allocate
!分配空间
21
!pHead、pTail均指向第一个数据
22
!nullify(pTail.P)
23
phead.val
24
else
25
pTail.P
26
27
28
pTail.val
29
30
31
close
32
!如果有数据,最后一个节点的指针置空
33
print
34
!循环输出
35
!if( .NOT.associated(pHead) ) exit
36
write
pHead.val
37
38
pHead.P
39
deallocate
!销毁数据
40
41
pause
42
490
4
本版积分规则 发表回复 回帖后跳转到最后一页
颁发给发帖量超过一定数量的坛友
颁发给论坛注册3年以上的网友
颁发给论坛热心帮助他人的网友
捐赠本站|Archiver|关于我们 About Us|小黑屋|Fcode ( 京ICP备18005632-2号 )
GMT+8, 2025-5-1 08:07
Powered by Discuz! X3.4
© 2013-2025 Comsenz Inc.