1 /* 2 * cblas_drotmg.c 3 * 4 * The program is a C interface to drotmg. 5 * 6 * Written by Keita Teranishi. 2/11/1998 7 * 8 */ 9 #include "cblas.h" 10 #include "cblas_f77.h" cblas_drotmg(double * d1,double * d2,double * b1,const double b2,double * p)11void 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