00001 #ifndef _MCW_EISPACK_HEADER_
00002 #define _MCW_EISPACK_HEADER_
00003 
00004 #include "f2c.h"
00005 
00006 /*---------------------- prototypes from "f2c -P"   ---------------------------*/
00007 
00008 extern int bakvec_(integer *nm, integer *n, doublereal *t, doublereal *e, integer *m, doublereal *z__, integer *ierr);
00009 extern int balanc_(integer *nm, integer *n, doublereal *a, integer *low, integer *igh, doublereal *scale);
00010 extern int balbak_(integer *nm, integer *n, integer *low, integer *igh, doublereal *scale, integer *m, doublereal *z__);
00011 extern int bandr_(integer *nm, integer *n, integer *mb, doublereal *a, doublereal *d__, doublereal *e, doublereal *e2, logical *matz, doublereal *z__);
00012 extern int bandv_(integer *nm, integer *n, integer *mbw, doublereal *a, doublereal *e21, integer *m, doublereal *w, doublereal *z__, integer *ierr, integer *nv, doublereal *rv, doublereal *rv6);
00013 extern int bisect_(integer *n, doublereal *eps1, doublereal *d__, doublereal *e, doublereal *e2, doublereal *lb, doublereal *ub, integer *mm, integer *m, doublereal *w, integer *ind, integer *ierr, doublereal *rv4, doublereal *rv5);
00014 extern int bqr_(integer *nm, integer *n, integer *mb, doublereal *a, doublereal *t, doublereal *r__, integer *ierr, integer *nv, doublereal *rv);
00015 extern int cbabk2_(integer *nm, integer *n, integer *low, integer *igh, doublereal *scale, integer *m, doublereal *zr, doublereal *zi);
00016 extern int cbal_(integer *nm, integer *n, doublereal *ar, doublereal *ai, integer *low, integer *igh, doublereal *scale);
00017 extern int cdiv_(doublereal *ar, doublereal *ai, doublereal *br, doublereal *bi, doublereal *cr, doublereal *ci);
00018 extern int cg_(integer *nm, integer *n, doublereal *ar, doublereal *ai, doublereal *wr, doublereal *wi, integer *matz, doublereal *zr, doublereal *zi, doublereal *fv1, doublereal *fv2, doublereal *fv3, integer *ierr);
00019 extern int ch_(integer *nm, integer *n, doublereal *ar, doublereal *ai, doublereal *w, integer *matz, doublereal *zr, doublereal *zi, doublereal *fv1, doublereal *fv2, doublereal *fm1, integer *ierr);
00020 extern int cinvit_(integer *nm, integer *n, doublereal *ar, doublereal *ai, doublereal *wr, doublereal *wi, logical *select, integer *mm, integer *m, doublereal *zr, doublereal *zi, integer *ierr, doublereal *rm1, doublereal *rm2, doublereal *rv1, doublereal *rv2);
00021 extern int combak_(integer *nm, integer *low, integer *igh, doublereal *ar, doublereal *ai, integer *int__, integer *m, doublereal *zr, doublereal *zi);
00022 extern int comhes_(integer *nm, integer *n, integer *low, integer *igh, doublereal *ar, doublereal *ai, integer *int__);
00023 extern int comlr_(integer *nm, integer *n, integer *low, integer *igh, doublereal *hr, doublereal *hi, doublereal *wr, doublereal *wi, integer *ierr);
00024 extern int comlr2_(integer *nm, integer *n, integer *low, integer *igh, integer *int__, doublereal *hr, doublereal *hi, doublereal *wr, doublereal *wi, doublereal *zr, doublereal *zi, integer *ierr);
00025 extern int comqr_(integer *nm, integer *n, integer *low, integer *igh, doublereal *hr, doublereal *hi, doublereal *wr, doublereal *wi, integer *ierr);
00026 extern int comqr2_(integer *nm, integer *n, integer *low, integer *igh, doublereal *ortr, doublereal *orti, doublereal *hr, doublereal *hi, doublereal *wr, doublereal *wi, doublereal *zr, doublereal *zi, integer *ierr);
00027 extern int cortb_(integer *nm, integer *low, integer *igh, doublereal *ar, doublereal *ai, doublereal *ortr, doublereal *orti, integer *m, doublereal *zr, doublereal *zi);
00028 extern int corth_(integer *nm, integer *n, integer *low, integer *igh, doublereal *ar, doublereal *ai, doublereal *ortr, doublereal *orti);
00029 extern int csroot_(doublereal *xr, doublereal *xi, doublereal *yr, doublereal *yi);
00030 extern int elmbak_(integer *nm, integer *low, integer *igh, doublereal *a, integer *int__, integer *m, doublereal *z__);
00031 extern int elmhes_(integer *nm, integer *n, integer *low, integer *igh, doublereal *a, integer *int__);
00032 extern int eltran_(integer *nm, integer *n, integer *low, integer *igh, doublereal *a, integer *int__, doublereal *z__);
00033 extern doublereal epslon_(doublereal *x);
00034 extern int figi_(integer *nm, integer *n, doublereal *t, doublereal *d__, doublereal *e, doublereal *e2, integer *ierr);
00035 extern int figi2_(integer *nm, integer *n, doublereal *t, doublereal *d__, doublereal *e, doublereal *z__, integer *ierr);
00036 extern int hqr_(integer *nm, integer *n, integer *low, integer *igh, doublereal *h__, doublereal *wr, doublereal *wi, integer *ierr);
00037 extern int hqr2_(integer *nm, integer *n, integer *low, integer *igh, doublereal *h__, doublereal *wr, doublereal *wi, doublereal *z__, integer *ierr);
00038 extern int htrib3_(integer *nm, integer *n, doublereal *a, doublereal *tau, integer *m, doublereal *zr, doublereal *zi);
00039 extern int htribk_(integer *nm, integer *n, doublereal *ar, doublereal *ai, doublereal *tau, integer *m, doublereal *zr, doublereal *zi);
00040 extern int htrid3_(integer *nm, integer *n, doublereal *a, doublereal *d__, doublereal *e, doublereal *e2, doublereal *tau);
00041 extern int htridi_(integer *nm, integer *n, doublereal *ar, doublereal *ai, doublereal *d__, doublereal *e, doublereal *e2, doublereal *tau);
00042 extern int imtql1_(integer *n, doublereal *d__, doublereal *e, integer *ierr);
00043 extern int imtql2_(integer *nm, integer *n, doublereal *d__, doublereal *e, doublereal *z__, integer *ierr);
00044 extern int imtqlv_(integer *n, doublereal *d__, doublereal *e, doublereal *e2, doublereal *w, integer *ind, integer *ierr, doublereal *rv1);
00045 extern int invit_(integer *nm, integer *n, doublereal *a, doublereal *wr, doublereal *wi, logical *select, integer *mm, integer *m, doublereal *z__, integer *ierr, doublereal *rm1, doublereal *rv1, doublereal *rv2);
00046 extern int minfit_(integer *nm, integer *m, integer *n, doublereal *a, doublereal *w, integer *ip, doublereal *b, integer *ierr, doublereal *rv1);
00047 extern int ortbak_(integer *nm, integer *low, integer *igh, doublereal *a, doublereal *ort, integer *m, doublereal *z__);
00048 extern int orthes_(integer *nm, integer *n, integer *low, integer *igh, doublereal *a, doublereal *ort);
00049 extern int ortran_(integer *nm, integer *n, integer *low, integer *igh, doublereal *a, doublereal *ort, doublereal *z__);
00050 extern doublereal pythag_(doublereal *a, doublereal *b);
00051 extern int qzhes_(integer *nm, integer *n, doublereal *a, doublereal *b, logical *matz, doublereal *z__);
00052 extern int qzit_(integer *nm, integer *n, doublereal *a, doublereal *b, doublereal *eps1, logical *matz, doublereal *z__, integer *ierr);
00053 extern int qzval_(integer *nm, integer *n, doublereal *a, doublereal *b, doublereal *alfr, doublereal *alfi, doublereal *beta, logical *matz, doublereal *z__);
00054 extern int qzvec_(integer *nm, integer *n, doublereal *a, doublereal *b, doublereal *alfr, doublereal *alfi, doublereal *beta, doublereal *z__);
00055 extern int ratqr_(integer *n, doublereal *eps1, doublereal *d__, doublereal *e, doublereal *e2, integer *m, doublereal *w, integer *ind, doublereal *bd, logical *type__, integer *idef, integer *ierr);
00056 extern int rebak_(integer *nm, integer *n, doublereal *b, doublereal *dl, integer *m, doublereal *z__);
00057 extern int rebakb_(integer *nm, integer *n, doublereal *b, doublereal *dl, integer *m, doublereal *z__);
00058 extern int reduc_(integer *nm, integer *n, doublereal *a, doublereal *b, doublereal *dl, integer *ierr);
00059 extern int reduc2_(integer *nm, integer *n, doublereal *a, doublereal *b, doublereal *dl, integer *ierr);
00060 extern int rg_(integer *nm, integer *n, doublereal *a, doublereal *wr, doublereal *wi, integer *matz, doublereal *z__, integer *iv1, doublereal *fv1, integer *ierr);
00061 extern int rgg_(integer *nm, integer *n, doublereal *a, doublereal *b, doublereal *alfr, doublereal *alfi, doublereal *beta, integer *matz, doublereal *z__, integer *ierr);
00062 extern int rs_(integer *nm, integer *n, doublereal *a, doublereal *w, integer *matz, doublereal *z__, doublereal *fv1, doublereal *fv2, integer *ierr);
00063 extern int rsb_(integer *nm, integer *n, integer *mb, doublereal *a, doublereal *w, integer *matz, doublereal *z__, doublereal *fv1, doublereal *fv2, integer *ierr);
00064 extern int rsg_(integer *nm, integer *n, doublereal *a, doublereal *b, doublereal *w, integer *matz, doublereal *z__, doublereal *fv1, doublereal *fv2, integer *ierr);
00065 extern int rsgab_(integer *nm, integer *n, doublereal *a, doublereal *b, doublereal *w, integer *matz, doublereal *z__, doublereal *fv1, doublereal *fv2, integer *ierr);
00066 extern int rsgba_(integer *nm, integer *n, doublereal *a, doublereal *b, doublereal *w, integer *matz, doublereal *z__, doublereal *fv1, doublereal *fv2, integer *ierr);
00067 extern int rsm_(integer *nm, integer *n, doublereal *a, doublereal *w, integer *m, doublereal *z__, doublereal *fwork, integer *iwork, integer *ierr);
00068 extern int rsp_(integer *nm, integer *n, integer *nv, doublereal *a, doublereal *w, integer *matz, doublereal *z__, doublereal *fv1, doublereal *fv2, integer *ierr);
00069 extern int rst_(integer *nm, integer *n, doublereal *w, doublereal *e, integer *matz, doublereal *z__, integer *ierr);
00070 extern int rt_(integer *nm, integer *n, doublereal *a, doublereal *w, integer *matz, doublereal *z__, doublereal *fv1, integer *ierr);
00071 extern int svd_(integer *m, integer *n, integer *lda, doublereal *a, doublereal *w, logical *matu, integer *ldu, doublereal *u, logical * matv, integer *ldv, doublereal *v, integer *ierr, doublereal *rv1);
00072 extern int tql1_(integer *n, doublereal *d__, doublereal *e, integer *ierr);
00073 extern int tql2_(integer *nm, integer *n, doublereal *d__, doublereal *e, doublereal *z__, integer *ierr);
00074 extern int tqlrat_(integer *n, doublereal *d__, doublereal *e2, integer *ierr);
00075 extern int trbak1_(integer *nm, integer *n, doublereal *a, doublereal *e, integer *m, doublereal *z__);
00076 extern int trbak3_(integer *nm, integer *n, integer *nv, doublereal *a, integer *m, doublereal *z__);
00077 extern int tred1_(integer *nm, integer *n, doublereal *a, doublereal *d__, doublereal *e, doublereal *e2);
00078 extern int tred2_(integer *nm, integer *n, doublereal *a, doublereal *d__, doublereal *e, doublereal *z__);
00079 extern int tred3_(integer *n, integer *nv, doublereal *a, doublereal *d__, doublereal *e, doublereal *e2);
00080 extern int tridib_(integer *n, doublereal *eps1, doublereal *d__, doublereal *e, doublereal *e2, doublereal *lb, doublereal *ub, integer *m11, integer *m, doublereal *w, integer *ind, integer *ierr, doublereal *rv4, doublereal *rv5);
00081 extern int tsturm_(integer *nm, integer *n, doublereal *eps1, doublereal *d__, doublereal *e, doublereal *e2, doublereal *lb, doublereal *ub, integer *mm, integer *m, doublereal *w, doublereal *z__, integer *ierr, doublereal *rv1, doublereal *rv2, doublereal *rv3, doublereal *rv4, doublereal *rv5, doublereal *rv6);
00082 
00083 #endif