|
◆ 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 346 del file alchimia.F03.
347 logical, optional :: recurse
349 type(fndsv), save :: usefullfn,maybefn
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
|