00001 extern "C" { 00002 #include <chemistry/qc/mbptr12/f77sym.h> 00003 00004 extern void F77_DGEMM(const char*, const char*, const int*, 00005 const int*, const int*, const double*, const double*, const int*, 00006 const double*, const int*, const double*, double*, const int*); 00007 00008 extern void F77_DAXPY(const int* n, const double* da, const double* dx, 00009 const int* incx, double* dy, const int* incy); 00010 00011 extern double F77_DDOT(const int* n, const double* dx, const int* incx, 00012 double* dy, const int* incy); 00013 00014 } 00015