Mercurial > octave
view examples/code/fortrandemo.cc @ 33608:5fba13104493 bytecode-interpreter tip
maint: merge default to bytecode-interpreter.
author | Nicholas R. Jankowski <jankowski.nicholas@gmail.com> |
---|---|
date | Sat, 18 May 2024 22:40:00 -0400 |
parents | aeb8f8438dd5 |
children |
line wrap: on
line source
#include <octave/oct.h> #include <octave/f77-fcn.h> extern "C" { F77_RET_T F77_FUNC (fortransub, FORTRANSUB) (const F77_INT&, F77_DBLE*, F77_CHAR_ARG_DECL F77_CHAR_ARG_LEN_DECL); } DEFUN_DLD (fortrandemo, args, , "Fortran Demo") { if (args.length () != 1) print_usage (); NDArray a = args(0).array_value (); double *av = a.rwdata (); octave_idx_type na = a.numel (); OCTAVE_LOCAL_BUFFER (char, ctmp, 128); F77_FUNC (fortransub, FORTRANSUB) (na, av, ctmp F77_CHAR_ARG_LEN (128)); return ovl (a, std::string (ctmp)); }