218 lines
11 KiB
C
218 lines
11 KiB
C
/* hypre_lapack.h -- Contains LAPACK prototypes needed by Hypre */
|
|
|
|
#ifndef HYPRE_LAPACK_H
|
|
#define HYPRE_LAPACK_H
|
|
#include "f2c.h"
|
|
|
|
/* dgebd2.c */
|
|
int dgebd2_ ( integer *m , integer *n , doublereal *a , integer *lda , doublereal *d__ , doublereal *e , doublereal *tauq , doublereal *taup , doublereal *work , integer *info );
|
|
|
|
/* dgebrd.c */
|
|
int dgebrd_ ( integer *m , integer *n , doublereal *a , integer *lda , doublereal *d__ , doublereal *e , doublereal *tauq , doublereal *taup , doublereal *work , integer *lwork , integer *info );
|
|
|
|
/* dgelq2.c */
|
|
int dgelq2_ ( integer *m , integer *n , doublereal *a , integer *lda , doublereal *tau , doublereal *work , integer *info );
|
|
|
|
/* dgelqf.c */
|
|
int dgelqf_ ( integer *m , integer *n , doublereal *a , integer *lda , doublereal *tau , doublereal *work , integer *lwork , integer *info );
|
|
|
|
/* dgels.c */
|
|
int dgels_ ( char *trans , integer *m , integer *n , integer *nrhs , doublereal *a , integer *lda , doublereal *b , integer *ldb , doublereal *work , integer *lwork , integer *info );
|
|
|
|
/* dgeqr2.c */
|
|
int dgeqr2_ ( integer *m , integer *n , doublereal *a , integer *lda , doublereal *tau , doublereal *work , integer *info );
|
|
|
|
/* dgeqrf.c */
|
|
int dgeqrf_ ( integer *m , integer *n , doublereal *a , integer *lda , doublereal *tau , doublereal *work , integer *lwork , integer *info );
|
|
|
|
/* dgesvd.c */
|
|
int dgesvd_ ( char *jobu , char *jobvt , integer *m , integer *n , doublereal *a , integer *lda , doublereal *s , doublereal *u , integer *ldu , doublereal *vt , integer *ldvt , doublereal *work , integer *lwork , integer *info );
|
|
|
|
/* dlabad.c */
|
|
int dlabad_ ( doublereal *small , doublereal *large );
|
|
|
|
/* dlabrd.c */
|
|
int dlabrd_ ( integer *m , integer *n , integer *nb , doublereal *a , integer *lda , doublereal *d__ , doublereal *e , doublereal *tauq , doublereal *taup , doublereal *x , integer *ldx , doublereal *y , integer *ldy );
|
|
|
|
/* dlae2.c */
|
|
int dlae2_ ( doublereal *a , doublereal *b , doublereal *c__ , doublereal *rt1 , doublereal *rt2 );
|
|
|
|
/* dlaev2.c */
|
|
int dlaev2_ ( doublereal *a , doublereal *b , doublereal *c__ , doublereal *rt1 , doublereal *rt2 , doublereal *cs1 , doublereal *sn1 );
|
|
|
|
/* dlamch.c */
|
|
doublereal dlamch_ ( char *cmach );
|
|
int dlamc1_ ( integer *beta , integer *t , logical *rnd , logical *ieee1 );
|
|
int dlamc2_ ( integer *beta , integer *t , logical *rnd , doublereal *eps , integer *emin , doublereal *rmin , integer *emax , doublereal *rmax );
|
|
doublereal dlamc3_ ( doublereal *a , doublereal *b );
|
|
int dlamc4_ ( integer *emin , doublereal *start , integer *base );
|
|
int dlamc5_ ( integer *beta , integer *p , integer *emin , logical *ieee , integer *emax , doublereal *rmax );
|
|
|
|
/* dlange.c */
|
|
doublereal dlange_ ( char *norm , integer *m , integer *n , doublereal *a , integer *lda , doublereal *work );
|
|
|
|
/* dlanst.c */
|
|
doublereal dlanst_ ( char *norm , integer *n , doublereal *d__ , doublereal *e );
|
|
|
|
/* dlansy.c */
|
|
doublereal dlansy_ ( char *norm , char *uplo , integer *n , doublereal *a , integer *lda , doublereal *work );
|
|
|
|
/* dlapy2.c */
|
|
doublereal dlapy2_ ( doublereal *x , doublereal *y );
|
|
|
|
/* dlarf.c */
|
|
int dlarf_ ( char *side , integer *m , integer *n , doublereal *v , integer *incv , doublereal *tau , doublereal *c__ , integer *ldc , doublereal *work );
|
|
|
|
/* dlarfb.c */
|
|
int dlarfb_ ( char *side , char *trans , char *direct , char *storev , integer *m , integer *n , integer *k , doublereal *v , integer *ldv , doublereal *t , integer *ldt , doublereal *c__ , integer *ldc , doublereal *work , integer *ldwork );
|
|
|
|
/* dlarfg.c */
|
|
int dlarfg_ ( integer *n , doublereal *alpha , doublereal *x , integer *incx , doublereal *tau );
|
|
|
|
/* dlarft.c */
|
|
int dlarft_ ( char *direct , char *storev , integer *n , integer *k , doublereal *v , integer *ldv , doublereal *tau , doublereal *t , integer *ldt );
|
|
|
|
/* dlartg.c */
|
|
int dlartg_ ( doublereal *f , doublereal *g , doublereal *cs , doublereal *sn , doublereal *r__ );
|
|
|
|
/* dlascl.c */
|
|
int dlascl_ ( char *type__ , integer *kl , integer *ku , doublereal *cfrom , doublereal *cto , integer *m , integer *n , doublereal *a , integer *lda , integer *info );
|
|
|
|
/* dlaset.c */
|
|
int dlaset_ ( char *uplo , integer *m , integer *n , doublereal *alpha , doublereal *beta , doublereal *a , integer *lda );
|
|
|
|
/* dlasr.c */
|
|
int dlasr_ ( char *side , char *pivot , char *direct , integer *m , integer *n , doublereal *c__ , doublereal *s , doublereal *a , integer *lda );
|
|
|
|
/* dlasrt.c */
|
|
int dlasrt_ ( char *id , integer *n , doublereal *d__ , integer *info );
|
|
|
|
/* dlassq.c */
|
|
int dlassq_ ( integer *n , doublereal *x , integer *incx , doublereal *scale , doublereal *sumsq );
|
|
|
|
/* dlatrd.c */
|
|
int dlatrd_ ( char *uplo , integer *n , integer *nb , doublereal *a , integer *lda , doublereal *e , doublereal *tau , doublereal *w , integer *ldw );
|
|
|
|
/* dorg2l.c */
|
|
int dorg2l_ ( integer *m , integer *n , integer *k , doublereal *a , integer *lda , doublereal *tau , doublereal *work , integer *info );
|
|
|
|
/* dorg2r.c */
|
|
int dorg2r_ ( integer *m , integer *n , integer *k , doublereal *a , integer *lda , doublereal *tau , doublereal *work , integer *info );
|
|
|
|
/* dorgql.c */
|
|
int dorgql_ ( integer *m , integer *n , integer *k , doublereal *a , integer *lda , doublereal *tau , doublereal *work , integer *lwork , integer *info );
|
|
|
|
/* dorgqr.c */
|
|
int dorgqr_ ( integer *m , integer *n , integer *k , doublereal *a , integer *lda , doublereal *tau , doublereal *work , integer *lwork , integer *info );
|
|
|
|
/* dorgtr.c */
|
|
int dorgtr_ ( char *uplo , integer *n , doublereal *a , integer *lda , doublereal *tau , doublereal *work , integer *lwork , integer *info );
|
|
|
|
/* dorm2r.c */
|
|
int dorm2r_ ( char *side , char *trans , integer *m , integer *n , integer *k , doublereal *a , integer *lda , doublereal *tau , doublereal *c__ , integer *ldc , doublereal *work , integer *info );
|
|
|
|
/* dorml2.c */
|
|
int dorml2_ ( char *side , char *trans , integer *m , integer *n , integer *k , doublereal *a , integer *lda , doublereal *tau , doublereal *c__ , integer *ldc , doublereal *work , integer *info );
|
|
|
|
/* dormlq.c */
|
|
int dormlq_ ( char *side , char *trans , integer *m , integer *n , integer *k , doublereal *a , integer *lda , doublereal *tau , doublereal *c__ , integer *ldc , doublereal *work , integer *lwork , integer *info );
|
|
|
|
/* dormqr.c */
|
|
int dormqr_ ( char *side , char *trans , integer *m , integer *n , integer *k , doublereal *a , integer *lda , doublereal *tau , doublereal *c__ , integer *ldc , doublereal *work , integer *lwork , integer *info );
|
|
|
|
/* dpotf2.c */
|
|
int dpotf2_ ( char *uplo , integer *n , doublereal *a , integer *lda , integer *info );
|
|
|
|
/* dpotrf.c */
|
|
int dpotrf_ ( char *uplo , integer *n , doublereal *a , integer *lda , integer *info );
|
|
|
|
/* dpotrs.c */
|
|
int dpotrs_ ( char *uplo , integer *n , integer *nrhs , doublereal *a , integer *lda , doublereal *b , integer *ldb , integer *info );
|
|
|
|
/* dsteqr.c */
|
|
int dsteqr_ ( char *compz , integer *n , doublereal *d__ , doublereal *e , doublereal *z__ , integer *ldz , doublereal *work , integer *info );
|
|
|
|
/* dsterf.c */
|
|
int dsterf_ ( integer *n , doublereal *d__ , doublereal *e , integer *info );
|
|
|
|
/* dsyev.c */
|
|
int dsyev_ ( char *jobz , char *uplo , integer *n , doublereal *a , integer *lda , doublereal *w , doublereal *work , integer *lwork , integer *info );
|
|
|
|
/* dsygst.c */
|
|
int dsygst_ ( integer *itype , char *uplo , integer *n , doublereal *a , integer *lda , doublereal *b , integer *ldb , integer *info );
|
|
|
|
/* dsygv.c */
|
|
int dsygv_ ( integer *itype , char *jobz , char *uplo , integer *n , doublereal *a , integer *lda , doublereal *b , integer *ldb , doublereal *w , doublereal *work , integer *lwork , integer *info );
|
|
|
|
/* dsytd2.c */
|
|
int dsytd2_ ( char *uplo , integer *n , doublereal *a , integer *lda , doublereal *d__ , doublereal *e , doublereal *tau , integer *info );
|
|
|
|
/* dsytrd.c */
|
|
int dsytrd_ ( char *uplo , integer *n , doublereal *a , integer *lda , doublereal *d__ , doublereal *e , doublereal *tau , doublereal *work , integer *lwork , integer *info );
|
|
|
|
/* ieeeck.c */
|
|
integer ieeeck_ ( integer *ispec , real *zero , real *one );
|
|
|
|
/* ilaenv.c */
|
|
integer ilaenv_ ( integer *ispec , char *name__ , char *opts , integer *n1 , integer *n2 , integer *n3 , integer *n4 , ftnlen name_len , ftnlen opts_len );
|
|
|
|
/* lapack_utils.c */
|
|
double d_lg10 ( doublereal *x );
|
|
double d_sign ( doublereal *a , doublereal *b );
|
|
double pow_di ( doublereal *ap , integer *bp );
|
|
double pow_dd ( doublereal *ap , doublereal *bp );
|
|
int s_cat ( char *lp , char *rpp [], ftnlen rnp [], ftnlen *np , ftnlen ll );
|
|
|
|
/* lsame.c */
|
|
logical lsame_ ( char *ca , char *cb );
|
|
|
|
/* xerbla.c */
|
|
int xerbla_ ( char *srname , integer *info );
|
|
|
|
/* dbdsqr.c */
|
|
int dbdsqr_ ( char *uplo , integer *n , integer *ncvt , integer *nru , integer *ncc , doublereal *d__ , doublereal *e , doublereal *vt , integer *ldvt , doublereal *u , integer *ldu , doublereal *c__ , integer *ldc , doublereal *work , integer *info );
|
|
|
|
/* dorgbr.c */
|
|
int dorgbr_ ( char *vect , integer *m , integer *n , integer *k , doublereal *a , integer *lda , doublereal *tau , doublereal *work , integer *lwork , integer *info );
|
|
|
|
/* dsygs2.c */
|
|
int dsygs2_ ( integer *itype , char *uplo , integer *n , doublereal *a , integer *lda , doublereal *b , integer *ldb , integer *info );
|
|
|
|
/* dorglq.c */
|
|
int dorglq_ ( integer *m , integer *n , integer *k , doublereal *a , integer *lda , doublereal *tau , doublereal *work , integer *lwork , integer *info );
|
|
|
|
/* dlacpy.c */
|
|
int dlacpy_ ( char *uplo , integer *m , integer *n , doublereal *a , integer *lda , doublereal *b , integer *ldb );
|
|
|
|
/* dormbr.c */
|
|
int dormbr_ ( char *vect , char *side , char *trans , integer *m , integer *n , integer *k , doublereal *a , integer *lda , doublereal *tau , doublereal *c__ , integer *ldc , doublereal *work , integer *lwork , integer *info );
|
|
|
|
/* dlasq1.c */
|
|
int dlasq1_ ( integer *n , doublereal *d__ , doublereal *e , doublereal *work , integer *info );
|
|
|
|
/* dlas2.c */
|
|
int dlas2_ ( doublereal *f , doublereal *g , doublereal *h__ , doublereal *ssmin , doublereal *ssmax );
|
|
|
|
/* dlasv2.c */
|
|
int dlasv2_ ( doublereal *f , doublereal *g , doublereal *h__ , doublereal *ssmin , doublereal *ssmax , doublereal *snr , doublereal *csr , doublereal *snl , doublereal *csl );
|
|
|
|
/* dorgl2.c */
|
|
int dorgl2_ ( integer *m , integer *n , integer *k , doublereal *a , integer *lda , doublereal *tau , doublereal *work , integer *info );
|
|
|
|
/* dlasq2.c */
|
|
int dlasq2_ ( integer *n , doublereal *z__ , integer *info );
|
|
|
|
/* dlasq3.c */
|
|
int dlasq3_ ( integer *i0 , integer *n0 , doublereal *z__ , integer *pp , doublereal *dmin__ , doublereal *sigma , doublereal *desig , doublereal *qmax , integer *nfail , integer *iter , integer *ndiv , logical *ieee );
|
|
|
|
/* dlasq4.c */
|
|
int dlasq4_ ( integer *i0 , integer *n0 , doublereal *z__ , integer *pp , integer *n0in , doublereal *dmin__ , doublereal *dmin1 , doublereal *dmin2 , doublereal *dn , doublereal *dn1 , doublereal *dn2 , doublereal *tau , integer *ttype );
|
|
|
|
/* dlasq5.c */
|
|
int dlasq5_ ( integer *i0 , integer *n0 , doublereal *z__ , integer *pp , doublereal *tau , doublereal *dmin__ , doublereal *dmin1 , doublereal *dmin2 , doublereal *dn , doublereal *dnm1 , doublereal *dnm2 , logical *ieee );
|
|
|
|
/* dlasq6.c */
|
|
int dlasq6_ ( integer *i0 , integer *n0 , doublereal *z__ , integer *pp , doublereal *dmin__ , doublereal *dmin1 , doublereal *dmin2 , doublereal *dn , doublereal *dnm1 , doublereal *dnm2 );
|
|
|
|
#endif
|