SetThresholds_RefinementIndicator2D_t Subroutine

  subroutine SetThresholds_RefinementIndicator2D_t(this,refineThreshold,coarsenThreshold)
    !! Update the refine/coarsen thresholds without rebuilding the transform.
    implicit none
    class(RefinementIndicator2D_t),intent(inout) :: this
    real(prec),intent(in) :: refineThreshold
    real(prec),intent(in) :: coarsenThreshold

    if(refineThreshold <= coarsenThreshold) then
      print*,__FILE__,':',__LINE__, &
        ' : Error : refineThreshold must be greater than coarsenThreshold.'
      stop 1
    endif
    this%refineThreshold = refineThreshold
    this%coarsenThreshold = coarsenThreshold

  endsubroutine SetThresholds_RefinementIndicator2D_t