| 查看: 2743 | 回复: 26 | ||
| 当前只显示满足指定条件的回帖，点击这里查看本话题的所有回帖 | ||
[求助]
帮忙讲解一下 文件的读取
|
||
|
帮忙讲解一下 subroutine get_token(token, id) type(dtsets_list), pointer :: token integer, intent(in) :: id type(dtsets_list), pointer :: tmpLst if (AB_DBG) write(0,*) "AB module: request list element ", id nullify(token) tmpLst => my_dtsets do if (.not. associated(tmpLst)) then exit end if if (tmpLst%id == id .and. associated(tmpLst%dtsets)) then token => tmpLst return end if tmpLst => tmpLst%next end do end subroutine get_token 这个程序是怎么从id的这个文件读取变量？能否讲一下if中的意义？谢谢！ |
回复此楼» 猜你喜欢
计算机、0854电子信息（085401-058412）调剂
已经有4人回复
-
基金申报
已经有3人回复
-
国自然申请面上模板最新2026版出了吗？
已经有9人回复
-
溴的反应液脱色
已经有6人回复
-
纳米粒子粒径的测量
已经有7人回复
-
常年博士招收(双一流，工科)
已经有4人回复
-
推荐一本书
已经有10人回复
-
参与限项
已经有5人回复
-
有没有人能给点建议
已经有5人回复
-
假如你的研究生提出不合理要求
已经有12人回复
snoopyzhao
至尊木虫 (职业作家)
- 程序强帖: 16
- 应助: 157 (高中生)
- 贵宾: 0.02
- 金币: 18844.7
- 红花: 29
- 帖子: 3803
- 在线: 1422.4小时
- 虫号: 183750
- 注册: 2006-02-13
- 专业: 污染生态化学
18楼2011-12-11 09:42:02
snoopyzhao
至尊木虫 (职业作家)
- 程序强帖: 16
- 应助: 157 (高中生)
- 贵宾: 0.02
- 金币: 18844.7
- 红花: 29
- 帖子: 3803
- 在线: 1422.4小时
- 虫号: 183750
- 注册: 2006-02-13
- 专业: 污染生态化学
2楼2011-11-30 22:42:00
3楼2011-11-30 23:08:25
snoopyzhao
至尊木虫 (职业作家)
- 程序强帖: 16
- 应助: 157 (高中生)
- 贵宾: 0.02
- 金币: 18844.7
- 红花: 29
- 帖子: 3803
- 在线: 1422.4小时
- 虫号: 183750
- 注册: 2006-02-13
- 专业: 污染生态化学
4楼2011-11-30 23:19:53