← Back to branch summary

~mmach/netext73/lapack

« back to all changes in this revision

Viewing changes to CBLAS/src/cblas_csrot.c

  • Committer: mmach
  • Date: 2022-11-27 19:43:35 UTC
  • Revision ID: netbit73@gmail.com-20221127194335-pkgcqw16me0jf80s
3.11.0-2

Show diffs side-by-side

added added

removed removed

Lines of Context:
CBLAS/src/cblas_csrot.c
 
1
/*
 
2
 * cblas_csrot.c
 
3
 *
 
4
 * The program is a C interface to csrot.
 
5
 *
 
6
 */
 
7
#include "cblas.h"
 
8
#include "cblas_f77.h"
 
9
void cblas_csrot(const CBLAS_INT N, void *X, const CBLAS_INT incX,
 
10
   void *Y, const CBLAS_INT incY, const float c, const float s)
 
11
{
 
12
#ifdef F77_INT
 
13
   F77_INT F77_N=N, F77_incX=incX, F77_incY=incY;
 
14
#else
 
15
   #define F77_N N
 
16
   #define F77_incX incX
 
17
   #define F77_incY incY
 
18
#endif
 
19
   F77_csrot(&F77_N, X, &F77_incX, Y, &F77_incY, &c, &s);
 
20
   return;
 
21
}