assign Subroutine

  subroutine assign(this, rhs)
    !* Author: Chris MacMackin
    !  Date: January 2017
    !
    ! Safely assigns the value of one coriolis block to another.
    !
    class(coriolis_block), intent(inout) :: this
    class(coriolis_block), intent(in)  :: rhs
      !! The value being assigned
    this%D_r = rhs%D_r
    this%D_i = rhs%D_i
    this%emDxVinv_r = rhs%emDxVinv_r
    this%emDxVinv_i = rhs%emDxVinv_i
    this%eDx_r = rhs%eDx_r
    this%eDx_i = rhs%eDx_i
    this%V_r = rhs%V_r
    this%V_i = rhs%V_i
    this%integrator = rhs%integrator
    this%vel_bound_loc = rhs%vel_bound_loc
    this%dvel_bound_loc = rhs%dvel_bound_loc
    this%integrate_bound = rhs%integrate_bound
    this%xbounds= rhs%xbounds
    this%bound_matrix = rhs%bound_matrix
    this%bound_matrix_scaled = rhs%bound_matrix_scaled
    this%factored_matrix = rhs%factored_matrix
    this%pivots = rhs%pivots
    this%r_scales = rhs%r_scales
    this%c_scales = rhs%c_scales
    this%equed = rhs%equed
  end subroutine assign