贺仪

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

回复此楼

» 猜你喜欢

售SCI一区T0P文章，我:8O.55.1.O.54,科目全,可伽急已经有7人回复
售SCI-T0P文章，我:8O.5.5.1.O.54,科目齐全,可+急已经有5人回复
售SCI一区T0P文章，我:8O.55.1.O.54,科目全,可伽急已经有7人回复
售SCI一区T0P文章，我:8.O.55.1.O.54,科目齐全,可+急已经有6人回复
售SCI一区文章，我:8.O.551.O.5.4,科目全,可伽急已经有7人回复
售SCI一区T0P文章，我:8.O.55.1.O.5.4,科目全,可+急已经有8人回复
售SCI一区文章，我:8.O.55.1.O.54,科目齐全,可伽急已经有7人回复
售SCI一区T0P文章，我:8.O.55.1.O.54,科目齐全,可+急已经有8人回复
售SCI一区T0P文章，我:8.O.55.1.O54,科目全,可伽急已经有8人回复
售SCI一区T0P文章，我:8.O.55.1.O.54,科目齐全,可+急已经有7人回复

» 本主题相关价值贴推荐，对您同样有帮助:

matlab如何读取一个文件夹下的所有图片已经有9人回复
教授这样回是什么意思呀？请大家帮忙解读一下吧已经有4人回复
500金币求软件，谁能帮忙读一下热重-红外连用（TG-IR）的srs后缀文件格式，谢谢！已经有5人回复
求助：dushin程序输入文件无法读取！！！1 已经有10人回复
【求助】谁能帮我看看这张豚鼠皮肤病理切片,能说明什么问题吗?帮忙解读一下吧已经有4人回复
【求助】求助帮助编一个读取TEXT文件画图的程序已经有8人回复
【求助】help！！！！再次发帖询问，请大家帮忙一下，关于硕博连读第三年可否公派攻博已经有13人回复
【求助】我的PH计读数以后显示的不是A请问那个能帮我解析一下啊已经有4人回复
请高手帮忙下载一个网页里的PPT文件已经有2人回复
【求助】GaussView5.0不能读取fchk文件已经有7人回复
【求助】matlab读取fortran输出的txt文件【已解决】已经有3人回复
【求助】请问一下 c++有没有按位读取文件的方法或者语句？ STL里有没有这样的功能？已经有6人回复
【求助】帮忙识别一下，这两个是什么蘑菇？已经有9人回复

嘟啦啦嘟啦啦嘟

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

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

maomao1210

金虫 (正式写手)

程序强帖: 5
应助: 2 (幼儿园)
金币: 1432.8
散金: 242
红花: 16
沙发: 1
帖子: 991
在线: 442.1小时
虫号: 253215
注册: 2006-05-20
性别: MM
专业: 考古理论

【答案】应助回帖

引用回帖:

1楼: Originally posted by 贺仪 at 2011-11-30 22:16:48:
帮忙讲解一下
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 ...

大哥，我说的对还是不对呀？你给个准信呀。

赞一下

回复此楼

9楼2011-12-06 20:33:15

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

查看全部 27 个回答

snoopyzhao

至尊木虫 (职业作家)

程序强帖: 16
应助: 157 (高中生)
贵宾: 0.02
金币: 18844.7
红花: 29
帖子: 3803
在线: 1422.4小时
虫号: 183750
注册: 2006-02-13
专业: 污染生态化学

【答案】应助回帖

★
余泽成(金币+1): 谢谢参与应助！ 2011-12-02 17:28:36
ben_ladeng: 专家考核存档 2011-12-11 10:01:45

我一看到指针就头大的很，呵呵……

你要看懂这个，先要搞清楚 dtsets_list 这个 type 是如何定义的。然后，读取变量的过程似乎用到了链表？我对这个便一无所知了……

赞一下(2人)

回复此楼

2楼2011-11-30 22:42:00

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

潜龙伏虎

银虫 (小有名气)

应助: 2 (幼儿园)
金币: 233.2
红花: 1
帖子: 51
在线: 10.2小时
虫号: 1517979
注册: 2011-11-30
性别: GG
专业: 凝聚态物性 II ：电子结构

【答案】应助回帖

【答案】应助回帖
这个是C的吧？C的不懂，C++还知道一点。。。。。。

赞一下

回复此楼

3楼2011-11-30 23:08:25

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

snoopyzhao

至尊木虫 (职业作家)

程序强帖: 16
应助: 157 (高中生)
贵宾: 0.02
金币: 18844.7
红花: 29
帖子: 3803
在线: 1422.4小时
虫号: 183750
注册: 2006-02-13
专业: 污染生态化学

余泽成: 2011-12-02 17:28:56
ben_ladeng: 专家考核存档 2011-12-11 10:01:55

引用回帖:

3楼: Originally posted by 潜龙伏虎 at 2011-11-30 23:08:25:
【答案】应助回帖
这个是C的吧？C的不懂，C++还知道一点。。。。。。

