rem: static long round (long double value)
add: static long round (LDOUBLE value)
context: static long round (long double value){  long intpart;  intpart = value;  value = value - intpart;  if (value >= 0.5)    intpart++;  return intpart;}