00001 /* 00002 * cblas_srotmg.c 00003 * 00004 * The program is a C interface to srotmg. 00005 * 00006 * Written by Keita Teranishi. 2/11/1998 00007 * 00008 */ 00009 #include "cblas.h" 00010 #include "cblas_f77.h" 00011 void cblas_srotmg( float *d1, float *d2, float *b1, 00012 const float b2, float *p) 00013 { 00014 F77_srotmg(d1,d2,b1,&b2,p); 00015 }