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的回帖

贺仪

铁杆木虫 (著名写手)

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

引用回帖:

9楼: Originally posted by maomao1210 at 2011-12-06 20:33:15:
大哥，我说的对还是不对呀？你给个准信呀。

一个子程序怎么只有变量的声明？弄不懂什么意思呀？一直没看懂……

subroutine sumrho(iproc,nproc,norb,norbp,lr,ixc,hxh,hyh,hzh,occup,  &
      psi,rho,nrho,nscatterarr,nspin,nspinor,spinsgn,hybrid_on)
   use module_base!, only: gp,dp,wp,ndebug,memocc
   use module_types
   implicit none
   logical, intent(in) :: hybrid_on
   integer, intent(in) :: iproc,nproc,norb,norbp,nrho,nspin,nspinor,ixc
   real(gp), intent(in) :: hxh,hyh,hzh
   type(locreg_descriptors) :: lr
   integer, dimension(0:nproc-1,4), intent(in) :: nscatterarr
   real(wp), dimension(lr%wfd%nvctr_c+7*lr%wfd%nvctr_f,norbp*nspinor), intent(in) :: psi
   real(dp), dimension(max(nrho,1),nspin), intent(out), target :: rho
   real(gp), dimension(norb), intent(in) :: occup,spinsgn
end subroutine sumrho