Function zrotg

src/tests/correctness/blas-lapack.c:784–787

}

void zrotg(doublecomplex *A, doublecomplex *B, double *C, doublecomplex *S)
{
    zrotg_(A, B, C, S);
}

void srotmg(float *D1, float *D2, float *X1, const float *Y1, float *PARAM)
{