Transfer a group’s contents without copying any polymorphic key box (descriptor moves only — see schema_add_group).
| Type | Intent | Optional | Attributes | Name | ||
|---|---|---|---|---|---|---|
| type(nml_group_t), | intent(inout) | :: | src | |||
| type(nml_group_t), | intent(inout) | :: | dst |
subroutine move_group(src, dst) !! Transfer a group's contents without copying any polymorphic !! key box (descriptor moves only — see [[schema_add_group]]). type(nml_group_t), intent(inout) :: src type(nml_group_t), intent(inout) :: dst if (allocated(src%name)) call move_alloc(src%name, dst%name) if (allocated(src%doc)) call move_alloc(src%doc, dst%doc) if (allocated(src%keys)) call move_alloc(src%keys, dst%keys) dst%found = src%found dst%cross_check => src%cross_check src%cross_check => null() end subroutine move_group