void areaf(int *nxray, int *nyray, int n) {
    void *fptr;

    fptr = dlsym(_Chdislin_handle, "areaf_chdl");
    if(fptr == NULL) {
        fprintf(_stderr, "Error: %s(): dlsym(): %s\n", __func__,  dlerror());
        return;
    }
    dlrunfun(fptr, NULL, areaf, nxray, nyray, n);
}