/* nag_prob_normal(g01eac) Example Program.
 *
 * Copyright 1996 Numerical Algorithms Group.
 *
 * Mark 4, 1996.
 *
 */


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

int main(void)
{

  double prob;
  double x;

  Integer i;

  Nag_TailProbability tail;
  char tail_char;

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

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

  Vprintf("\n  Tail    X      Probability \n\n");
  for (i = 1; i <= 4; ++i)
    {
      Vscanf("%c %lf ", &tail_char, &x);

      switch (tail_char)
        {
        case 'L':
          tail=Nag_LowerTail;
          break;
        case 'U':
          tail=Nag_UpperTail;
          break;
        case 'C':
          tail=Nag_TwoTailConfid;
          break;
        case 'S':
          tail=Nag_TwoTailSignif;
        }

      prob = g01eac(tail, x, NAGERR_DEFAULT);

      Vprintf("   %c    %4.2f       %6.4f\n", tail_char, x, prob);
    }
  return EXIT_SUCCESS;
}