libsim Versione 7.1.11

◆ fn_init()

subroutine fn_init ( type(fnds), intent(inout)  fn,
character(len=*), optional  name,
character(len=*), dimension(:), optional  bin,
character(len=*), dimension(:), optional  bout,
integer, optional  priority,
integer, optional  order,
procedure (elabora), optional  func 
)
private

Inizialize a function object.

Parametri
[in,out]fnfunction object to create
namedescription of function
binstandard table B descriptor for input parameters
boutstandard table B descriptor for output parameters
priorityrelative priority for choise from functions with same output
orderorder to execute functions
funcfunction with the abstract interface

Definizione alla linea 346 del file alchimia.F03.

347logical,optional :: recurse
348
349type(fndsv),save :: usefullfn,maybefn
350
351!!$type(arrayof_fnds) :: tmp
352!!$tmp = arrayof_fnds_new()
353!!$append(tmp,myfn(1))
354!!$CALL packarray(tmp)
355!!$print *,tmp%array
356
357integer :: i,j,k,iin,iout
358logical :: allfoundout, foundout, somefoundin, foundin
359integer,save :: order,num
360character(len=10) :: newbin(nmaxb), newbout(nmaxb), tmpbin(nmaxb)
361
362
363! delete only on the main call
364if (.not. optio_log(recurse)) then
365 CALL l4f_log(l4f_debug, "oracle: delete and register")
366 call delete(maybefn)
367 call delete(usefullfn)
368 call delete(myvfn)
369 call fnregister(maybefn)
370 call fnregister(usefullfn)
371 call fnregister(myvfn)
372 order=0
373end if
374
375CALL l4f_log(l4f_debug, "oracle: order "//t2c(order))
376newbin=cmiss
377newbin(:size(mybin))=mybin
378newbout=cmiss
379newbout(:size(mybin))=mybin

Generated with Doxygen.