00001 #ifndef EIGSOL_H 00002 #define EIGSOL_H 00003 00004 void jacobi (double *a,double *evec,double *eval,long n,long ni,long &ani,double limit, long normalize); 00005 void gen_jacobi (double *a,double *b,double *x,double *w,long n,long ni, 00006 double *thresholds,long nthr,double zero); 00007 void gen_jacobi2 (double *k,double *m,double *x,double *w,long n,long ni, 00008 double *gate,long ng,double limit); 00009 00010 #endif