如图所示横着数据从左往右依次排列，然后开始第二行，现在想把所有数据竖着排，先前的数据先后顺序不变，

下边的程序可以实现

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

写出来的数据