libsim Versione 7.2.4
|
◆ fn_display()
Display function objects on screen.
Definizione alla linea 459 del file alchimia.F03. 460 CALL l4f_log(l4f_debug, "oracle: other register "// trim(maybefn%fnds(i)%name))
461 call fnregister(myvfn,maybefn%fnds(i),order)
462 do k=1,count(c_e(maybefn%fnds(i)%bin))
463 tmpbin(firsttrue(.not. c_e(tmpbin)))=maybefn%fnds(i)%bin(k)
464 end do
465 end if
466 end do
467
468 stat = .true.
469
470else
471
472 stat=oracle(newbin,mybout,vfn,myvfn,.true.)
473
|