| 查看: 877 | 回复: 3 | |||
| 当前主题已经存档。 | |||
| 本帖产生 2 个 程序强帖 ，点击这里进行查看 | |||
[交流]
【求助】指针问题？？ 已有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，怎么也读不懂，有没有高人指点一下？？谢谢了 |
回复此楼» 猜你喜欢
中科院海洋所招收海洋材料相关领域博士研究生及研究助理
已经有4人回复
-
40+中年人失业后，还能找到好工作吗？
已经有3人回复
-
二审4个多月了还是Awaiting Reviewer Scores
已经有4人回复
-
OpenAI又攻克数学难题了，离AI做有机合成还有多远？
已经有13人回复
-
申请科研项目纯靠实力能成功吗？
已经有7人回复
-
极限拉扯，如何抉择
已经有14人回复
-
课题组会帮你通过考核么？
已经有7人回复
-
入职后第一次管课题组的专利缴费，对账才发现官费比别人多掏了一倍
已经有6人回复
-
售一区SCI文章T0P，我:8O.551.O54,科目全,可十急
已经有9人回复
-
售SCI一区文章，我:8O5.5.1.O5.4,科目全,可伽急
已经有10人回复
tjyl
金虫 (正式写手)
- 程序强帖: 2
- 应助: 0 (幼儿园)
- 金币: 3218.1
- 红花: 2
- 帖子: 576
- 在线: 156.6小时
- 虫号: 765184
- 注册: 2009-05-07
- 专业: 生物无机化学
- 管辖: 程序语言
2楼2010-04-09 20:33:32
3楼2010-04-10 09:13:28
holmescn
金虫 (正式写手)
- 程序强帖: 37
- 应助: 1 (幼儿园)
- 金币: 1918.8
- 散金: 275
- 红花: 1
- 帖子: 699
- 在线: 102.6小时
- 虫号: 913482
- 注册: 2009-11-26
- 性别: GG
- 专业: 凝聚态物性 II ：电子结构
★ ★ ★ ★
小木虫(金币+0.5):给个红包，谢谢回帖交流
nono2009(金币+3, 程序强帖+1):多谢专家。 2010-04-10 13:09
小木虫(金币+0.5):给个红包，谢谢回帖交流
nono2009(金币+3, 程序强帖+1):多谢专家。 2010-04-10 13:09
|
这可能缘于fortran的指针和C是不一样的，C里直接给指针赋值为0就代表（公认的，并不是语法规定的）空指针。而fortran里需要用nullify来给一个指针变量赋值为空。 同样因为fortran里的指针概念的不同，在Fortran里，每个对象的传递都是有指针完成的，所以head,既代表了头结点也代表了头指针。而p指针是要在链表里游走的。当然你也可以allocate(p)作为开始，但没有地方保存头指针了。 而allocate(p%nest)而不是allocate(p)这个问题你还是没有搞明白链表是怎么回事。p指向当前结点，而当前节点已经分配了啊，当然要allocate(p%next)了。 |
4楼2010-04-10 09:57:43
10