应《网络安全法》要求，自2017年10月1日起，未进行实名认证将不得使用互联网跟帖服务。为保障您的帐号能够正常使用，请尽快对帐号进行手机号验证，感谢您的理解与支持！

24小时热门版块排行榜    

Znn3bq.jpeg
小木虫论坛-学术科研互动平台 » 计算模拟区 » 程序语言 » Fortran » 【求助】指针问题？？
41/1返回列表
查看: 725  |  回复: 3
只看楼主 @他人 存档 新回复提醒 (忽略) 收藏    在APP中查看
当前主题已经存档。
本帖产生 2 个 程序强帖 ，点击这里进行查看

ningqicheng

铁虫 (初入文坛)

[交流] 【求助】指针问题？？ 已有3人参与

1.module typedef
2.  implicit none
3.  type :: datalink
4.    integer :: i
5.    type(datalink), pointer :: next
6.  end type datalink
7.end module typedef
8.
9.program ex1012
10.  use typedef
11.  implicit none
12.  type(datalink) , pointer :: p, head
13.  integer :: i,n,err
14.
15.  write(*,*) 'Input N:'
16.  read(*,*) n
17.
18.  allocate( head )
19.  head%i=1
20.  nullify(head%next)
21.
22.  p=>head
23.  do i=2,n
24.    allocate( p%next, stat=err )
25.    if ( err /= 0 ) then
26.      write(*,*) 'Out of memory!'
27.      stop
28.    end if
29.    p=>p%next
30.    p%i=i
31.  end do
32.  nullify(p%next)
33.
34.  p=>head
35.  do while(.true.)
36.    write(*, "(i5)" ) p%i
37.        if ( .not. associated(p%next) ) exit
38.    p=>p%next
39.  end do
40.
41.  stop
42.end program
这是自动创建串行的程序。主要是12行到32，怎么也读不懂，有没有高人指点一下？？谢谢了
回复此楼

» 猜你喜欢
1楼 2010-04-09 09:23:15
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

tjyl

金虫 (正式写手)
★ ★ ★ ★
小木虫(金币+0.5):给个红包，谢谢回帖交流
jjdg(金币+1):感谢回帖交流！ 2010-04-10 00:45
nono2009(金币+2, 程序强帖+1):多谢专家。 2010-04-10 13:09
这个和C里面的单向链表一样的啊。
13-17就是问你要创建多少个节点。18-20就是先为头结点分配内存，设置好值。
23-32就是逐个为节点分配内存，把第i个节点里的值设置为i，32行就是把末尾的节点里指向datalink的指针的值设置为不可访问的地址。
赞一下(3人) 回复此楼
2楼2010-04-09 20:33:32
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

ningqicheng

铁虫 (初入文坛)
我不理解为什么：20.  nullify(head%next)，去掉不行吗？
还有24.    allocate( p%next, stat=err )，为什么不是allocate(p,stat=err)
还有就是C语言中有头指针概念，这里建立链表的时候好像没有用它，直接就是头结点，是不是有什么问题？
赞一下 回复此楼
3楼2010-04-10 09:13:28
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

holmescn

金虫 (正式写手)
★ ★ ★ ★
小木虫(金币+0.5):给个红包，谢谢回帖交流
nono2009(金币+3, 程序强帖+1):多谢专家。 2010-04-10 13:09
引用回帖:
Originally posted by ningqicheng at 2010-04-10 09:13:28:
我不理解为什么：20.  nullify(head%next)，去掉不行吗？
还有24.    allocate( p%next, stat=err )，为什么不是allocate(p,stat=err)
还有就是C语言中有头指针概念，这里建立链表的时候好像没有用它，直接就是 ...

这可能缘于fortran的指针和C是不一样的，C里直接给指针赋值为0就代表（公认的，并不是语法规定的）空指针。而fortran里需要用nullify来给一个指针变量赋值为空。

同样因为fortran里的指针概念的不同，在Fortran里，每个对象的传递都是有指针完成的，所以head,既代表了头结点也代表了头指针。而p指针是要在链表里游走的。当然你也可以allocate(p)作为开始，但没有地方保存头指针了。

