|
◆ 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 415 del file alchimia.F03.
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. 431 if (allfoundout) then 440 newbout(: size(mybout))=mybout 443 do i = count(c_e(maybefn%fnds)),1,-1 444 if (maybefn%fnds(i)%order /= order) then 445 CALL l4f_log(l4f_debug, "oracle: change order "//t2c(maybefn%fnds(i)%order)) 446 order=maybefn%fnds(i)%order 447 iin=count(c_e(tmpbin)) 448 iout=count(c_e(newbout)) 449 newbout(iout+1:iout+iin)=tmpbin(:iin)
|