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