输出一个很长的数据到文件的同一行

Fine_YL

也可以这样
write(1,'(100E)') (points(i,1),i=1,n_points)

一行要输出的不多的二维数组，可以直接
do i=1,n
    write(1,*)(a(i,j),j=1,3)
end do