Mercurial > octave-nkf

comparison examples/code/fortrandemo.cc @ 20578:2f8500ca91d3

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
eliminate error_state from example files * addtwomatrices.cc, celldemo.cc, embedded.cc, fortrandemo.cc, funcdemo.cc, globaldemo.cc, helloworld.cc, make_int.cc, paramdemo.cc, stringdemo.cc, structdemo.cc, unwinddemo.cc: Eliminate use of global error_state variable.
author John W. Eaton <jwe@octave.org>
date Sat, 03 Oct 2015 16:05:27 -0400
parents c8240a60dd01
children
comparison
equal deleted inserted replaced
20577:c547458dc10e 20578:2f8500ca91d3
9 } 9 }
10 10
11 DEFUN_DLD (fortrandemo, args, , "Fortran Demo") 11 DEFUN_DLD (fortrandemo, args, , "Fortran Demo")
12 { 12 {
13 octave_value_list retval; 13 octave_value_list retval;
14 int nargin = args.length ();
15 14
16 if (nargin != 1) 15 if (args.length () != 1)
17 print_usage (); 16 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.numel ();
25 OCTAVE_LOCAL_BUFFER (char, ctmp, 128);
26 17
27 F77_XFCN (fortransub, FORTSUB, 18 NDArray a = args(0).array_value ();
28 (na, av, ctmp F77_CHAR_ARG_LEN (128)));
29 19
30 retval(1) = std::string (ctmp); 20 double *av = a.fortran_vec ();
31 retval(0) = a; 21 octave_idx_type na = a.numel ();
32 } 22
33 } 23 OCTAVE_LOCAL_BUFFER (char, ctmp, 128);
24
25 F77_XFCN (fortransub, FORTSUB,
26 (na, av, ctmp F77_CHAR_ARG_LEN (128)));
27
28 retval(1) = std::string (ctmp);
29 retval(0) = a;
30
34 return retval; 31 return retval;
35 } 32 }