numeric-linalg

01
02
03
04
05
06
07
08
09
10
11
12
13

/*
 * cblas_crotg.c
 *
 * The program is a C interface to crotg.
 *
 */
#include "cblas.h"
#include "cblas_f77.h"
void API_SUFFIX(cblas_crotg)(void *a, void *b, float *c, void *s)
{
   F77_crotg(a,b,c,s);
}