/* Copyright (c) 2001-2009 by SoftIntegration, Inc. All Rights Reserved */
#include<math.h>

double yn(int n, double x) {
    void *fptr;
    double retval;

    fptr = dlsym(_Chmath_handle, "yn_chdl");
    if(fptr == NULL)  {
       printf("Error: %s(): dlsym(): %s\n", __func__, dlerror());
       return -1;
    }
    dlrunfun(fptr, &retval, yn, n, x);
    return retval;
}
