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