Nicht-zentriere Tabellenüberschrift vermeiden bei ctable/float mit KOMA-Script (Cross-post tex.SO)

\documentclass{scrartcl}
\usepackage{algpseudocode}
 
% Noch ohne Einstellungen für das Gleiten oder das Verzeichnis,
% siehe dazu ggf. die KOMA-Script-Anleitung oder das -Buch.
\DeclareNewTOC[name=Algorithm,
  type=algorithm,
  atbegin=\KOMAoptions{captions=above},
  float]{alg}
 
% Wenn man denn unbedingt eine Linie über und unter dem
% Algorithmus haben will, dann gehört das an diese Umgebung
% und nicht an die Gleitumgebung gebunden!
\usepackage{etoolbox}
\pretocmd{\algorithmic}{\hrulefill}{}{\undefined}
\apptocmd{\endalgorithmic}{\hrulefill}{}{\undefined}
 
\begin{document}
\begin{algorithm}
\caption{The Bellman-Kalaba algorithm}
\begin{algorithmic}[1]
\Procedure {BellmanKalaba}{$G$, $u$, $l$, $p$}
\ForAll {$v \in V(G)$}
\State $l(v) \leftarrow \infty$
\EndFor
\State $l(u) \leftarrow 0$
\Repeat
\For {$i \leftarrow 1, n$}
\State $min \leftarrow l(v_i)$
\For {$j \leftarrow 1, n$}
\If {$min > e(v_i, v_j) + l(v_j)$}
\State $min \leftarrow e(v_i, v_j)$\State $p(i) \leftarrow v_j$
\EndIf
$+l(v_j)$
\EndFor
\State $l’(i) \leftarrow min$
\EndFor
\State $changed \leftarrow l \not= l’$
\State $l \leftarrow l’$
\Until{$\neg changed$}
\EndProcedure
\Statex
\Procedure {FindPathBK}{$v$, $u$, $p$}
\If {$v = u$}
\State \textbf{Write} $v$
\Else
\State $w \leftarrow v$
\While {$w \not= u$}
\State \textbf{Write} $w$
\State $w \leftarrow p(w)$
\EndWhile
\EndIf
\EndProcedure
\end{algorithmic}
\end{algorithm}
\end{document}