Listing 3 (sin_4~bt.c)

/* Tests sin_4() */
typedef struct {
   double X1, X2, X3, X4;
}      ARG_D_4;                /* vector 4 */
ARG_D_4 sin_4();
#include <math.h>
main(){
       ARG_D_4 res;
       res=sin_4(-2.,-1.,1.,2.);
       printf(
"\t%.17g\t%.17g\n\t%.17g\t%.17g\n\t%.17g\t%.17g\n\t%.17g\t%.17g\n",
             res.X1,sin(-2.),
             res.X2,sin(-1.),
             res.X3,sin(1.),
             res.X4,sin(2.));
}
/* End of File */