181253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray/* 281253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray * cblas_srotmg.c 381253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray * 481253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray * The program is a C interface to srotmg. 581253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray * 681253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray * Written by Keita Teranishi. 2/11/1998 781253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray * 881253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray */ 981253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray#include "cblas.h" 1081253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray#include "cblas_f77.h" 1181253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murrayvoid cblas_srotmg( float *d1, float *d2, float *b1, 1281253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray const float b2, float *p) 1381253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray{ 1481253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray F77_srotmg(d1,d2,b1,&b2,p); 1581253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray} 16