libsim Versione 7.1.11
|
◆ vfnv_display()
Display vector function objects on screen.
Definizione alla linea 519 del file alchimia.F03. 520
521 !print*,pack(newbout,c_e(newbout))
522
523 do i=1, count(c_e(myvfn%fnds(:)))
524 !print*,"order:",myvfn%fnds(i)%order, order
525 if (myvfn%fnds(i)%order == order) then
526 do k=1,size(myvfn%fnds(i)%bin(:))
527 newbout(firsttrue(.not. c_e(newbout)))=myvfn%fnds(i)%bin(k)
528 end do
|