libsim Versione 7.1.11

◆ sl_display()

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

Display shopping lists on screen.

Parametri
[in]slshopping lists to display

Definizione alla linea 450 del file alchimia.F03.

451 end if
452
453 !print *,"search:",newbout(:firsttrue(.not. c_e(newbout)))
454
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))

Generated with Doxygen.