nodup
/infobank/programs/util/nodup/nodup.for
Program to eliminate duplicate records in a file.
read (90, '(q,a)', end = 99) * lastlength, lastline(1:lastlength) read (90, '(q,a)', end = 99) length, aline(1:length)
write (91, '(a)') lastline(1:lastlength)
call openem (1,-1)