24小时热门版块排行榜    

查看: 2836  |  回复: 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中的意义?谢谢!
回复此楼

» 猜你喜欢

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

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

maomao1210

金虫 (正式写手)

【答案】应助回帖

引用回帖:
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

至尊木虫 (职业作家)

【答案】应助回帖


余泽成(金币+1): 谢谢参与应助! 2011-12-02 17:28:36
ben_ladeng: 专家考核存档 2011-12-11 10:01:45
我一看到指针就头大的很,呵呵……

你要看懂这个,先要搞清楚 dtsets_list 这个 type 是如何定义的。然后,读取变量的过程似乎用到了链表?我对这个便一无所知了……
2楼2011-11-30 22:42:00
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

潜龙伏虎

银虫 (小有名气)

【答案】应助回帖

【答案】应助回帖
这个是C的吧?C的不懂,C++还知道一点。。。。。。
3楼2011-11-30 23:08:25
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

snoopyzhao

至尊木虫 (职业作家)

余泽成: 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 的啊……
4楼2011-11-30 23:19:53
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖
最具人气热帖推荐 [查看全部] 作者 回/看 最后发表
[考博] 26申博 +4 八旬速览 2026-03-16 4/200 2026-03-17 13:00 by 轻松不少随
[考研] 271求调剂 +12 生如夏花… 2026-03-11 14/700 2026-03-17 10:56 by lovewei0727
[考研] 275求调剂 +4 太阳花天天开心 2026-03-16 4/200 2026-03-17 10:53 by 功夫疯狂
[考研] 321求调剂 +5 大米饭! 2026-03-15 5/250 2026-03-16 16:33 by houyaoxu
[考研] 283求调剂 +10 小楼。 2026-03-12 14/700 2026-03-16 16:08 by 13811244083
[考研] 285求调剂 +6 ytter 2026-03-12 6/300 2026-03-16 15:05 by njzyff
[教师之家] 焦虑 +7 水冰月月野兔 2026-03-13 9/450 2026-03-16 10:00 by Quakerbird
[考研] 294求调剂 +3 Zys010410@ 2026-03-13 4/200 2026-03-15 10:59 by zhq0425
[考研] 080500,材料学硕302分求调剂学校 +4 初识可乐 2026-03-14 5/250 2026-03-14 21:08 by peike
[基金申请] 现在如何回避去年的某一个专家,不知道名字 +3 zk200107 2026-03-12 6/300 2026-03-14 17:13 by zk200107
[考研] 材料与化工(0856)304求B区调剂 +6 邱gl 2026-03-12 7/350 2026-03-13 23:24 by 邱gl
[考研] 材料371求调剂 +9 鳄鱼? 2026-03-11 11/550 2026-03-13 22:53 by JourneyLucky
[考研] 0856材料与化工301求调剂 +5 奕束光 2026-03-13 5/250 2026-03-13 22:00 by 星空星月
[考研] 0703化学一志愿211 总分320求调剂 +5 玛卡巴卡啊哈 2026-03-11 5/250 2026-03-13 21:40 by JourneyLucky
[考研] 333求调剂 +3 球球古力 2026-03-11 3/150 2026-03-13 21:27 by JourneyLucky
[考研] 329求调剂 +3 miaodesi 2026-03-12 4/200 2026-03-13 20:53 by 18595523086
[考研] 301求调剂 +6 Liyouyumairs 2026-03-11 6/300 2026-03-13 20:11 by JourneyLucky
[考研] 工科278分求调剂 +5 周慢热啊 2026-03-12 7/350 2026-03-13 15:49 by JourneyLucky
[考研] 270求调剂 085600材料与化工专硕 +3 YXCT 2026-03-11 3/150 2026-03-13 10:13 by houyaoxu
[考研] 283求调剂,材料、化工皆可 +8 苏打水7777 2026-03-11 10/500 2026-03-13 09:06 by Linda Hu
信息提示
请填处理意见