libsim Versione 7.2.0

◆ 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 340 del file alchimia.F03.

341!! provide to you the road to execute for make the output
342recursive logical function oracle(mybin,mybout,vfn,myvfn,recurse) result(stat)
343type(fndsv),intent(in) :: vfn
344character(len=*),intent(in) :: mybin(:)
345character(len=*),intent(in) :: mybout(:)
346type(fndsv),intent(out) :: myvfn
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

Generated with Doxygen.