libsim  Versione 7.1.9

◆ fn_init()

subroutine alchimia::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.

347 logical,optional :: recurse
348 
349 type(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 
357 integer :: i,j,k,iin,iout
358 logical :: allfoundout, foundout, somefoundin, foundin
359 integer,save :: order,num
360 character(len=10) :: newbin(nmaxb), newbout(nmaxb), tmpbin(nmaxb)
361 
362 
363 ! delete only on the main call
364 if (.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
373 end if
374 
375 CALL l4f_log(l4f_debug, "oracle: order "//t2c(order))
376 newbin=cmiss
377 newbin(:size(mybin))=mybin
378 newbout=cmiss
379 newbout(:size(mybin))=mybin

Generated with Doxygen.