numeric-linalg

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

/*
 * cblas_srotg.c
 *
 * The program is a C interface to srotg.
 *
 * Written by Keita Teranishi.  2/11/1998
 *
 */
#include "cblas.h"
#include "cblas_f77.h"
void API_SUFFIX(cblas_srotg)(  float *a, float *b, float *c, float *s)
{
   F77_srotg(a,b,c,s);
}