01: /*
02:  * cblas_srotg.c
03:  *
04:  * The program is a C interface to srotg.
05:  *
06:  * Written by Keita Teranishi.  2/11/1998
07:  *
08:  */
09: #include "cblas.h"
10: #include "cblas_f77.h"
11: void cblas_srotg(  float *a, float *b, float *c, float *s)
12: {
13:    F77_srotg(a,b,c,s);
14: }
15: