int f2c_crotg(complex* CA, complex* CB, complex* C, real* S) { crotg_(CA, CB, C, S); return 0; }
void crotg(complex *A, complex *B, float *C, complex *S) { crotg_(A, B, C, S); }