numeric-linalg

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

/*
 * cblas_zrotg.c
 *
 * The program is a C interface to zrotg.
 *
 */
#include "cblas.h"
#include "cblas_f77.h"
void API_SUFFIX(cblas_zrotg)(void *a, void *b, double *c, void *s)
{
   F77_zrotg(a,b,c,s);
}