| 查看: 511 | 回复: 3 | ||
momabow木虫 (著名写手)
|
[求助]
教程中例子运行错误
|
|
IMPLICIT NONE TYPE NODE INTEGER VALUE TYPE (NODE), POINTER :: NEXT END TYPE NODE !链表的建立，规定以0作为链表建立结束标志。 TYPE (NODE), POINTER :: CURRENT, L INTEGER NUM READ*,NUM NULLIFY( L ) ALLOCATE( CURRENT ) CURRENT % VALUE = NUM L => CURRENT DO WHILE (NUM /= 0) READ*, NUM IF (NUM /= 0) THEN ALLOCATE( CURRENT ) CURRENT % VALUE = NUM CURRENT % NEXT => L L => CURRENT END IF END DO !链表的输出过程。 CURRENT => L PRINT*, CURRENT % VALUE CURRENT => CURRENT % NEXT DO WHILE (ASSOCIATED(CURRENT)) PRINT *, CURRENT % VALUE CURRENT => CURRENT % NEXT NEXT NODE END DO END |
回复此楼» 猜你喜欢
请问有评职称，把科研教学业绩算分排序的高校吗
已经有6人回复
-
2025冷门绝学什么时候出结果
已经有6人回复
-
Bioresource Technology期刊，第一次返修的时候被退回好几次了
已经有7人回复
-
真诚求助：手里的省社科项目结项要求主持人一篇中文核心，有什么渠道能发核心吗
已经有8人回复
-
寻求一种能扛住强氧化性腐蚀性的容器密封件
已经有5人回复
-
请问哪里可以有青B申请的本子可以借鉴一下。
已经有4人回复
-
请问下大家为什么这个铃木偶联几乎不反应呢
已经有5人回复
-
天津工业大学郑柳春团队欢迎化学化工、高分子化学或有机合成方向的博士生和硕士生加入
已经有4人回复
-
康复大学泰山学者周祺惠团队招收博士研究生
已经有6人回复
-
AI论文写作工具：是科研加速器还是学术作弊器？
已经有3人回复
» 本主题相关价值贴推荐，对您同样有帮助:
在做gromacs教程跑膜的MD例子 ，老报错！求指教
已经有3人回复- openMP并行入门
已经有2人回复
- Quantum-ESPRESSO 5.0.3，Windows 32-bit，串行版
已经有55人回复
- endnote使用心得
已经有19人回复
- ENDNOTE使用方法
已经有24人回复
- 在网上求助计算化学问题时的注意事项-Sobereva
已经有6人回复
- 【资料】 ENDNOTE使用方法～～～造福硕硕博博们，
已经有29人回复
- 【ChemiAndy个人文集】NBO5.G Standalone (GENNBO) Linux下的编译和使用
已经有12人回复
momabow
木虫 (著名写手)
- 应助: 0 (幼儿园)
- 金币: 2438.5
- 散金: 501
- 红花: 2
- 帖子: 1184
- 在线: 557.5小时
- 虫号: 2163683
- 注册: 2012-12-03
- 专业: 电工材料特性及其应用
2楼2017-04-25 10:24:08
jjdg
版主 (知名作家)
- 程序强帖: 9
- 应助: 223 (大学生)
- 贵宾: 3.926
- 金币: 51002.6
- 红花: 238
- 帖子: 7227
- 在线: 474.2小时
- 虫号: 27000
- 注册: 2003-10-21
- 专业: 药物代谢与药物动力学
- 管辖: 程序语言
momabow
3楼2017-04-25 18:31:41
momabow
木虫 (著名写手)
- 应助: 0 (幼儿园)
- 金币: 2438.5
- 散金: 501
- 红花: 2
- 帖子: 1184
- 在线: 557.5小时
- 虫号: 2163683
- 注册: 2012-12-03
- 专业: 电工材料特性及其应用
4楼2017-04-26 17:57:26