Mercurial > octave-nkf

diff examples/fortdemo.cc @ 12254:23385f2c90b7 release-3-4-x

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
whitespace fixes
author John W. Eaton <jwe@octave.org>
date Wed, 26 Jan 2011 23:49:42 -0500
parents 6cb30a539481
children 460a3c6d8bf1
line wrap: on
line diff
--- a/examples/fortdemo.cc	Wed Jan 26 23:15:59 2011 -0500
+++ b/examples/fortdemo.cc	Wed Jan 26 23:49:42 2011 -0500
@@ -1,17 +1,17 @@
 #include <octave/oct.h>
 #include <octave/f77-fcn.h>
 
-extern "C" 
+extern "C"
 {
-  F77_RET_T 
-  F77_FUNC (fortsub, FORTSUB) 
-        (const int&, double*, F77_CHAR_ARG_DECL  
+  F77_RET_T
+  F77_FUNC (fortsub, FORTSUB)
+        (const int&, double*, F77_CHAR_ARG_DECL
          F77_CHAR_ARG_LEN_DECL);
 }
 
 DEFUN_DLD (fortdemo , args , , "Fortran Demo.")
 {
-  octave_value_list retval;  
+  octave_value_list retval;
   int nargin = args.length();
   if (nargin != 1)
     print_usage ();
@@ -24,7 +24,7 @@
           octave_idx_type na = a.nelem ();
           OCTAVE_LOCAL_BUFFER (char, ctmp, 128);
 
-          F77_XFCN (fortsub, FORTSUB, (na, av, ctmp 
+          F77_XFCN (fortsub, FORTSUB, (na, av, ctmp
                     F77_CHAR_ARG_LEN (128)));
 
           retval(1) = std::string (ctmp);