00001 extern "C" { 00002 #include <chemistry/qc/mbptr12/f77sym.h> 00003 00004 extern void F77_DGESVD(const char* jobu, const char* jobvt, const int* m, 00005 const int* n, double* A, const int* lda, double* S, double* U, const int* ldu, 00006 double* Vt, const int* ldvt, double* work, int* lwork, int* info); 00007 00008 extern void F77_DSPSVX(const char* fact, const char* uplo, const int* n, const int* nrhs, 00009 const double* AP, double* AFP, int* ipiv, const double* BB, const int* nb, 00010 double* XX, const int* nx, double* rcond, double* ferr, double* berr, 00011 double* work, int* iwork, int* info); 00012 00013 } 00014