Editing Fortran
Jump to navigation
Jump to search
The edit can be undone. Please check the comparison below to verify that this is what you want to do, and then publish the changes below to finish undoing the edit.
Latest revision | Your text | ||
Line 1: | Line 1: | ||
{{Code|C++ function to load a matrix from an ASCII file in Octave native format|<syntaxhighlight lang="C" style="font-size:13px"> | |||
#include <octave_file_io.h> | |||
{{ | |||
#include <octave/oct.h> | #include <octave/oct.h> | ||
#include <octave/ls- | #include <octave/ov.h> | ||
#include <fstream> | |||
#include <ls-oct-ascii.h> | |||
#include <octave/octave.h> | |||
#include <octave/parse.h> | |||
#include <octave/toplev.h> | |||
#include <octave/load-save.h> | |||
#include <octave/oct-map.h> | |||
#include <cstring> | |||
int octave_load (const char* filename, const char* varname, double** data, int* numel) | |||
{ | |||
string_vector argv (1); | |||
load_save_format format = LS_ASCII; | |||
install_types (); | |||
argv(0) = varname; | |||
std::ios::openmode mode = std::ios::in | std::ios::binary; | |||
std::string fname (filename); | |||
std::ifstream file (fname.c_str (), mode); | |||
octave_scalar_map m = do_load (file, fname, format, oct_mach_info::flt_fmt_unknown, | |||
false, false, true, argv, 0, 1, 1).scalar_map_value (); | |||
file.close (); | |||
Array<double> M = m.contents (varname).array_value (); | |||
if (error_state) | |||
return -1; | |||
*data = (double*) malloc (M.numel () * sizeof (double)); | |||
*numel = | *numel = M.numel (); | ||
memcpy (*data, M.fortran_vec (), *numel * sizeof (double)); | |||
return 0; | |||
return 0; | |||
} | } | ||
</syntaxhighlight>}} | </syntaxhighlight>}} | ||
{{Code|C interface to a function linking to liboctave|<syntaxhighlight lang="C" style="font-size:13px"> | |||
#ifndef OCTAVE_FILE_IO_H | #ifndef OCTAVE_FILE_IO_H | ||
#define OCTAVE_FILE_IO_H | #define OCTAVE_FILE_IO_H | ||
Line 79: | Line 57: | ||
#endif | #endif | ||
int octave_load (const char* filename, double** data, int* numel); | int octave_load (const char* filename, const char* varname, double** data, int* numel); | ||
#ifdef __cplusplus | #ifdef __cplusplus | ||
Line 87: | Line 65: | ||
#endif | #endif | ||
</syntaxhighlight>}} | </syntaxhighlight>}} | ||