x=401 character*50 fmt write(fmt,'(''('', i0,''(f7.2))'')') x
风平老涡 发表于 2021-10-9 20:09 就是把数值变量 x 的值写入字符串变量 fmt。最后得到 fmt = (401(f7.2))