public static function Tr(array $r, array &$rt) {
    $wm = [];
    $i;
    $j;

    for ($i = 0; $i < 3; $i++) {
      for ($j = 0; $j < 3; $j++) {
        $wm[$i][$j] = $r[$j][$i];
      }
    }
    IAU::Cr($wm, $rt);

    return;
  }