想用fortran进行数据的重新排列组合，向大神求一算法。原始数据是多行两列的数据，想把有公共数据的行写成一行且公共数据只出现一次。关键是公共数据不是固定的，下面是一个小例子，第一行和第二行的第一列有相同数22875，而第一行第二列的数据30588又出现在了第五行和第六行，需要把这些数据写成一行，如果没有公共数据，就按原始数据写出。非常感谢您的帮助！

原始数据

22875    30588    

22875    34747        

22912    34851

22963    35901     

22969    30588

30588    40791

30609    39143     

30609    40808

重新排列后

22875    30588   34747  22969  40791 

22912    34851 

22963    35901

30609    39143   40808