求助read (rstplt) recordid

heuwcy · 发表于 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 没太看懂，彭国伦老师书中关于读写部分没看到类似的写法，有大佬指点一下吗，感谢。