01: /*
02:  * cblas_drotmg.c
03:  *
04:  * The program is a C interface to drotmg.
05:  *
06:  * Written by Keita Teranishi.  2/11/1998
07:  *
08:  */
09: #include "cblas.h"
10: #include "cblas_f77.h"
11: void cblas_drotmg( double *d1, double *d2, double *b1,
12:                         const double b2, double *p)
13: {
14:    F77_drotmg(d1,d2,b1,&b2,p);
15: }
16: