libsim Versione 7.2.1

◆ 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 307 del file alchimia.F03.

308integer,intent(in) :: order
309
310integer :: i
311
312print *,"-------------------------------------------------"
313print *, "Here the function tree for order: ",order
314do i = count(c_e(fnv%fnds)),1,-1
315 if (fnv%fnds(i)%order == order ) then
316 call display(fnv%fnds(i))

Generated with Doxygen.