Revision: 6585
http://octave.svn.sourceforge.net/octave/?rev=6585&view=rev
Author: paramaniac
Date: 2009-12-03 12:05:54 +0000 (Thu, 03 Dec 2009)
Log Message:
-----------
control-oo: add missing file for h2syn
Added Paths:
-----------
trunk/octave-forge/extra/control-oo/src/select.f
Added: trunk/octave-forge/extra/control-oo/src/select.f
===================================================================
--- trunk/octave-forge/extra/control-oo/src/select.f (rev 0)
+++ trunk/octave-forge/extra/control-oo/src/select.f 2009-12-03 12:05:54 UTC (rev 6585)
@@ -0,0 +1,27 @@
+ LOGICAL FUNCTION SELECT( PAR1, PAR2 )
+C
+C SLICOT RELEASE 5.0.
+C
+C Copyright (c) 2002-2009 NICONET e.V.
+C
+C This program is free software: you can redistribute it and/or
+C modify it under the terms of the GNU General Public License as
+C published by the Free Software Foundation, either version 2 of
+C the License, or (at your option) any later version.
+C
+C This program is distributed in the hope that it will be useful,
+C but WITHOUT ANY WARRANTY; without even the implied warranty of
+C MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
+C GNU General Public License for more details.
+C
+C You should have received a copy of the GNU General Public License
+C along with this program. If not, see
+C <http://www.gnu.org/licenses/&gt;.
+C
+C Void logical function for DGEES.
+C
+ DOUBLE PRECISION PAR1, PAR2
+C
+ SELECT = .TRUE.
+ RETURN
+ END
This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.