|
◆ init_fn()
subroutine alchimia::init_fn |
( |
class(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 |
- 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 126 del file alchimia_full_2003.F03.
126 type(fndsv) :: vfntmp 128 if (.not. allocated(vfn%fnds)) then 129 allocate(vfn%fnds(0)) 135 if (firsttrue(vfn%fnds == fn) /= 0) return 138 allocate(vfntmp%fnds(nfn+1)) 140 vfntmp%fnds(:nfn)=vfn%fnds 142 call move_alloc(from=vfntmp%fnds ,to=vfn%fnds) 145 if ( present(order)) vfn%fnds(nfn+1)%order = order 147 vfn%nout=vfn%nout+ size(fn%bout) 151 end subroutine fnregister 154 elemental logical function c_e_fn(fn) 155 class(fnds), intent(in) :: fn
|