Mercurial > hg > octave-nkf

comparison examples/fortdemo.cc @ 6580:d2bb3b8a8d20

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[project @ 2007-04-25 22:19:03 by dbateman]
author dbateman
date Wed, 25 Apr 2007 22:20:28 +0000
parents 8e7148b84b59
children 4270ded9ddc6
comparison
equal deleted inserted replaced
6579:f569cc721d3b 6580:d2bb3b8a8d20
22 { 22 {
23 double *av = a.fortran_vec (); 23 double *av = a.fortran_vec ();
24 octave_idx_type na = a.nelem (); 24 octave_idx_type na = a.nelem ();
25 OCTAVE_LOCAL_BUFFER (char, ctmp, 128); 25 OCTAVE_LOCAL_BUFFER (char, ctmp, 128);
26 26
27 F77_XFCN (fortsub, FORTSUB, (na, av, ctmp F77_CHAR_ARG_LEN (128))); 27 F77_XFCN (fortsub, FORTSUB, (na, av, ctmp
28 F77_CHAR_ARG_LEN (128)));
28 29
29 if (f77_exception_encountered) 30 if (f77_exception_encountered)
30 error ("fortdemo: error in fortran"); 31 error ("fortdemo: error in fortran");
31 else 32 else
32 { 33 {