myroundCall.c

/* C call from R

.Call("myroundCall",as.double(1204.245))


*/
SEXP myroundCall(SEXP a){

            double *ap = REAL(a), *ansp;

            SEXP ans;

            PROTECT(ans = allocVector(REALSXP, 1));

            ansp = REAL(ans);

            *ansp = Rf_fround(*ap,2);

            UNPROTECT(1);

            return(ans);

}