Mercurial > octave-nkf
annotate examples/fortdemo.cc @ 15880:df1aceb8f0bc ss-3-7-1
snapshot version 3.7.1
* configure.ac (AC_INIT): Set version to 3.7.1.
(OCTAVE_RELEASE_DATE): Set to 2013-01-02.
| author | John W. Eaton <jwe@octave.org> |
|---|---|
| date | Wed, 02 Jan 2013 15:16:08 -0500 |
| parents | 460a3c6d8bf1 |
| children | be41c30bcb44 |
| rev | line source |
|---|---|
| 6572 | 1 #include <octave/oct.h> |
| 2 #include <octave/f77-fcn.h> | |
| 3 | |
| 12174 | 4 extern "C" |
| 6572 | 5 { |
| 12174 | 6 F77_RET_T |
| 7 F77_FUNC (fortsub, FORTSUB) | |
| 8 (const int&, double*, F77_CHAR_ARG_DECL | |
| 6572 | 9 F77_CHAR_ARG_LEN_DECL); |
| 10 } | |
| 11 | |
| 12 DEFUN_DLD (fortdemo , args , , "Fortran Demo.") | |
| 13 { | |
| 12174 | 14 octave_value_list retval; |
|
14846
460a3c6d8bf1
maint: Use Octave coding convention for cuddled parenthis in function calls with empty argument lists.
Rik <octave@nomad.inbox5.com>
parents:
12174
diff
changeset
|
15 int nargin = args.length (); |
| 6572 | 16 if (nargin != 1) |
| 17 print_usage (); | |
| 18 else | |
| 19 { | |
| 20 NDArray a = args(0).array_value (); | |
| 21 if (! error_state) | |
| 22 { | |
| 23 double *av = a.fortran_vec (); | |
| 24 octave_idx_type na = a.nelem (); | |
| 25 OCTAVE_LOCAL_BUFFER (char, ctmp, 128); | |
| 26 | |
| 12174 | 27 F77_XFCN (fortsub, FORTSUB, (na, av, ctmp |
| 7081 | 28 F77_CHAR_ARG_LEN (128))); |
| 6572 | 29 |
|
9932
6cb30a539481
untabify files in examples directory
John W. Eaton <jwe@octave.org>
parents:
9053
diff
changeset
|
30 retval(1) = std::string (ctmp); |
|
6cb30a539481
untabify files in examples directory
John W. Eaton <jwe@octave.org>
parents:
9053
diff
changeset
|
31 retval(0) = a; |
| 6572 | 32 } |
| 33 } | |
| 34 return retval; | |
| 35 } |