libsim Versione 7.1.11
|
◆ fnv_display_byorder()
Display vector function objects on screen selected by order.
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
|