还是关于处理站点数据的疑问，请教大家

gercibee

这个程序中a是站点号的循环。i是多个逐日站点数据文件的循环。q是第i个逐日站点文件的第一列从头到最后一行的循环，这样是判断逐日站点数据中第一列的站点与a中的站点号相同就写出来。这样一个站点保存为一个文件。可是这个程序的结果是所有站点号相同的数据全部写到一个文件中了。我想请问一下这个文件该如何修改一下，或者有没有命令能终止write_matrix (data, "13f12.1" , opt)命令继续写数据的命令呢？
do a = 0 , 717
        do i =  0 , 1
            data := asciiread(fils(i),(/nrow(i),13/),"float")
            do q = 0 , (nrow(i))-1
                if (data(q,0) .eq. lines(a)) then
                    opt = True
                    opt@fout ="./"+ flt2string(lines(a))+".txt"
                    data@_FillValue =  9.96921e+36
                    write_matrix (data, "13f12.1" , opt)
                  ; print(data(q,0))
                  ; printVarSummary(data)
                end if
            end do
            delete(data)
        end do
    end do
end