cblas_drotm.c
Go to the documentation of this file.
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 }   


swiftnav
Author(s):
autogenerated on Sat Jun 8 2019 18:55:15