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中的意义？谢谢！

回复此楼

» 猜你喜欢

有时候真觉得大城市人没有县城人甚至个体户幸福已经有3人回复
CSC & MSCA 博洛尼亚大学能源材料课题组博士/博士后招生｜MSCA经费充足、排名优已经有5人回复
酰胺脱乙酰基已经有8人回复
有70后还继续奋斗在职场上的吗？已经有6人回复
博士延得我，科研能力直往上蹿已经有7人回复
退学或坚持读已经有27人回复
面上基金申报没有其他的参与者成吗已经有5人回复
遇见不省心的家人很难过已经有22人回复

嘟啦啦嘟啦啦嘟

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

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

贺仪

铁杆木虫 (著名写手)

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

引用回帖:

25楼: Originally posted by maomao1210 at 2011-12-11 23:32:20:
网址 http://inac.cea.fr/L_Sim/BigDFT/download.html
下载bigdft-1.6-tuto.tar.gz‘
解压，然后自然会找到你所说的sumrho了，大哥。

你所说的那个源代码子程序有预编译功能的！！！！

abinit里面有完整的bigdft包，是我太大意了，确实存在两个定义
D:\sorftware-install\abinit\abinit-6.8.1\plugins\bigdft\bigdft-1.2.0.4\src\modules\interfaces.f90 (3 hits)
Line 374: subroutine sumrho(iproc,nproc,norb,norbp,lr,ixc,hxh,hyh,hzh,occup,  &
Line 387: end subroutine sumrho

  D:\sorftware-install\abinit\abinit-6.8.1\plugins\bigdft\bigdft-1.2.0.4\src\sumrho.f90 (4 hits)
Line 1: subroutine sumrho(iproc,nproc,norb,norbp,lr,ixc,hxh,hyh,hzh,occup,  &
Line 18: character(len=*), parameter :: subname='sumrho'
Line 97:       !stop 'rsflag active in sumrho.f90, check MPI2 implementation'
Line 203: end subroutine sumrho
其中第一个是11楼，第二个是里面确实有另一个含有内容的定义，那为什么会有两个呢？是不是预编译最后把这些编译到一块儿了？