void srotmg(float *D1, float *D2, float *X1, const float *Y1, float *PARAM) { srotmg_(D1, D2, X1, (float*)Y1, PARAM); }
void cblas_srotmg( float *d1, float *d2, float *b1, const float b2, float *p) { srotmg_(d1,d2,b1,&b2,p); }