而allocate(p%nest)而不是allocate(p)这个问题你还是没有搞明白链表是怎么回事。p指向当前结点，而当前节点已经分配了啊，当然要allocate(p%next)了。
赞一下(2人) 回复此楼
4楼2010-04-10 09:57:43
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖
相关版块跳转 我要订阅楼主 ningqicheng 的主题更新
41/1返回列表
普通表情 龙 兔 虎 猫 高级回复 (可上传附件)
最具人气热帖推荐 [查看全部] 作者 回/看 最后发表
[考博] 考博 +4 Eternitf 2026-04-29 4/200 2026-05-02 16:10 by yejenny
[找工作] 售SCI一区T0P文章，我:8.O.5.5.1.O.5.4,科目齐全,可+急 +3 qs8kylt1wr 2026-05-01 3/150 2026-05-02 16:06 by zahslv263y
[考博] 售SCI一区T0P文章，我:8.O.5.5.1.O.5.4,科目齐全,可+急 +3 qs8kylt1wr 2026-05-01 3/150 2026-05-02 15:51 by zahslv263y
[教师之家] 售SCI一区T0P文章，我:8.O.5.5.1.O.5.4,科目齐全,可+急 +3 qs8kylt1wr 2026-05-01 3/150 2026-05-02 15:36 by zahslv263y
[论文投稿] 售SCI一区T0P文章，我:8.O.5.5.1.O.5.4,科目齐全,可+急 +3 qs8kylt1wr 2026-05-01 3/150 2026-05-02 15:21 by zahslv263y
[博后之家] 售SCI一区T0P文章，我:8.O.5.5.1.O.5.4,科目齐全,可+急 +3 qs8kylt1wr 2026-05-01 3/150 2026-05-02 15:06 by zahslv263y
[公派出国] 售SCI一区T0P文章，我:8.O.5.5.1.O.5.4,科目齐全,可+急 +3 d8tbypao1q 2026-05-01 3/150 2026-05-02 14:21 by zahslv263y
[博后之家] 售SCI一区T0P文章，我:8.O.5.5.1.O.5.4,科目齐全,可+急 +3 d8tbypao1q 2026-05-01 3/150 2026-05-02 14:06 by zahslv263y
[教师之家] 售SCI一区T0P文章，我:8.O.5.5.1.O.5.4,科目齐全,可+急 +3 d8tbypao1q 2026-05-01 3/150 2026-05-02 14:06 by zahslv263y
[博后之家] 售SCI一区T0P文章，我:8.O.5.5.1.O.5.4,科目齐全,可+急 +3 k17zww5nna 2026-05-01 3/150 2026-05-02 10:21 by ovidyohpyz
[公派出国] 售SCI一区T0P文章，我:8.O.5.5.1.O.5.4,科目齐全,可+急 +3 k17zww5nna 2026-05-01 4/200 2026-05-02 10:21 by ovidyohpyz
[找工作] 售SCI一区T0P文章，我:8.O.5.5.1.O.5.4,科目齐全,可+急 +3 k17zww5nna 2026-05-01 4/200 2026-05-02 10:06 by ovidyohpyz
[硕博家园] 售SCI一区T0P文章，我:8.O.5.5.1.O.5.4,科目齐全,可+急 +3 k17zww5nna 2026-05-01 5/250 2026-05-02 09:21 by dz7y1p1i98
[考博] 药化及相关博士的申请 5+3 中药学渣 2026-04-29 3/150 2026-05-01 18:14 by babero
[论文投稿] 一篇MDPI论文改变了学习工作和生活 +3 helsinglee 2026-04-29 4/200 2026-05-01 11:45 by bobvan
[有机交流] 一个化合物的合成路线：CAS:367929-02-0 名称：8β-乙烯基雌二醇 50+4 zhquanbing 2026-04-28 4/200 2026-04-30 22:45 by zyqchem
[文学芳草园] 太白金星有点烦 +3 yexuqing 2026-04-27 3/150 2026-04-30 21:56 by myrtle
[考博] 中国地质大学（北京）博士招生补录，数理学院材料科学与工程专业和材料与化工专业 +3 liuxh329 2026-04-29 3/150 2026-04-30 15:42 by 顺利毕业zs
[基金申请] 收到国自然专家邀请后几年才会有本子送过来评 +3 barley5 2026-04-30 3/150 2026-04-30 14:58 by aspect3000
[论文投稿] 有人投过CCC中国控制会议吗？ 19+3 初九凡 2026-04-26 3/150 2026-04-27 08:58 by 北京莱茵润色
信息提示
关闭
请填处理意见
关闭