|
◆ fn_init()
subroutine alchimia::fn_init |
( |
type(fnds), intent(inout) |
fn, |
|
|
character(len=*), optional |
name, |
|
|
character(len=*), dimension(:), optional |
bin, |
|
|
character(len=*), dimension(:), optional |
bout, |
|
|
integer, optional |
priority, |
|
|
integer, optional |
order, |
|
|
procedure (elabora), optional |
func |
|
) |
| |
|
private |
Inizialize a function object.
- Parametri
-
[in,out] | fn | function object to create |
| name | description of function |
| bin | standard table B descriptor for input parameters |
| bout | standard table B descriptor for output parameters |
| priority | relative priority for choise from functions with same output |
| order | order to execute functions |
| func | function with the abstract interface |
Definizione alla linea 366 del file alchimia.F03.
367 call delete(usefullfn) 369 call fnregister(maybefn) 370 call fnregister(usefullfn) 371 call fnregister(myvfn) 375 CALL l4f_log(l4f_debug, "oracle: order "//t2c(order)) 377 newbin(: size(mybin))=mybin 379 newbout(: size(mybin))=mybin 383 somefoundin = .false. 384 num=count(c_e(maybefn%fnds)) 388 do i =1, count(c_e(vfn%fnds)) 390 do j = 1, count(c_e(vfn%fnds(i)%bin(:))) 391 if (.not. any(vfn%fnds(i)%bin(j) == newbin)) foundin = .false. 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)
|