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

int signbit(double x) {
  void  *fptr;
  int retval;

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

