netlib.h

InsightToolkit-1.4.0(有大量的优化算法程序)

 float slamch_(const char *cmach);
double dlamch_(const char *cmach);

 float slange_(const char *norm, const int *m, const int *n, float *a, const int *lda, float *work);
double dlange_(const char *norm, const int *m, const int *n, double *a, const int *lda, double *work);
double zlange_(const char *norm, const int *m, const int *n, dcmplx *a, const int *lda, double *work);

double dlanhs_(const char *norm, const int *n, double *a, const int *lda, double *work);
double zlanhs_(const char *norm, const int *n, dcmplx *a, const int *lda, double *work);

  void slapll_(int *n, float *x, int *incx, float *y, int *incy, float *ssmin);
  void dlapll_(int *n, double *x, int *incx, double *y, int *incy, double *ssmin);

  void slapmt_(logical *forwrd, int *m, int *n, float *x, int *ldx, int *k);
  void dlapmt_(logical *forwrd, int *m, int *n, double *x, int *ldx, int *k);

 float slapy2_(const float *x, const float *y);
double dlapy2_(const double *x, const double *y);
double dlapy3_(const double *x, const double *y, const double *z);

  void slarf_(const char *side, const int *m, const int *n, float *v, const int *incv, const float *tau,
              float *c, const int *ldc, float *work);
  void dlarf_(const char *side, const int *m, const int *n, double *v, const int *incv, const double *tau,
              double *c, const int *ldc, double *work);
  void zlarf_(const char *side, const int *m, const int *n, dcmplx *v, const int *incv, const dcmplx *tau,
              dcmplx *c, const int *ldc, dcmplx *work);

  void dlarfb_(const char *side, const char *trans, const char *direct, const char *storev,
               const int *m, const int *n, const int *k, double *v, const int *ldv, double *t, const int *ldt,
               double *c, const int *ldc, double *work, const int *ldwork);
  void zlarfb_(const char *side, const char *trans, const char *direct, const char *storev,
               const int *m, const int *n, const int *k, dcmplx *v, const int *ldv,
               dcmplx *t, const int *ldt, dcmplx *c, const int *ldc, dcmplx *work, const int *ldwork);

  void slarfg_(const int *n, float *alpha, float *x, const int *incx, float *tau);
  void dlarfg_(const int *n, double *alpha, double *x, const int *incx, double *tau);
  void zlarfg_(const int *n, dcmplx *alpha, dcmplx *x, const int *incx, dcmplx *tau);

  void dlarft_(const char *direct, const char *storev, const int *n, const int *k,
               double *v, const int *ldv, const double *tau, double *t, const int *ldt);
  void zlarft_(const char *direct, const char *storev, const int *n, const int *k, dcmplx *v, const int *ldv,
               const dcmplx *tau, dcmplx *t, int *ldt);
  void zlarfx_(const char *side, const int *m, const int *n, dcmplx *v, dcmplx *tau, dcmplx *c, const int *ldc, dcmplx *work);

  void slartg_(float *f, float *g, float *cs, float *sn, float *r);
  void dlartg_(double *f, double *g, double *cs, double *sn, double *r);

  void slas2_(float *f, float *g, float *h, float *ssmin, float * ssmax);
  void dlas2_(double *f, double *g, double *h, double *ssmin, double *ssmax);

  void dlascl_(const char *type, const int *kl, const int *ku, double *cfrom, double *cto,
               const int *m, const int *n, double *a, const int *lda, int *info);
  void zlascl_(const char *type, const int *kl, const int *ku, double *cfrom, double *cto,
               const int *m, const int *n, dcmplx *a, const int *lda, int *info);

  void slaset_(const char *uplo, const int *m, const int *n, float *alpha, float *beta, float *a, const int *lda);
  void dlaset_(const char *uplo, const int *m, const int *n, double *alpha, double *beta, double *a, const int *lda);
  void zlaset_(const char *uplo, const int *m, const int *n, dcmplx *alpha, dcmplx *beta, dcmplx *a, const int *lda);

  void slassq_(const int *n, const float *x, const int *incx, float *scale, float *sumsq);
  void dlassq_(const int *n, const double *x, const int *incx, double *scale, double *sumsq);
  void zlassq_(const int *n, const dcmplx *x, const int *incx, double *scale, double *sumsq);

  void slasv2_(float *f, float *g, float *h, float *ssmin, float *ssmax, float *snr, float *csr, float *snl, float *csl);
  void dlasv2_(double *f, double *g, double *h, double *ssmin, double *ssmax, double *snr, double * csr, double *snl, double *csl);

  void dlaswp_(int *n, double *a, int *lda, int *k1, int *k2, int *ipiv, int *incx);

  void dlatdf_(int *ijob, int *n, double *z, int *ldz, double *rhs, double *rdsum, double *rdscal, int *ipiv, int *jpiv);

 float snrm2_(const int *n, const float *x, const int *incx);
