我想到的方法是让每个参数跟名字对应
type time
real::t(4)
real::name(4)
end type
给t赋值的时候同时给对应的name赋值，然后就是循环了
call getarg(1,par)
do I=1,4
if(trim(adjustl(par)).eq.trim(adjustl(time%name(i)))exit
enddo
write(",")time%t(i)
语法忽略
你再定义一个type吧😄
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024