|
◆ 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] | vfn | vector of function descriptors into register |
[in] | bin | vector 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))
319 print *, "-------------------------------------------------"
320 end subroutine fnv_display_byorder
|