/* nag_stat_pdf_landau (g01mtc) Example Program.
*
* Copyright 2023 Numerical Algorithms Group.
*
* Mark 29.1, 2023.
*/
#include <nag.h>
#include <stdio.h>
int main(void) {
/* Scalars */
Integer exit_status = 0;
double x, y;
printf(" nag_stat_pdf_landau (g01mtc) Example Program Results\n");
/* Skip heading in data file */
scanf("%*[^\n] ");
scanf("%lf%*[^\n] ", &x);
/* nag_stat_pdf_landau (g01mtc).
* Landau density function phi(lambda)
*/
y = nag_stat_pdf_landau(x);
printf("\n X Y\n\n");
printf(" %3.1f %13.4e\n", x, y);
return exit_status;
}