libf2c/libF77/pow_dd.c

   1 #include "f2c.h"
   2
   3 #ifdef KR_headers
   4 double pow();
   5 double pow_dd(ap, bp) doublereal *ap, *bp;
   6 #else
   7 #undef abs
   8 #include <math.h>
   9 double pow_dd(doublereal *ap, doublereal *bp)
  10 #endif
  11 {
  12 return(pow(*ap, *bp) );
  13 }