libsim Versione 7.2.4

◆ sl_display()

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

Display shopping lists on screen.

Parametri
[in]slshopping lists to display

Definizione alla linea 444 del file alchimia.F03.

445 CALL l4f_log(l4f_debug, "oracle: change order "//t2c(maybefn%fnds(i)%order))
446 order=maybefn%fnds(i)%order
447 iin=count(c_e(tmpbin))
448 iout=count(c_e(newbout))
449 newbout(iout+1:iout+iin)=tmpbin(:iin)
450 tmpbin=cmiss
451 end if
452
453 !print *,"search:",newbout(:firsttrue(.not. c_e(newbout)))
454

Generated with Doxygen.