! Support for the FIND command
!   Set the line names when the catalog is at the LINEDB format
if lines%n.le.0 return
define character*32 lines%lines[lines%n] lines%plot[lines%n] /global
for k 1 to lines%n
  let lines%plot[k] 'lines%species[k]'" ("'lines%qnup[k]'"\s|"'lines%qnlow[k]'")" 
  let lines%lines[k] 'lines%species[k]'" ("'lines%qnup[k]'"->"'lines%qnlow[k]'")" 
next