double dnrm2_(const int* n, const double* x, const int* incx);
 float scnrm2_(const int *n, const cmplx *x, const int *incx);
double dznrm2_(const int *n, const dcmplx *x, const int *incx);
double enorm_(const int *n, const double *x);

  void sorg2r_(int *m, int *n, int *k, float *a, int *lda, float *tau, float *work, int *info);
  void dorg2r_(int *m, int *n, int *k, double *a, int *lda, double *tau, double *work, int *info);
  void dorgqr_(int *m, int *n, int *k, double *a, int *lda, double *tau, double *work, int *lwork, int *info);
  void dorgr2_(int *m, int *n, int *k, double *a, int *lda, double *tau, double *work, int *info);

  void sorm2r_(const char *side, const char *trans, const int *m, const int *n, const int *k,
               float *a, const int *lda, const float *tau, float *c, const int *ldc, float *work, int *info);
  void dorm2r_(const char* side, const char* trans, const int *m, const int *n, const int *k,
               double *a, const int *lda, const double *tau, double *c, const int*ldc, double *work, int *info);
  void dormqr_(const char *side, const char *trans, const int *m, const int *n, const int *k,
               double *a, const int *lda, double *tau, double *c, const int *ldc, double *work, int *lwork, int *info);
  void sormr2_(char *side, char *trans, int *m, int *n, int*k,float*a,int*lda,float*tau,float*c,int*ldc,float*work,int*info);
  void dormr2_(char*side, char*trans, int*m, int*n, int*k, double*a, int*lda, double*tau, double*c, int*ldc, double*work, int*info);

  void lmpar_(int *n, double *r, int *ldr, int *ipvt, double *diag, double *qtb, double *delta, double *par,
              double *x, double *sdiag, double *wa1, double *wa2);
double dpmpar_(const int *i);

  void srot_(const int *n, float *sx, const int *incx, float *sy, const int *incy, const float *c, const float *s);
  void drot_(const int *n, double *dx, const int *incx, double *dy, const int *incy, const double *c, const double *s);
  void csrot_(const int *n, cmplx *cx, const int *incx, cmplx *cy, const int *incy, const float *c, const float *s);
  void zdrot_(const int *n, dcmplx *zx, const int *incx, dcmplx *zy, const int *incy, const double *c, const double *s);
  void srotg_(float *sa, float *sb, float *c, float *s);
  void drotg_(double *da, double *db, double *c, double *s);

  void drscl_(int *n, double *sa, double *sx, int *incx);

  void dtgex2_(logical *wantq, logical *wantz, int *n, double *a, int *lda, double *b, int *ldb, double *q, int *ldq,
               double *z, int *ldz, int *j1, int *n1, int *n2, double *work, int *lwork, int *info);
  void dtgexc_(logical *wantq, logical *wantz, int *n, double *a, int *lda, double *b, int *ldb, double *q, int *ldq,
               double *z, int *ldz, int *ifst, int *ilst, double *work, int *lwork, int *info);
  void dtgsen_(int *ijob, logical *wantq, logical *wantz, logical *select, int *n, double *a, int *lda, double *b, int *ldb,
               double *alphar, double *alphai, double *beta, double *q, int *ldq, double *z, int *ldz, int *m,
               double *pl, double *pr, double *dif, double *work, int *lwork, int *iwork, int *liwork, int *info);
  void stgsja_(char *jobu, char *jobv, char *jobq, int *m, int *p, int *n, int *k, int *l,
               float *a, int *lda, float *b, int *ldb, float *tola, float *tolb, float *alpha, float * beta,
               float *u, int *ldu, float *v, int *ldv, float *q, int * ldq, float *work, int *ncycle, int *info);
  void dtgsja_(char *jobu, char *jobv, char *jobq, int *m, int *p, int *n, int *k, int *l,
               double *a, int *lda, double *b, int *ldb, double *tola, double *tolb, double *alpha, double *beta,
               double *u, int *ldu, double *v, int *ldv, double *q, int * ldq, double *work, int *ncycle, int *info);
  void dtgsy2_(char *trans, int *ijob, int *m, int *n, double *a, int *lda, double *b, int *ldb,
               double *c, int *ldc, double *d, int *ldd, double *e, int *lde, double *f, int *ldf,
               double *scale, double *rdsum, double *rdscal, int *iwork, int *pq, int *info);
  void dtgsyl_(char *trans, int *ijob, int *m, int *n,
               double *a, int *lda, double *b, int *ldb, double *c, int *ldc, double *d, int *ldd, double *e, int *lde,
               double *f, int *ldf, double *scale, double *dif, double *work, int *lwork, int *iwork, int *info);

  void trans_(float *a, const int *m, const int *n, const int *mn, int *move, int *iwrk, int *iok);
  void dtrans_(double *a, const int *m, const int *n, const int *mn, int *move, int *iwrk, int *iok);

  void dtrmm_(const char *side, const char *uplo, const char *transa, const char *diag, const int *m, const int *n,
              double *alpha, double *a, const int *lda, double *b, const int *ldb);
  void ztrmm_(const char *side, const char *uplo, const char *transa, const char *diag, const int *m, const int *n,
              dcmplx *alpha, dcmplx *a, const int *lda, dcmplx *b, const int *ldb);
  void dtrmv_(const char *uplo, const char *trans, const char *diag, const int *n,
              double *a, const int *lda, double *x, const int *incx);
  void ztrmv_(const char *uplo, const char *trans, const char *diag, const int *n,
              dcmplx *a, const int *lda, dcmplx *x, const int *incx);

  void dtrsv_(const char *uplo, const char *trans, const char *diag, const int *n,
              const double *a, const int *lda, double *x, const int *incx);
  void ztrsv_(const char *uplo, const char *trans, const char *diag, const int *n,
              const dcmplx *a, const int *lda, dcmplx *x, const int *incx);
  void dlatrs_(const char *uplo, const char *trans, const char *diag, const char *normin, const int *n,
               const double *a, const int *lda, double *x, double *scale, double *cnorm, int *info);
  void zlatrs_(const char *uplo, const char *trans, const char *diag, const char *normin, const int *n,
               const dcmplx *a, const int *lda, dcmplx *x, double *scale, double *cnorm, int *info);

 float sasum_(const int *n, const float *sx, const int *incx);
