| 查看: 736 | 回复: 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，怎么也读不懂，有没有高人指点一下？？谢谢了 |
回复此楼» 猜你喜欢
售SCI一区T0P文章，我:8.O.5.5.1.O.5.4,科目齐全,可+急
已经有6人回复
-
现在不知道怎么办，感觉很痛苦
已经有6人回复
-
请问大佬b0816评完了吗
已经有8人回复
-
本人最近太闲了，谁有问题可以提，每天会统一回复
已经有20人回复
-
重磅！青年科学基金项目（C类）资助增幅预计超过50%
已经有8人回复
-
求助2，4-二氯-5-嘧啶甲醛的合成方法
已经有6人回复
-
评审感受-评审感受-评审感受
已经有19人回复
-
售SCI一区T0P文章，我:8.O.5.5.1.O.5.4,科目齐全,可+急
已经有3人回复
-
售SCI一区T0P文章，我:8.O.5.5.1.O.5.4,科目齐全,可+急
已经有4人回复
-
售SCI一区T0P文章，我:8.O.5.5.1.O.5.4,科目齐全,可+急
已经有3人回复
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
