libsim Versione 7.1.11
|
◆ fn_init()
Inizialize a function object.
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
|