Fortran Coder

查看: 137|回复: 3

[输入输出] 求助read (rstplt) recordid

[复制链接]

7

帖子

4

主题

0

精华

入门

F 币
40 元
贡献
18 点
发表于 2022-5-30 10:20:07 | 显示全部楼层 |阅读模式
本帖最后由 kyra 于 2022-5-30 10:42 编辑

[Fortran] 纯文本查看 复制代码
subroutine cntrlread
!  Reads module data from restart-plot file.
!
       read (rstplt) recordid
       inquire (iolength=lent)
     & countn,cpurem(:),dt,dtht,dthy,dtn,emass,emasso,errhld,errmax,
     & gravcn,stdtrn,testda(:),timeht,timehy,tmass,tmasso,
     & cpurei(:),done,help,iextra,ihlppr(:),imdctl(:),iplotlen,
     & iroute,nany,ncase,ncount,nrepet,nstsp,pageno,print,succes,
     & aflag,chngno(:),fail,nmechk,skipt,uniti,unito
       if (recordid%rectyp.ne.'contrl' .or. recordid%nn.ne.0 .or.
     & recordid%noitm.ne.lent) call fabend
       read (rstplt)
     & countn,cpurem(:),dt,dtht,dthy,dtn,emass,emasso,errhld,errmax,
     & gravcn,stdtrn,testda(:),timeht,timehy,tmass,tmasso,
     & cpurei(:),done,help,iextra,ihlppr(:),imdctl(:),iplotlen,
     & iroute,nany,ncase,ncount,nrepet,nstsp,pageno,print,succes,
     & aflag,chngno(:),fail,nmechk,skipt,uniti,unito
       end subroutine cntrlread


本人在做代码解读,上述代码中 read (rstplt) recordid 没太看懂,彭国伦老师书中关于读写部分没看到类似的写法,有大佬指点一下吗,感谢。

185

帖子

0

主题

0

精华

版主

World Analyser

F 币
451 元
贡献
374 点

新人勋章美女勋章元老勋章热心勋章规矩勋章管理勋章

QQ
发表于 2022-5-30 10:39:46 | 显示全部楼层
rstplt 是个变量(或常量),你替换成它的值,就明白了。比如 rstplt = 12
那么 read(12) recordid 你就明白了,是吧?

7

帖子

4

主题

0

精华

入门

F 币
40 元
贡献
18 点
 楼主| 发表于 2022-5-30 11:00:13 | 显示全部楼层
kyra 发表于 2022-5-30 10:39
rstplt 是个变量(或常量),你替换成它的值,就明白了。比如 rstplt = 12
那么 read(12) recordid 你就明 ...

在这个模块里 没看到关于rstplt的变量定义,我以为是在路径查找文件名的文本,我再仔细检查下。

185

帖子

0

主题

0

精华

版主

World Analyser

F 币
451 元
贡献
374 点

新人勋章美女勋章元老勋章热心勋章规矩勋章管理勋章

QQ
发表于 2022-5-30 14:31:19 | 显示全部楼层
看看是否 use 了其他模块。rstplt 是否在其他模块定义
您需要登录后才可以回帖 登录 | 极速注册

本版积分规则

捐赠本站|Archiver|关于我们 About Us|Fcode ( 京ICP备18005632-2号 )

GMT+8, 2022-7-5 21:35

Powered by Tencent X3.4

© 2013-2022 Tencent

快速回复 返回顶部 返回列表