libsim Versione 7.2.4

◆ init_fn()

subroutine 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]fnfunction object to create
namedescription of function
binstandard table B descriptor for input parameters
boutstandard table B descriptor for output parameters
priorityrelative priority for choise from functions with same output
orderorder to execute functions
funcfunction with the abstract interface

Definizione alla linea 113 del file alchimia_full_2003.F03.

114fnv=fn
115
116end subroutine fnv_delete
117
118
119subroutine fnregister(vfn,fn,order)
120
121type(fndsv),intent(inout) :: vfn
122type(fnds),intent(in),optional :: fn
123integer,optional :: order
124
125integer :: nfn
126type(fndsv) :: vfntmp
127
128if (.not. allocated(vfn%fnds))then
129 allocate(vfn%fnds(0))
130 vfn%nout=0
131end if
132
133if (present(fn))then
134
135 if (firsttrue(vfn%fnds == fn) /= 0) return
136 nfn=size(vfn%fnds)
137
138 allocate(vfntmp%fnds(nfn+1))
139
140 vfntmp%fnds(:nfn)=vfn%fnds
141
142 call move_alloc(from=vfntmp%fnds ,to=vfn%fnds)
143
144 vfn%fnds(nfn+1)=fn
145 if (present(order)) vfn%fnds(nfn+1)%order = order
146

Generated with Doxygen.