1*1858f998SYi Kong /*
2*1858f998SYi Kong * cblas_srotmg.c
3*1858f998SYi Kong *
4*1858f998SYi Kong * The program is a C interface to srotmg.
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_srotmg(float * d1,float * d2,float * b1,const float b2,float * p)11*1858f998SYi Kong void cblas_srotmg( float *d1, float *d2, float *b1,
12*1858f998SYi Kong const float b2, float *p)
13*1858f998SYi Kong {
14*1858f998SYi Kong F77_srotmg(d1,d2,b1,&b2,p);
15*1858f998SYi Kong }
16