program getlablist C****||************************************************************ integer dallist integer i integer nlabels integer listlen integer reflist( 20 ) character*15 labellist( 20 ) character*9 ddname /'dd:myfile'/ write( 6,* ) ' startpos: 1 ', ' nlabels: ', nlabels nlabels = dallist( ddname, 700, reflist, labellist, ^ 20, 15, 1 ) write( 6,* ) ' nlabels: ', nlabels do 100 i = 1,nlabels write( 6,* ) ' Ref number: ', reflist( i ), ^ ' Label: ', labellist( i ) 100 continue stop end