|
◆ 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 113 del file alchimia_full_2003.F03.
116 end subroutine fnv_delete
119 subroutine fnregister(vfn,fn,order)
121 type(fndsv), intent(inout) :: vfn
122 type(fnds), intent(in), optional :: fn
123 integer, optional :: order
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
|