libsim  Versione7.2.6

◆ 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 126 del file alchimia_full_2003.F03.

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 
147  vfn%nout=vfn%nout+size(fn%bout)
148 
149 end if
150 
151 end subroutine fnregister
152 
153 
154 elemental logical function c_e_fn(fn)
155 class(fnds),intent(in) :: fn
156 
157 c_e_fn= c_e(fn%name)
158 

Generated with Doxygen.