libsim  Versione7.2.1

◆ sl_display()

subroutine sl_display ( type(shoplists), intent(in)  sl)

Display shopping lists on screen.

Parametri
[in]slshopping lists to display

Definizione alla linea 455 del file alchimia.F03.

455  foundout = .false.
456  do j=1, count(c_e(newbout))
457  if (any(maybefn%fnds(i)%bout(:) == newbout(j))) foundout = .true.
458  end do
459  if (foundout) then
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)
464  end do

Generated with Doxygen.