| 查看: 2797 | 回复: 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中的意义？谢谢！ |
回复此楼» 猜你喜欢
酰胺脱乙酰基
已经有9人回复
-
有时候真觉得大城市人没有县城人甚至个体户幸福
已经有3人回复
-
CSC & MSCA 博洛尼亚大学能源材料课题组博士/博士后招生｜MSCA经费充足、排名优
已经有5人回复
-
有70后还继续奋斗在职场上的吗？
已经有6人回复
-
博士延得我，科研能力直往上蹿
已经有7人回复
-
退学或坚持读
已经有27人回复
-
面上基金申报没有其他的参与者成吗
已经有5人回复
-
遇见不省心的家人很难过
已经有22人回复
snoopyzhao
至尊木虫 (职业作家)
- 程序强帖: 16
- 应助: 157 (高中生)
- 贵宾: 0.02
- 金币: 18844.7
- 红花: 29
- 帖子: 3803
- 在线: 1422.4小时
- 虫号: 183750
- 注册: 2006-02-13
- 专业: 污染生态化学
【答案】应助回帖
★
贺仪(金币+3): 恩 我再看看。谢谢！ 2011-12-12 20:18:18
余泽成(金币+1): 辛苦了！ 2011-12-13 13:14:27
贺仪(金币+3): 恩 我再看看。谢谢！ 2011-12-12 20:18:18
余泽成(金币+1): 辛苦了！ 2011-12-13 13:14:27
|
呵呵，我连不上 abinit 的站点，这的确是一个强大的程序…… 从目录上来看，一个属于 interface，也就是一个接口，告诉其它调用者，这个子程序需要一些什么样的变量，返回什么样的变量等等，一个是实际的定义…… 我猜测的是 abinit 最初可能是 Fortran 77 的程序，在转成 Fortran 90 或之后的标准时，增加的 interface。interface 对于编译过程中对各子程序的参数进行检查非常有必要。 有关 interface 的作用，你可以查一下 Fortran 90 后的标准 |
27楼2011-12-12 10:01:38
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