/* nag_ranks_and_scores(g01dhc) 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 20

int main(void)
{

  double r[NMAX];
  double x[NMAX];

  Integer i;
  Integer n;

  Vprintf("g01dhc Example Program Results\n\n");

  /* Skip heading in data file */
  Vscanf("%*[^\n] ");

  Vscanf("%ld ", &n);
  if (n <= NMAX)
    {
      for (i = 1; i <= n; ++i)
        Vscanf("%lf ", &x[i - 1]);

      g01dhc(Nag_SavageScores, Nag_AverageTies, n, x, r,
             NAGERR_DEFAULT);

      Vprintf("The Savage Scores : \n");
      Vprintf("  (Average scores are used for tied observations)\n\n");
      for (i = 1; i <= n; ++i)
        Vprintf("%10.4f\n", r[i - 1]);
    }
  else
    Vprintf("n is larger than NMAX\n");
  return EXIT_SUCCESS;
}