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