1*1858f998SYi Kong /*
2*1858f998SYi Kong * cblas_drotmg.c
3*1858f998SYi Kong *
4*1858f998SYi Kong * The program is a C interface to drotmg.
5*1858f998SYi Kong *
6*1858f998SYi Kong * Written by Keita Teranishi. 2/11/1998
7*1858f998SYi Kong *
8*1858f998SYi Kong */
9*1858f998SYi Kong #include "cblas.h"
10*1858f998SYi Kong #include "cblas_f77.h"
cblas_drotmg(double * d1,double * d2,double * b1,const double b2,double * p)11*1858f998SYi Kong void cblas_drotmg( double *d1, double *d2, double *b1,
12*1858f998SYi Kong const double b2, double *p)
13*1858f998SYi Kong {
14*1858f998SYi Kong F77_drotmg(d1,d2,b1,&b2,p);
15*1858f998SYi Kong }
16