/* nag_implementation_details (a00aac) Example Program.
 *
 * Copyright 2005 Numerical Algorithms Group.
 *
 * Mark 8, 2005.
 */

#include <nag.h>
#include <nagx04.h>
#include <stdio.h>
#include <string.h>
#include <nag_stdlib.h>
#include <naga00.h>

int main(int argc, char *argv[])
{
  FILE    *fpout=0;
  Integer exit_status = 0;
  int i;

  /* Redirect standard output to results file (if any) */
  for (i=1;i<argc;i++) {
    if (strcmp(argv[i],"-results")==0) {
      fpout = freopen(argv[i+1],"w",stdout);
      if (!fpout) {
        exit_status = 1;
        Vprintf("Failed to create results file");
        break;
      }
    }
  }

  Vprintf("nag_implementation_details (a00aac) Example Program Results\n\n");

  nag_implementation_details();

  if (fpout) fclose(fpout);
  return exit_status;
}