/* nag_return_discrete(g05eyc) Example Program * * Copyright 1991 Numerical Algorithms Group. * * Mark 2, 1991. * * Mark 3 revised, 1994. */ #include #include #include #include int main(void) { Integer i; double *r; double t = 2.7; Vprintf("g05eyc Example Program Results\n"); g05cbc((Integer)0); g05ecc(t, &r, NAGERR_DEFAULT); for (i=1; i<=5; i++) Vprintf("%5ld\n", g05eyc(r)); NAG_FREE(r); return EXIT_SUCCESS; }