00001 /* 00002 * cblas_drotmg.c 00003 * 00004 * The program is a C interface to drotmg. 00005 * 00006 * Written by Keita Teranishi. 2/11/1998 00007 * 00008 */ 00009 #include "cblas.h" 00010 #include "cblas_f77.h" 00011 void cblas_drotmg( double *d1, double *d2, double *b1, 00012 const double b2, double *p) 00013 { 00014 F77_drotmg(d1,d2,b1,&b2,p); 00015 }