/* nag_enum_value_to_name (x04nbc) Example Program.
 *
 * Copyright 2005 Numerical Algorithms Group.
 *
 * Mark 8, 2005.
 */

#include <stdio.h>
#include <nag.h>
#include <nag_stdlib.h>
#include <nag_string.h>
#include <nagx04.h>

int main(void)
{
  /* Scalars */
  Integer  exit_status=0;
  Nag_OrderType order;
  Nag_TransType trans;
  Nag_DiagType unitdiag;
  Nag_MatrixType matrix;

  /* Pointers */
  const char *str_order, *str_trans, *str_matrix, *str_unitdiag;
  char *status;
  Vprintf("nag_enum_value_to_name (x04nbc) Example Program Results\n\n");

  /* Set some Nag types using enum member names */
  order = Nag_ColMajor;
  trans = Nag_Trans;
  matrix = Nag_GeneralMatrix;
  unitdiag = Nag_NonUnitDiag;

  /* Convert the values held by these typed variables to strings */

  /* nag_enum_value_to_name (x04nbc).
   * Converts NAG enum member value to its name
   */
  str_order=nag_enum_value_to_name(order);
  str_trans=nag_enum_value_to_name(trans);
  str_matrix=nag_enum_value_to_name(matrix);
  str_unitdiag=nag_enum_value_to_name(unitdiag);

  /* Check strings match member names and print. */
  Vprintf("   Member name     String returned  Status\n");
  Vprintf("----------------- ----------------- ------\n");
  status="OK";
  if (strcmp(str_order,"Nag_ColMajor")) {
    status="Error";
    exit_status++;
  }
  Vprintf("%-17s %-17s %-6s\n","Nag_ColMajor",str_order,status);

  status="OK";
  if (strcmp(str_trans,"Nag_Trans")) {
    status="Error";
    exit_status++;
  }
  Vprintf("%-17s %-17s %-6s\n","Nag_Trans",str_trans,status);

  status="OK";
  if (strcmp(str_matrix,"Nag_GeneralMatrix")) {
    status="Error";
    exit_status++;
  }
  Vprintf("%-17s %-17s %-6s\n","Nag_GeneralMatrix",str_matrix,status);

  status="OK";
  if (strcmp(str_unitdiag,"Nag_NonUnitDiag")) {
    status="Error";
    exit_status++;
  }
  Vprintf("%-17s %-17s %-6s\n","Nag_NonUnitDiag",str_unitdiag,status);

  return exit_status;
}