| 查看: 2794 | 回复: 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中的意义？谢谢！ |
回复此楼» 猜你喜欢
有时候真觉得大城市人没有县城人甚至个体户幸福
已经有3人回复
-
CSC & MSCA 博洛尼亚大学能源材料课题组博士/博士后招生｜MSCA经费充足、排名优
已经有5人回复
-
酰胺脱乙酰基
已经有8人回复
-
有70后还继续奋斗在职场上的吗？
已经有6人回复
-
博士延得我，科研能力直往上蹿
已经有7人回复
-
退学或坚持读
已经有27人回复
-
面上基金申报没有其他的参与者成吗
已经有5人回复
-
遇见不省心的家人很难过
已经有22人回复
maomao1210
金虫 (正式写手)
- 程序强帖: 5
- 应助: 2 (幼儿园)
- 金币: 1432.8
- 散金: 242
- 红花: 16
- 沙发: 1
- 帖子: 991
- 在线: 442.1小时
- 虫号: 253215
- 注册: 2006-05-20
- 性别: MM
- 专业: 考古理论
★ ★
余泽成(金币+2): 谢谢参与应助！ 2011-12-13 13:14:15
余泽成(金币+2): 谢谢参与应助！ 2011-12-13 13:14:15
|
网址 http://inac.cea.fr/L_Sim/BigDFT/download.html 下载bigdft-1.6-tuto.tar.gz‘ 解压，然后自然会找到你所说的sumrho了，大哥。 你所说的那个源代码子程序 有预编译功能的！！！！ |
25楼2011-12-11 23:32:20
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