numeric-linalg

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

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