# HG changeset patch
# User jwe
# Date 783960287 0
# Node ID 10882039366f6035e29618be73404ace7bf12375
# Parent  fb24794ef0e2bb52f937083438aaddd4efcb2ee9
[project @ 1994-11-04 14:44:47 by jwe]

diff --git a/scripts/control/are.m b/scripts/control/are.m
--- a/scripts/control/are.m
+++ b/scripts/control/are.m
@@ -1,4 +1,4 @@
-# Copyright (C) 1993 John W. Eaton
+# Copyright (C) 1993, 1994 John W. Eaton
 # 
 # This file is part of Octave.
 # 
@@ -76,7 +76,7 @@
 #                     n-1
 # rank ([ B A*B ... A^   *B]) method 
 
-    [d, h] = balance ([a, -b; -c, -a'], opt), "A"
+    [d, h] = balance ([a, -b; -c, -a'], opt);
     [u, s] = schur (h, "A");
     u = d * u;
     n1 = n + 1;