| 查看: 638 | 回复: 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人回复
-
请问下大家为什么这个铃木偶联几乎不反应呢
已经有5人回复
-
请问有评职称，把科研教学业绩算分排序的高校吗
已经有5人回复
-
孩子确诊有中度注意力缺陷
已经有12人回复
-
2025冷门绝学什么时候出结果
已经有3人回复
-
天津工业大学郑柳春团队欢迎化学化工、高分子化学或有机合成方向的博士生和硕士生加入
已经有4人回复
-
康复大学泰山学者周祺惠团队招收博士研究生
已经有6人回复
-
AI论文写作工具：是科研加速器还是学术作弊器？
已经有3人回复
-
论文投稿，期刊推荐
已经有4人回复
-
硕士和导师闹得不愉快
已经有13人回复
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
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