这个是 Fortran 的好不……

懂 C++ 的话，没有理由看不懂 C 的啊……

赞一下(2人)

回复此楼

4楼2011-11-30 23:19:53

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

[公派出国] 售SCI-T0P文章，我:8O.5.5.1.O.54,科目齐全,可+急 +4	YHiw1gou1Eda 2026-11-10	5/250	2026-11-12 05:44 by 9fOTqj074tIg
[硕博家园] 售SCI一区T0P文章，我:8.O.55.1.O.5.4,科目全,可+急 +4	FChKX8meu1ds 2026-11-09	8/400	2026-11-12 05:28 by 9fOTqj074tIg
[教师之家] 售SCI一区T0P文章，我:8O.55.1.O.5.4,科目齐全,可+急 +5	FChKX8meu1ds 2026-11-09	10/500	2026-11-12 05:19 by 9fOTqj074tIg
[硕博家园] 售SCI一区文章，我:8.O.55.1.O.54,科目齐全,可伽急 +4	cqv1zKnzd7hr 2026-11-09	8/400	2026-11-12 05:08 by 9fOTqj074tIg
[公派出国] 售SCI-T0P文章，我:8O.5.5.1.O.54,科目齐全,可+急 +5	zSbvVX9JFl9J 2026-11-09	8/400	2026-11-12 04:57 by 9fOTqj074tIg
[基金申请] 售SCI一区T0P文章，我:8.O.55.1.O.54,科目齐全,可+急 +5	zSbvVX9JFl9J 2026-11-09	8/400	2026-11-12 04:57 by 9fOTqj074tIg
[公派出国] 售SCI一区T0P文章，我:8.O55.1.O.54,科目全,可十急 +4	Z7qfCsdIiD1T 2026-11-10	5/250	2026-11-12 02:45 by 9fOTqj074tIg
[硕博家园] 售SCI一区T0P文章，我:8O.55.1.O.5.4,科目齐全,可+急 +3	Z7qfCsdIiD1T 2026-11-10	4/200	2026-11-12 02:34 by 9fOTqj074tIg
[公派出国] 售SCI一区T0P文章，我:8O.55.1.O.5.4,科目齐全,可+急 +3	czAiolzR0IJC 2026-11-10	4/200	2026-11-12 02:12 by 9fOTqj074tIg
[考研] 售SCI一区T0P文章，我:8O.55.1.O.5.4,科目齐全,可+急 +6	czAiolzR0IJC 2026-11-10	7/350	2026-11-12 02:03 by 9fOTqj074tIg
[考研] 售SCI一区文章，我:8O5.5.1.O5.4,科目全,可伽急 +3	G2rhSvqvhNzl 2026-11-10	5/250	2026-11-12 01:50 by 9fOTqj074tIg
[教师之家] 售SCI一区T0P文章，我:8O.55.1.O.5.4,科目齐全,可+急 +3	C6CRn66RYYXS 2026-11-10	6/300	2026-11-12 01:28 by 9fOTqj074tIg
[考研] 售SCI一区T0P文章，我:8.O.55.1.O.5.4,科目全,可+急 +4	C6CRn66RYYXS 2026-11-10	5/250	2026-11-12 01:25 by 9fOTqj074tIg
[考研] 售SCI文章，我:8O.5.5.1O.54,科目全,可十急 +6	0TEMgxdT1eIw 2026-11-09	8/400	2026-11-12 00:33 by 9fOTqj074tIg
[考研] 售SCI一区T0P文章，我:8.O.55.1.O.54,科目齐全,可+急 +4	czAiolzR0IJC 2026-11-10	4/200	2026-11-11 18:20 by TgvkbZZl9tqB
[公派出国] 售SCI一区T0P文章，我:8O.55.1.O.54,科目全,可伽急 +5	FChKX8meu1ds 2026-11-09	10/500	2026-11-11 17:25 by TgvkbZZl9tqB
[考博] 27博士申请 +3	白白白ly 2026-11-09	3/150	2026-11-09 21:39 by szq0819
[考研] 售SCI文章，我:8O.5.5.1O.54,科目全,可十急 +6	5sJFDKp2kwuI 2026-11-06	14/700	2026-11-09 11:52 by GwrQVVR6Oenx
[硕博家园] 售SCI一区T0P文章，我:8O.55.1.O.54,科目全,可伽急 +5	5sJFDKp2kwuI 2026-11-06	16/800	2026-11-09 11:47 by GwrQVVR6Oenx
[硕博家园] 售SCI一区文章，我:8O5.5.1.O5.4,科目全,可伽急 +4	5sJFDKp2kwuI 2026-11-06	10/500	2026-11-09 08:00 by IhnEQauGmT3K

24小时热门版块排行榜

贺仪

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

» 猜你喜欢

» 本主题相关价值贴推荐，对您同样有帮助:

maomao1210

【答案】应助回帖

snoopyzhao

【答案】应助回帖

潜龙伏虎

【答案】应助回帖

snoopyzhao

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