copy_map Subroutine

  1. mimic_types.f90
  2. mimic_types
  3. copy_map

private subroutine copy_map(dest, source)

add an overlap entry to the map

Arguments

TypeIntentOptionalAttributesName
class(map_type), intent(out) :: dest
class(map_type), intent(in) :: source

Contents

Source Code

copy_map

Source Code

subroutine copy_map(dest, source)

    class(map_type), intent(out) :: dest
    class(map_type), intent(in) :: source

    if(allocated(dest%codes)) deallocate(dest%codes)
    if(allocated(dest%atoms)) deallocate(dest%atoms)

    allocate(dest%codes, source=source%codes)
    allocate(dest%atoms, source=source%atoms)

    dest%id=source%id

end subroutine copy_map