source: branches/profile/GDE/PHYML/eigen.h

Last change on this file was 4073, checked in by westram, 13 years ago
  • phyml 2.4.5
  • Property svn:eol-style set to native
  • Property svn:keywords set to Author Date Id Revision
File size: 1.1 KB
Line 
1#ifndef EIGEN_H
2#define EIGEN_H
3
4int eigen(int job, double *A, int n, double *rr, double *ri,
5          double *vr, double *vi, double *w);
6void balance(double *mat, int n, int *low, int *hi, double *scale);
7void unbalance(int n, double *vr, double *vi, int low, int hi,
8               double *scale);
9int realeig(int job, double *mat, int n,int low, int hi, double *valr,
10            double *vali, double *vr, double *vi);
11void elemhess(int job, double *mat, int n, int low, int hi, 
12            double *vr, double *vi, int *work);
13
14
15/* complex functions */
16
17typedef struct { double re, im; } complex;
18#define csize(a) (fabs(a.re)+fabs(a.im))
19
20complex compl (double re,double im);
21complex _conj (complex a);
22complex cplus (complex a, complex b);
23complex cminus (complex a, complex b);
24complex cby (complex a, complex b);
25complex cdiv (complex a,complex b);
26/* complex local_cexp (complex a); */
27complex cfactor (complex x, double a);
28int cxtoy (complex *x, complex *y, int n);
29int cmatby (complex *a, complex *b, complex *c, int n,int m,int k);
30int cmatout (FILE * fout, complex *x, int n, int m);
31int cmatinv( complex *x, int n, int m, double *space);
32
33
34#endif
35
Note: See TracBrowser for help on using the repository browser.