Display shopping lists on screen.
- Parametri
-
[in] | sl | shopping lists to display |
Definizione alla linea 450 del file alchimia.F03.
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))