libsim Versione 7.1.11
|
◆ sl_display()
Display shopping lists on screen.
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))
|