Fortran链表提取不重复的顺序数组

从散射实验数据中提取elab这一项，按顺序排列输出不重复的
数据格式为：

obsname-elab--acm------obsx------------error--------------ref

DSG     2.72  130.000   0.19556E+03   0.72360E+01  HR(69)
DSG     2.72  150.000   0.17777E+03   0.23620E+02  HR(69)
DSG     3.01  130.000   0.18405E+03   0.68100E+01  HR(69)
DSG     3.01  150.000   0.15368E+03   0.18037E+02  HR(69)
DSG     3.33  130.000   0.17292E+03   0.63980E+01  HR(69)
P       7.60  108.000   0.39000E-02   0.70000E-03  WE(92)
P       7.60  124.800   0.35000E-02   0.60000E-03  WE(92)
P      10.03   44.500   0.10190E-01   0.98000E-03  HO(88)
AYY    13.70   90.000   0.78000E-01   0.14000E-01  SC(88)
AYY    14.00   90.000   0.60000E-01   0.40000E-01  SC(88)
AYY    19.50   60.300   0.18400E+00   0.16000E-01  KL(00)
。。。。。。。

Fortran代码如下：

program link_list

implicit none

integer,parameter	:: NER=kind(0.0D0)

integer :