libsim  Versione 7.1.6

◆ register_copy()

subroutine, public alchimia::register_copy ( type(fndsv), intent(inout)  vfn,
character(len=10), dimension(:), intent(in)  bin 
)

Register the copy function to be able to copy input variables to output if requested.

Parametri
[in,out]vfnvector of function descriptors into register
[in]binvector table B WMO input in user's data

Definizione alla linea 313 del file alchimia.F03.

314 do i = count(c_e(fnv%fnds)),1,-1
315  if (fnv%fnds(i)%order == order ) then
316  call display(fnv%fnds(i))
317  end if
318 end do
319 print *,"-------------------------------------------------"
320 end subroutine fnv_display_byorder
321 
322 

Generated with Doxygen.