Displaying 1 result from an estimated 1 matches for "ptr_transa".
Did you mean:
ptr_transb
2015 Jun 03
2
Problem with shared library and lapack under windows
...all,
I have a C function, say Cfun, that calls Lapack's DGEMM routine and I need
to create a shared library to use Cfun inside R. The C file is the following
#include<stdio.h>
#include<R.h>
#include<R_ext/Lapack.h>
void Cfun(double *res, double *X, int *n, int *q)
{
char *ptr_TRANSA, TRANSA='T', *ptr_TRANSB, TRANSB='N';
ptr_TRANSA=&TRANSA;
ptr_TRANSB=&TRANSB;
double *ptr_ALPHA, ALPHA=1.0, *ptr_BETA, BETA=0.0;
ptr_ALPHA=&ALPHA;
ptr_BETA=&BETA;
dgemm_(ptr_TRANSA, ptr_TRANSB, q, q, n, ptr_ALPHA, X, n, X, n, ptr_BETA,
res, q);
}
In Ubuntu I...