Mercurial > octave-nkf

diff scripts/elfun/lcm.m @ 2312:204cc7db6f4a
[project @ 1996-07-11 21:20:36 by jwe]
author: jwe
date: Thu, 11 Jul 1996 21:20:36 +0000
parents: 2b5788792cad
children: 5ca126254d15
--- a/scripts/elfun/lcm.m	Thu Jul 11 20:18:38 1996 +0000
+++ b/scripts/elfun/lcm.m	Thu Jul 11 21:20:36 1996 +0000
@@ -23,11 +23,12 @@
 ## integer vector a.
 ## lcm (a1, ..., ak) is the same as lcm([a1, ..., ak]).
 
+## Author: KH <Kurt.Hornik@ci.tuwien.ac.at>
+## Created: 16 September 1994
+## Adapted-By: jwe
+
 function l = lcm (a, ...)
 
-## Written by KH (Kurt.Hornik@ci.tuwien.ac.at) on Sep 16, 1994.
-
-  if (nargin > 1)
     va_start;
     for k = 2:nargin;
       a = [a, (va_arg ())];