|
◆ fnregister()
subroutine fnregister |
( |
type(fndsv), intent(inout) |
vfn, |
|
|
type(fnds), intent(in), optional |
fn, |
|
|
integer, optional |
order |
|
) |
| |
Register a function object in the vector function object.
If called without argoments allocate vectors to (0) if order is present force the order of added function - Parametri
-
[in,out] | vfn | vector function object to ampliate |
[in] | fn | function object to add |
| order | order to execute the new added function object |
Definizione alla linea 395 del file alchimia.F03.
396 CALL l4f_log(l4f_debug, "oracle: register "//trim(vfn%fnds(i)%name))
397 call fnregister(maybefn,vfn%fnds(i),order)
398 do k=1, size(vfn%fnds(i)%bout)
399 tmpbin(firsttrue(.not. c_e(tmpbin)))=vfn%fnds(i)%bout(k)
400 newbout(firsttrue(.not. c_e(newbout)))=vfn%fnds(i)%bout(k)
406 do i = 1, count(c_e(tmpbin))
407 newbin(firsttrue(.not. c_e(newbin)))=tmpbin(i)
416 if (.not. somefoundin) return
417 if (num == count(c_e(maybefn%fnds))) return
421 do i=1, count(c_e(mybout))
423 do j =1, count(c_e(newbout))
424 if (newbout(j) == mybout(i)) foundout = .true.
426 if (.not. foundout) allfoundout = .false.
|