00001 #ifndef LAPACKFLOW_H 00002 #define LAPACKFLOW_H 00003 00004 #include "fortran.h" 00005 #include <iostream> 00006 00007 //SUBROUTINE_F77 solve_(INTEGER &N, INTEGER &NRHS, REAL* A, REAL *B, INTEGER &INFO); 00008 00009 SUBROUTINE_F77 solve_(INTEGER &N, INTEGER &NRHS, REAL* A, REAL *B, REAL* X); 00010 SUBROUTINE_F77 solvels_(INTEGER &M, INTEGER &N, INTEGER &NRHS, REAL* A, REAL* BX); 00011 SUBROUTINE_F77 eig_(INTEGER &N, REAL* A, REAL *D, REAL* V); 00012 SUBROUTINE_F77 svd_(INTEGER &M, INTEGER &N, REAL* A, REAL* U, REAL *S, REAL *VT); 00013 00014 00015 #endif