| 查看: 3227 | 回复: 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中的意义？谢谢！ |
回复此楼» 猜你喜欢
估计是周四
已经有3人回复
-
基金啊基金
已经有3人回复
-
科研孤儿太难了
已经有15人回复
-
让我中一个面上吧！
已经有10人回复
-
言之凿凿，明天官网会通知放榜？
已经有17人回复
-
时间戳又变了
已经有17人回复
-
今天系统多次维护，明天很可能放榜！
已经有11人回复
-
时间戳变了，能看出什么问题？
已经有23人回复
-
只有每年这种时候来逛逛小木虫
已经有22人回复
-
放榜前的不淡定
已经有12人回复
» 本主题相关价值贴推荐，对您同样有帮助:
- 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人回复
maomao1210
金虫 (正式写手)
- 程序强帖: 5
- 应助: 2 (幼儿园)
- 金币: 1432.8
- 散金: 242
- 红花: 16
- 沙发: 1
- 帖子: 991
- 在线: 442.1小时
- 虫号: 253215
- 注册: 2006-05-20
- 性别: MM
- 专业: 考古理论
【答案】应助回帖
★ ★ ★
余泽成(金币+3): 辛苦了！ 2011-12-02 17:29:46
ben_ladeng: 专家考核存档 2011-12-11 10:05:54
余泽成(金币+3): 辛苦了！ 2011-12-02 17:29:46
ben_ladeng: 专家考核存档 2011-12-11 10:05:54
|
我估计你的自定义类型desets_list应该是这样的： type dtsets_list private type(dtset_list),pointer :: tmplst integer :: id **,pointer :: dtsets(  end type 那个do 循环，程序会从链表头开始寻找，一级一级的往链表尾移动，移动到到某个链表节点的id 与输入相同的时候，就把剩余的链表赋值给链表token，链表尾是个nullify空指针，图片中的if那句保证了会跳出循环的。 明白了否？   |
8楼2011-12-01 09:32:49
snoopyzhao
至尊木虫 (职业作家)
- 程序强帖: 16
- 应助: 157 (高中生)
- 贵宾: 0.02
- 金币: 18844.7
- 红花: 29
- 帖子: 3803
- 在线: 1422.4小时
- 虫号: 183750
- 注册: 2006-02-13
- 专业: 污染生态化学
2楼2011-11-30 22:42:00
3楼2011-11-30 23:08:25
snoopyzhao
至尊木虫 (职业作家)
- 程序强帖: 16
- 应助: 157 (高中生)
- 贵宾: 0.02
- 金币: 18844.7
- 红花: 29
- 帖子: 3803
- 在线: 1422.4小时
- 虫号: 183750
- 注册: 2006-02-13
- 专业: 污染生态化学
4楼2011-11-30 23:19:53
40