关于fortran输出不换行的问题！！跪求

Question

open(10,file='wedge_deck.txt')
write(10,*)"F_deck=",F_deck
write(10,*)"E_deck=",E_deck

怎么做到输出到txt文件中不换行？求大神！

Answer 1

在格式语句中加入斜杠"\"表示不换行输出；加入反斜杠"/"表示换行输出。

例如：输出三角阵
k=0
do 10 i=1,8
do 20 j=1,8
k=k+1
if (j.le.i) write(*,100)k
20 continue 
write(*,*)
10 continue
100 format(1x,i5\)
end

＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝
结果为：
    1 
    9    10 
   17    18    19 
   25    26    27    28 
   33    34    35    36    37 
   41    42    43    44    45    46 
   49    50    51    52    53    54    55 
   57    58    59    60    61    62    63    64