/* nag_5pt_summary_stats(g01alc) Example Program.
 *
 * Copyright 1996 Numerical Algorithms Group.
 *
 * Mark 4, 1996.
 *
 */

#include <nag.h>
#include <stdio.h>
#include <nag_stdlib.h>
#include <nagg01.h>

#define NMAX 12

int main(void)
{

  double x[NMAX], res[5];

  Integer i;
  Integer n;

  Vprintf("g01alc Example Program Results\n");
  /* Skip heading in data file */
  Vscanf("%*[^\n] ");
  Vscanf("%ld ", &n);
  for (i = 1; i <= n; ++i)
    Vscanf("%lf ", &x[i - 1]);
  g01alc(n, x, res, NAGERR_DEFAULT);

  Vprintf("\n");
  Vprintf(" Maximum     %16.4f\n", res[4]);
  Vprintf(" Upper Hinge %16.4f\n", res[3]);
  Vprintf(" Median      %16.4f\n", res[2]);
  Vprintf(" Lower Hinge %16.4f\n", res[1]);
  Vprintf(" Minimum     %16.4f\n", res[0]);
  return EXIT_SUCCESS;
}