|
|
[求助]
帮忙讲解一下 文件的读取
帮忙讲解一下
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人回复
» 本主题相关价值贴推荐，对您同样有帮助:
|
回复此楼
