#include <R.h> 
#include <Rdefines.h>
#include <Rmath.h> 
#include <stdio.h>
#include <math.h>
#include <stdlib.h>


SEXP useC2(SEXP i_in, SEXP size_i_in, SEXP d_in){                

  int i,j,I,J;
  SEXP Rval;

  I=INTEGER(size_i_in)[0];

    for (i = 0; i < I; i++)
        REAL(Rval)[i] = REAL(i_in)[i]*REAL(d_in)[i];
    return Rval;
}