src/cblas_srotg.c


1
2
3
4
5
6
7
8
9
10
11
12
13
14

/*
 * cblas_srotg.c
 *
 * The program is a C interface to srotg.
 *
 * Written by Keita Teranishi.  2/11/1998
 *
 */
#include "cblas.h"
#include "cblas_f77.h"
void cblas_srotg(  float *a, float *b, float *c, float *s)
{
   F77_srotg(a,b,c,s);    
}