/* nag_code_to_error_name (x04ndc) Example Program.
*
* Copyright 2024 Numerical Algorithms Group.
*
* Mark 30.1, 2024.
*/
#include <nag.h>
#include <stdio.h>
int main(void) {
/* Scalars */
Integer exit_status = 0;
unsigned i;
/* Pointers */
const char *str_error = 0;
int fail_code[] = {NE_BAD_PARAM, NE_INCOMPAT_PARAM, NE_COMPLEX_ZERO,
NE_NOT_MONOTONIC, NE_TOO_MANY_ITER, NE_SINGULAR,
NE_INITIALIZATION};
printf("nag_code_to_error_name (x04ndc) Example Program Results\n\n");
/* Print header. */
printf(" Code value Error name\n");
printf(" ---------- ----------\n");
/* Convert the error code to strings and print. */
/* nag_code_to_error_name (x04ndc).
* Converts NAG error code to its string value
*/
for (i = 0; i < sizeof(fail_code) / sizeof(int); i++) {
str_error = nag_code_to_error_name(fail_code[i]);
if (str_error)
printf("%7d %-s\n", fail_code[i], str_error);
else {
exit_status = 1;
goto END;
}
}
END:
return exit_status;
}