|
◆ 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 400 del file alchimia.F03.
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. 431 if (allfoundout) then
|