libsim  Versione6.3.0

◆ fnv_display_byorder()

subroutine alchimia::fnv_display_byorder ( type(fndsv), intent(in)  fnv,
integer, intent(in)  order 
)
private

Display vector function objects on screen selected by order.

Parametri
[in]fnvvector function object to display
[in]orderlevel for recursice search of functions

Definizione alla linea 520 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
529  end if
530  end do
531 
532 end if

Generated with Doxygen.