这是我的代码:
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
进行哪些更改?