Question

一个Fortran中write语句的问题

IF(IWR.GE.3) WRITE(06,'(I3,2(A,G11.4,A,G12.5),A,G12.5)')
& ITER,' TH. ITERATION: E-DIFF.=',DETOT,
& ' ENERGY=',ETOTAL,' R-DIFF.=',DRMST,
& ' RADIUS=',RMST,' ENREAR=',ENREAR
请问一下WRITE中06后面那一串具体是什么意思

Answer 1

'(I3,2(A,G11.4,A,G12.5),A,G12.5)' 这是输出格式
I3 -- 输出一个整型量，占位3个字符。
2(A,G11.4,A,G12.5), -- 重复使用 格式 (A,G11.4,A,G12.5) 两次，等价于 格式： A,G11.4,A,G12.5，A,G11.4,A,G12.5
这里， A -- 输出一个字符串，G11.4 -- 按G格式输出浮点数，占位11，小数4位，
G12.5 -- 按G格式输出浮点数，占位12，小数5位。
接下来格式 A,G12.5， A -- 输出一个字符串， G12.5 -- 按G格式输出浮点数，占位12，小数5位。
& 是续行符。 ITER 开始是输出的变量 表，对应前述格式输出。ITER 用 I3.
印字符串 TH. ITERATION: E-DIFF.=。DETOT 按格式 G11.4输出。
印字符串 ENERGY=。 ETOTAL 按格式 G12.5输出。
印字符串 R-DIFF.=。 DRMST 按格式 G11.4输出。
印字符串 RADIUS=。 RMST 按格式 G12.5输出。
印字符串 ENREAR=。 ENREAR 按格式 G12.5输出。