blis/frame/compat/cblas/src/cblas_drotmg.c

   1 #include "bli_config.h"
   2 #include "bli_system.h"
   3 #include "bli_type_defs.h"
   4 #include "bli_cblas.h"
   5 #ifdef BLIS_ENABLE_CBLAS
   6 /*
   7  * cblas_drotmg.c
   8  *
   9  * The program is a C interface to drotmg.
  10  *
  11  * Written by Keita Teranishi.  2/11/1998
  12  *
  13  */
  14 #include "cblas.h"
  15 #include "cblas_f77.h"
  16 void cblas_drotmg( double *d1, double *d2, double *b1,
  17                         const double b2, double *p)
  18 {
  19    F77_drotmg(d1,d2,b1,&b2,p);
  20 }
  21 #endif