[输入输出] 输出为1750254-6这种格式，求助

Program www_fcode_cn
  Implicit none
  write( * , * ) W( 1.750254E+00 )

contains
  Character(len=9) Function W( r )
    real :: r
    character(len=11) :: t
    write( t , '(es11.6e1)' ) r*1e-6
    W = t(1:1) // t(3:8) // t(10:11)
  End Function W
End Program www_fcode_cn