marker_obj_assign Subroutine

    pure subroutine marker_obj_assign(this,val)
      !> Assignment
      implicit none
      class(marker_obj),     intent(inout) :: this                             !! An element from the IB tessellation
      class(lagrangian_obj), intent(in)    :: val                              !! An element from the IB tessellation
      select type (val)
      class is (marker_obj)
        this%id   = val%id
        this%p    = val%p
        this%c    = val%c
        this%s    = val%s
        this%t    = val%t
        this%SA   = val%SA
        this%n    = val%n
        this%v    = val%v
        this%f    = val%f
        this%pold = val%pold
        this%vold = val%vold
      end select

      return
    end subroutine marker_obj_assign