24小时热门版块排行榜

返回列表

当前只显示满足指定条件的回帖，点击这里查看本话题的所有回帖

贺仪

铁杆木虫 (著名写手)

应助: 93 (初中生)
贵宾: 0.636
金币: 5937
散金: 1063
红花: 38
沙发: 2
帖子: 2499
在线: 588.7小时
虫号: 995125
注册: 2010-04-12
性别: GG
专业: 凝聚态物性 II ：电子结构

[求助] 帮忙讲解一下文件的读取

帮忙讲解一下
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人回复

嘟啦啦嘟啦啦嘟

1楼 2011-11-30 22:16:48

已阅回复此楼关注TA 给TA发消息送TA红花 TA的回帖

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

呵呵，我连不上 abinit 的站点，这的确是一个强大的程序……

从目录上来看，一个属于 interface，也就是一个接口，告诉其它调用者，这个子程序需要一些什么样的变量，返回什么样的变量等等，一个是实际的定义……

我猜测的是 abinit 最初可能是 Fortran 77 的程序，在转成 Fortran 90 或之后的标准时，增加的 interface。interface 对于编译过程中对各子程序的参数进行检查非常有必要。

有关 interface 的作用，你可以查一下 Fortran 90 后的标准