/* nag_deviates_normal (g01fac) Example Program.
 *
 * Copyright 1996 Numerical Algorithms Group.
 *
 * Mark 4, 1996.
 *
 */

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

int main(void)
{

  double p;
  double dev;
  Integer i;
  char tail_char;
  Nag_TailProbability tail;

  Vprintf("nag_deviates_normal (g01fac) Example Program Results\n");
  /* Skip heading in data file */
  Vscanf("%*[^\n] ");
  Vprintf("\n  Tail    Probability     Deviate \n\n");
  for (i = 1; i <= 4; ++i)
    {
      Vscanf("%c %lf ", &tail_char, &p);
      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;
        }

      /* nag_deviates_normal (g01fac).
       * Deviates for the Normal distribution
       */
      dev = nag_deviates_normal(tail, p, NAGERR_DEFAULT);
      Vprintf("   %c         %5.3f         %6.4f\n", tail_char, p, dev);
    }
  return EXIT_SUCCESS;
}