按数值创建字符串

Question

我正在尝试创建一个将各种数值放在一起的字符串，以便我可以使用它来修改程序输出文件的名称。 我的代码看起来像

PROGRAM main

common filename
character (len=35) :: filename


mass=1.00E+10
radius=1.00E+03
nu=03.0
tau = 0.5

write(filename,7893) "_M",mass,"_nu",nu,"_tau",tau,"_Reff",radius
7893    format(A2,E6.2E2,A3,F4.1,A4,F3.1,A5,E5.2E2)

END


SUBROUTINE sub(...,...,...)
common filename
character (LEN=35) :: filename

open(333,file="./resultsNEW/Output"//mvalue//".res")    

END

所以，我希望输出文件的名称是

Output_M1.00E+10_nu03.0_tau0.5_Reff1.00E+03.res

但相反，我得到了

Output_M********_nu 3.0_tau0.5_Reff***** .res

即，它适用于变量nu和tau，但它没有质量和半径......我在这里做错了什么？