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);
}