MPQC: src/lib/chemistry/qc/mbptr12/blas.h Source File

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 const double* dy, const int* incy);
00013 
00014 }
00015 
00016 namespace sc {
00017   
00018   //
00019   // taken from psi3/src/lib/libqt/blas_intfc.c
00020   //
00021   
00093   void C_DGEMM(char transa, char transb, int m, int n, int k, double alpha,
00094                const double *A, int nca, const double *B, int ncb, double beta,
00095                double *C, int ncc);
00096 
00097 }