00001 /* 00002 * cblas_srotg.c 00003 * 00004 * The program is a C interface to srotg. 00005 * 00006 * Written by Keita Teranishi. 2/11/1998 00007 * 00008 */ 00009 #include "cblas.h" 00010 #include "cblas_f77.h" 00011 void cblas_srotg( float *a, float *b, float *c, float *s) 00012 { 00013 F77_srotg(a,b,c,s); 00014 }