libsim  Versione 7.1.8

◆ sl_display()

subroutine alchimia::sl_display ( type(shoplists), intent(in)  sl)
private

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.