pro hto READCOL,'F: 1.txt',F='F,F,F,F',x11,x12,x13,x14 READCOL,'F: 1.txt',F='F,F,F,F,F,F,F,F',x1,x2,x3,x4,x5,x6,x7,x8 n1=n_elements(x11) n2=n_elements(x1) n3=n2*8+4 x=dblarr(n3) for j=0,n2-1 do begin for i=0,n2-1 do begin x[j]=x1[i] x[j+1]=x2[i] x[j+2]=x3[i] x[j+3]=x4[i] x[j+4]=x5[i] x[j+5]=x6[i] x[j+6]=x7[i] x[j+7]=x8[i] j=j+8 endfor endfor x[n3-4]=x11[n1-1] x[n3-3]=x12[n1-1] x[n3-2]=x13[n1-1] x[n3-1]=x14[n1-1] openw,1,'f: 1li.txt' for j=0,n3-1 do begin printf,1,format='(d9.7)',x[j] endfor close,1 end