[Octave-cvsupdate] SF.net SVN: octave:[9895] trunk/octave-forge/main/ga/inst/rastriginsfcn.m

[<sla...@us...>]

Revision: 9895
          http://octave.svn.sourceforge.net/octave/?rev=9895&view=rev
Author:   slackydeb
Date:     2012-03-15 02:23:15 +0000 (Thu, 15 Mar 2012)
Log Message:
-----------
ga: check nargout before nargin (style fix)

Modified Paths:
--------------
    trunk/octave-forge/main/ga/inst/rastriginsfcn.m

Modified: trunk/octave-forge/main/ga/inst/rastriginsfcn.m
===================================================================
--- trunk/octave-forge/main/ga/inst/rastriginsfcn.m	2012-03-15 02:23:03 UTC (rev 9894)
+++ trunk/octave-forge/main/ga/inst/rastriginsfcn.m	2012-03-15 02:23:15 UTC (rev 9895)
@@ -1,4 +1,4 @@
-## Copyright (C) 2008, 2009, 2010 Luca Favatella <sla...@gm...>
+## Copyright (C) 2008, 2009, 2010, 2012 Luca Favatella <sla...@gm...>
 ##
 ## This program is free software; you can redistribute it and/or modify
 ## it under the terms of the GNU General Public License as published by
@@ -22,8 +22,8 @@
 ## Version: 2.0
 
 function retval = rastriginsfcn (x)
-  if ((nargin != 1) || (nargout != 1) ||
-      (columns (x) != 2))
+  if ((nargout != 1) ||
+      (nargin != 1) || (columns (x) != 2))
     print_usage ();
   else
     x1 = x(:, 1);

This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.