|
◆ 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 351 del file alchimia.F03.
357 integer :: i,j,k,iin,iout 358 logical :: allfoundout, foundout, somefoundin, foundin 359 integer, save :: order,num 360 character(len=10) :: newbin(nmaxb), newbout(nmaxb), tmpbin(nmaxb) 364 if (.not. optio_log(recurse)) then 365 CALL l4f_log(l4f_debug, "oracle: delete and register") 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.
|