00001 #include "f2c.h" 00002 00003 #ifdef KR_headers 00004 double pow(); 00005 double pow_dd(ap, bp) doublereal *ap, *bp; 00006 #else 00007 #undef abs 00008 #include "math.h" 00009 #ifdef __cplusplus 00010 extern "C" { 00011 #endif 00012 double pow_dd(doublereal *ap, doublereal *bp) 00013 #endif 00014 { 00015 return(pow(*ap, *bp) ); 00016 } 00017 #ifdef __cplusplus 00018 } 00019 #endif