[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