Display shopping lists on screen.
456 do j=1, count(c_e(newbout))
457 if (any(maybefn%fnds(i)%bout(:) == newbout(j))) foundout = .true.
460 CALL l4f_log(l4f_debug,
"oracle: other register "// trim(maybefn%fnds(i)%name))
461 call fnregister(myvfn,maybefn%fnds(i),order)
462 do k=1,count(c_e(maybefn%fnds(i)%bin))
463 tmpbin(firsttrue(.not. c_e(tmpbin)))=maybefn%fnds(i)%bin(k)