double dasum_(const int *n, const double *dx, const int *incx);
double dzasum_(const int *n, const dcmplx *x, const int *incx);

  void fdjac2_(void (*fcn)(int*,int*,double*,double*,int*),
               int *m, int *n, double *x, double *fvec, double *fjac, int *ldfjac, int *iflag, double *epsfcn, double *wa);

   int isamax_(const int *n, const float *sx, const int *incx);
   int idamax_(const int *n, const double *dx, const int *incx);
   int izamax_(const int *n, const dcmplx *zx, const int *incx);
   int izmax1_(const int *n, const dcmplx *cx, const int *incx);

   int ilaenv_(const int *ispec, const char *name, const char *opts, const int *n1, const int *n2, const int *n3, const int *n4);
logical lsame_(const char *ca, const char *cb);
double pythag_(const double *a, const double *b);

  void qrfac_(int *m, int *n, double *a, int *lda, logical *pivot, int *ipvt, int *lipvt,
              double *rdiag, double *acnorm, double *wa);
  void qrsolv_(const int *n, double *r, const int *ldr, const int *ipvt, const double *diag,
               const double *qtb, double *x, double *sdiag, double *wa);

  void tql1_(const int *n, double *d, double *e, int *ierr);
  void tql2_(const int *nm, const int *n, double *d, double *e, double *z, int *ierr);
  void tred1_(const int *nm, const int *n, double *a, double *d, double *e, double *e2);
  void tred2_(const int *nm, const int *n, const double *a, double *d, double *e, double *z);

  void zhseqr_(const char *job, const char *compz, const int *n, int *ilo, int *ihi, dcmplx *h, const int *ldh,
               dcmplx *w, dcmplx *z, const int *ldz, dcmplx *work, int *lwork, int *info);
  void zlacgv_(const int *n, dcmplx *x, const int *incx);
  void zlahqr_(const logical *wantt, const logical *wantz, const int *n, const int *ilo, const int *ihi,
               dcmplx *h, const int *ldh, dcmplx *w, int *iloz, int *ihiz, dcmplx *z, const int *ldz, int *info);
  void zlahrd_(const int *n, const int *k, const int *nb, dcmplx *a, const int *lda, dcmplx *tau,
               dcmplx *t, const int *ldt, dcmplx *y, const int *ldy);
  void ztrevc_(const char *side, const char *howmny, logical *select, const int *n, dcmplx *t, const int *ldt,
               dcmplx *vl, const int *ldvl, dcmplx *vr, const int *ldvr, const int *mm, int *m,
               dcmplx *work, double *rwork, int *info);

  void zung2r_(const int *m, const int *n, const int *k, dcmplx *a, const int *lda, const dcmplx *tau,
               dcmplx *work, int *info);
  void zungqr_(const int *m, const int *n, const int *k, dcmplx *a, const int *lda, const dcmplx *tau,
               dcmplx *work, const int *lwork, int *info);
  void zunghr_(const int *n, int *ilo, int *ihi, dcmplx *a, const int *lda, const dcmplx *tau,
               dcmplx *work, const int *lwork, int *info);

#ifdef __cplusplus
}
#endif

#endif /* netlib_h_ */