Self-contained fx_status shim for standalone bindings (no fortran-arrays dependency)
More...
|
| interface | fx_status |
| | C-interoperable status type for error reporting across language boundaries. More...
|
| |
|
| pure type(fx_status) function | fx_status_new (code, message) |
| | Build an error status from a code and a Fortran string.
|
| |
| pure character(len=len_status_msg) function | fx_status_message (status) |
| | Read a status message back as a Fortran string.
|
| |
| subroutine, public | handle_error (stat0, stat) |
| | Copy the local status to the caller's optional out-argument, or stop on error.
|
| |
|
| integer, parameter | len_status_msg = 248 |
| |
| integer(c_int), parameter, public | fx_ok = 0 |
| | Status codes. Values mirror arrays_c; only the codes the generated wrappers actually raise are carried here.
|
| |
| integer(c_int), parameter, public | fx_error_allocation = 1 |
| |
| integer(c_int), parameter, public | fx_error_deallocation = 2 |
| |
| type(fx_status), parameter, public | fx_status_ok = fx_status( ok = .true._c_bool, code = FX_OK, message = c_null_char) |
| | Success status constant (initialization without a procedure call)
|
| |
Self-contained fx_status shim for standalone bindings (no fortran-arrays dependency)
◆ fx_status_message()
| pure character(len=len_status_msg) function fitpack_fx_status::fx_status_message |
( |
type(fx_status), intent(in) | status | ) |
|
|
private |
Read a status message back as a Fortran string.
◆ fx_status_new()
| pure type(fx_status) function fitpack_fx_status::fx_status_new |
( |
integer(c_int), intent(in) | code, |
|
|
character(*), intent(in) | message ) |
|
private |
Build an error status from a code and a Fortran string.
◆ handle_error()
| subroutine, public fitpack_fx_status::handle_error |
( |
type(fx_status), intent(in) | stat0, |
|
|
type(fx_status), intent(out), optional | stat ) |
Copy the local status to the caller's optional out-argument, or stop on error.
- Parameters
-
| stat0 | - Local status carrying the error information |
| stat | - Optional output status for the caller |
◆ fx_error_allocation
| integer(c_int), parameter, public fitpack_fx_status::fx_error_allocation = 1 |
◆ fx_error_deallocation
| integer(c_int), parameter, public fitpack_fx_status::fx_error_deallocation = 2 |
◆ fx_ok
| integer(c_int), parameter, public fitpack_fx_status::fx_ok = 0 |
Status codes. Values mirror arrays_c; only the codes the generated wrappers actually raise are carried here.
◆ fx_status_ok
| type(fx_status), parameter, public fitpack_fx_status::fx_status_ok = fx_status( ok = .true._c_bool, code = FX_OK, message = c_null_char) |
Success status constant (initialization without a procedure call)
◆ len_status_msg
| integer, parameter fitpack_fx_status::len_status_msg = 248 |
|
private |