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