copy_maps Subroutine

  1. mimic_types.f90
  2. mimic_types
  3. copy_maps

private subroutine copy_maps(dest, source)

add an overlap entry to the map

Arguments

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

Contents

Source Code

copy_maps

Source Code

subroutine copy_maps(dest, source)

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

    dest%maps = source%maps

    ! 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_maps