libsim Versione 7.1.11

◆ fnv_display_byorder()

subroutine 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 500 del file alchimia.F03.

501
502stat=.true.
503newbout=cmiss
504vfntmp=vfn
505
506! delete only on the main call
507if (.not. optio_log(recurse)) then
508 CALL l4f_log(l4f_debug, "shoppinglist: main call (delete and register)")
509
510 call delete(myvfn)
511 call fnregister(myvfn)
512 order=0
513 newbout(:size(mybout))=mybout

Generated with Doxygen.