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