libsim Versione 7.1.11

◆ register_copy()

subroutine, public 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.

314do 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
318end do
319print *,"-------------------------------------------------"
320end subroutine fnv_display_byorder
321
322

Generated with Doxygen.