00001 #include "cblas.h" 00002 #include "cblas_f77.h" 00003 void cblas_drotm( const int N, double *X, const int incX, double *Y, 00004 const int incY, const double *P) 00005 { 00006 #ifdef F77_INT 00007 F77_INT F77_N=N, F77_incX=incX, F77_incY=incY; 00008 #else 00009 #define F77_N N 00010 #define F77_incX incX 00011 #define F77_incY incY 00012 #endif 00013 F77_drotm( &F77_N, X, &F77_incX, Y, &F77_incY, P); 00014 }