/* Copyright (c) 2001-2009 by SoftIntegration, Inc. All Rights Reserved */
#include "sample.h"
double func1(double x) {
    void *fptr;
    double retval;

    fptr = dlsym(_Chsample_handle, "func1_chdl");
    if(fptr == NULL) {
        fprintf(_stderr, "Error: %s(): dlsym(): %s\n", __func__,  dlerror());
        return NaN;
    }
    dlrunfun(fptr, &retval, func1, x);
    return retval;
}
