43 #include "Moocho_Config.h"
46 #ifdef HAVE_MOOCHO_FORTRAN
63 ,
const f_int& irecl );
82 result, InvalidFileNameException
83 ,
"f_open_file(...) : Error, the "
84 << -result <<
" Character of the file name \""
85 << file <<
"\" is not a valid ASCII character." );
90 iunit, int_file, int_file_len, status, form, blank, access, recl
95 result < 0, InvalidFileNameException
96 ,
"f_open_file(...) : Error, the "
97 << -result <<
" Character of the file name \""
98 << file <<
"\" is not a valid ASCII character." );
100 result > 0, OpenException
101 ,
"f_open_file(...) : Error, the file named \""
102 << file <<
"\" could not be opened and OPEN(...) "
103 <<
"returned and IOSTAT = " << result );
114 #endif // HAVE_MOOCHO_FORTRAN
void f_close_file(const f_int iunit, bool keep=true)
FortranTypes::f_int f_int
FORTRAN_FUNC_DECL_UL_(void, QPOPT_SET_DEFAULTS, qpopt_set_defaults)()
#define TEUCHOS_TEST_FOR_EXCEPTION(throw_exception_test, Exception, msg)
#define FORTRAN_FUNC_CALL_UL_(UFUNC_NAME, LFUNC_NAME)
int convert_to_f_int_string(const char string[], f_int i_string[], f_int *string_len)
Convert from a C++ (or C) null terminated string to an integer array suitable for passing to Fortran ...
void f_open_file(const f_int iunit, const char file[], EOpenStatus status=OPEN_UNKNOWN, EOpenForm form=OPEN_FORMATTED, EOpenBlank blank=OPEN_NULL, EOpenAccess access=OPEN_SEQUENTIAL, f_int recl=-1)