从循环的多次迭代输出到单行

Question

这是我的代码：

Program Output_Format

Implicit none

Integer::k
Integer,parameter:: Br_nn_mre = 11
Character(56),parameter:: FMT_01 = '(1x,"NN_0",i0)'
Character(56),parameter:: FMT_02 = '(1x,"NN_",i0)'


Open( 15 , File = 'Output.txt' , Status = 'Unknown' , Action = 'Write' )

    Do k = 1 , Br_nn_mre

       If ( k < 10) Write( 15 , FMT_01 ) k
       If ( k > 9 ) Write( 15 , FMT_02 ) k

    End do

Close( 15 , Status = 'Keep' )


End Program Output_Format

Output.txt的内容是：

  NN_01
  NN_02
  ....
  NN_11

我的意图是将Output.txt中的所有内容全部放在一行中：

NN_01 NN_02 ... NN_11

如果我想要这样做，我必须对FMT_01和FMT_02进行哪些更改？