libsim  Versione 7.1.7

◆ 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]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.

114 fnv=fn
115 
116 end subroutine fnv_delete
117 
118 
119 subroutine fnregister(vfn,fn,order)
120 
121 type(fndsv),intent(inout) :: vfn
122 type(fnds),intent(in),optional :: fn
123 integer,optional :: order
124 
125 integer :: nfn
126 type(fndsv) :: vfntmp
127 
128 if (.not. allocated(vfn%fnds))then
129  allocate(vfn%fnds(0))
130  vfn%nout=0
131 end if
132 
133 if (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.