Mercurial > octave-nkf
view examples/standalone.cc @ 10103:0e71ead7359d
Use CALL XSTOPX instead of STOP in Fortran ranlib routines
New call allows Octave's error handler to intercept otherwise
fatal errors in Fortran code
author | Rik <rdrider0-list@yahoo.com> |
---|---|
date | Wed, 13 Jan 2010 22:22:46 -0800 |
parents | 4295d634797d |
children | be41c30bcb44 |
line wrap: on
line source
#include <iostream> #include <octave/oct.h> int main (void) { std::cout << "Hello Octave world!\n"; int n = 2; Matrix a_matrix = Matrix (n, n); for (octave_idx_type i = 0; i < n; i++) { for (octave_idx_type j = 0; j < n; j++) { a_matrix (i, j) = (i + 1) * 10 + (j + 1); } } std::cout << a_matrix; return 0; }