01: #include "cblas.h"
02: #include "cblas_f77.h"
03: void cblas_drotm( const int N, double *X, const int incX, double *Y,
04:                        const int incY, const double *P)
05: {
06: #ifdef F77_INT
07:    F77_INT F77_N=N, F77_incX=incX, F77_incY=incY;
08: #else
09:    #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: }
15: