test/monniaux/send_through/send_through_ccomp.c


1
2
3
4
5
6
7
8
9
10
11
12
13
14

#include <stdio.h>
#include <math.h>
#include "send_through.h"

double send_through(op_int_double f, int x, int y, double z) {
  double w= f(x, f(y, z));
  int mu = 1;
  return w;
}

void print_from_ccomp(double x) {
  printf("x=%e x=%f x=%g x=%.03e x=%.03f x=%.03g x[rounded]=%d\n",
	 x, x, x, x, x, x, rint(x));
}