v0.9.0
cblas_drotm.c
Go to the documentation of this file.
1 #include "cblas.h"
2 #include "cblas_f77.h"
3 void cblas_drotm( const int N, double *X, const int incX, double *Y,
4  const int incY, const double *P)
5 {
6 #ifdef F77_INT
7  F77_INT F77_N=N, F77_incX=incX, F77_incY=incY;
8 #else
9  #define F77_N N
10  #define F77_incX incX
11  #define F77_incY incY
12 #endif
13  F77_drotm( &F77_N, X, &F77_incX, Y, &F77_incY, P);
14 }
void F77_drotm(FINT, double *, FINT, double *, FINT, const double *)
#define F77_N
void cblas_drotm(const int N, double *X, const int incX, double *Y, const int incY, const double *P)
Definition: cblas_drotm.c:3
#define F77_incX
#define F77_incY
const int N
Definition: speed_test.cpp:3