View | Details | Raw Unified | Return to bug 92940
Collapse All | Expand All

(-)arpack/Makefile (-12 / +3 lines)
Lines 21-28 Link Here
21 
MAINTAINER=	ports@FreeBSD.org
 21 
MAINTAINER=	ports@FreeBSD.org
22 
COMMENT=	Argand Library: large eigenvalue subroutines (serial version)
 22 
COMMENT=	Argand Library: large eigenvalue subroutines (serial version)
23 

          23
          

        

          
            

              24
              
BUILD_DEPENDS=	${LOCALBASE}/bin/f2c:${PORTSDIR}/lang/f2c \


              24
              
BUILD_DEPENDS=	${LOCALBASE}/lib/libblas.a:${PORTSDIR}/math/blas

            

            

              25
              
		${LOCALBASE}/lib/libblas.a:${PORTSDIR}/math/blas


              
              
            

        

          26
          

          25
          

        

        

          27
          
WRKSRC=		${WRKDIR}/ARPACK

          26
          
WRKSRC=		${WRKDIR}/ARPACK

        

        

          28
          
ALL_TARGET=	lib

          27
          
ALL_TARGET=	lib

        

  

    
      
            Lines 32-39
          
      
      
        Link Here
      
    
  

        

          32
          
INSTALLS_SHLIB=	yes

          31
          
INSTALLS_SHLIB=	yes

        

        

          33
          
USE_REINPLACE=	yes

          32
          
USE_REINPLACE=	yes

        

        

          34
          

          33
          

        

            

              35
              
.include <bsd.port.pre.mk>

              
              
            

            

              36
              

            

        

          37
          
pre-patch:

          34
          
pre-patch:

        

        

          38
          
	@(cd ${WRKSRC}; ${TAR} -xzf ${DISTDIR}/${DIST_SUBDIR}/patch.tar.gz)

          35
          
	@(cd ${WRKSRC}; ${TAR} -xzf ${DISTDIR}/${DIST_SUBDIR}/patch.tar.gz)

        

        

          39
          

          36
          

        

  

    
      
            Lines 44-63
          
      
      
        Link Here
      
    
  

        

          44
          

          41
          

        

        

          45
          
do-install:

          42
          
do-install:

        

        

          46
          
	${INSTALL} ${WRKSRC}/libarpack.a ${PREFIX}/lib

          43
          
	${INSTALL} ${WRKSRC}/libarpack.a ${PREFIX}/lib

        

            

              47
              
	(${MKDIR} ${WRKSRC}/include ;\

              
              
            

            

              48
              
	  cd ${WRKSRC}/include ;\

            

            

              49
              
	  f2c -C++ -P  ${WRKSRC}/SRC/*.f ;\

            

            

              50
              
	  f2c -C++ -P  ${WRKSRC}/BLAS/*.f ;\

            

            

              51
              
	  f2c -C++ -P  ${WRKSRC}/LAPACK/*.f ;\

            

            

              52
              
	  ${CAT} *.P | ${GREP} -v :ref: > arpack.h)

            

            

              53
              
	${INSTALL_DATA} ${WRKSRC}/include/arpack.h ${PREFIX}/include

            

        

          54
          

          44
          

        

        

          55
          
post-install:

          45
          
post-install:

        

        

          56
          
.if !defined(NOPORTDOCS)

          46
          
.if !defined(NOPORTDOCS)

        

            

              
              
              47
              
	${INSTALL_DATA} ${FILESDIR}/arpack.h ${PREFIX}/include

            

        

          57
          
	${MKDIR} ${DOCSDIR}

          48
          
	${MKDIR} ${DOCSDIR}

        

        

          58
          
	-${GZIP_CMD} ${GZIP} ${WRKSRC}/DOCUMENTS/ex-*.doc

          49
          
	-${GZIP_CMD} ${GZIP} ${WRKSRC}/DOCUMENTS/ex-*.doc

        

        

          59
          
	${CP} ${WRKSRC}/DOCUMENTS/ex-*.doc.gz ${DOCSDIR}

          50
          
	${CP} ${WRKSRC}/DOCUMENTS/ex-*.doc.gz ${DOCSDIR}

        

        

          60
          
	${INSTALL_DATA} ${DISTDIR}/${DIST_SUBDIR}/ug.ps.gz ${DOCSDIR}

          51
          
	${INSTALL_DATA} ${DISTDIR}/${DIST_SUBDIR}/ug.ps.gz ${DOCSDIR}

        

        

          61
          
.endif

          52
          
.endif

        

        

          62
          

          53
          

        

          
            

              63
              
.include <bsd.port.post.mk>


              54
              
.include <bsd.port.mk>

            



(-)arpack/files/arpack.h
      (+423 lines)




  

    
      
            Line 0
          
      
      
        Link Here
      
    
  

            

              
              
              1
              
extern int caxpy_(integer *n, complex *ca, complex *cx, integer *incx, complex *cy, integer *incy);

            

            

              2
              
extern int ccopy_(integer *n, complex *cx, integer *incx, complex *cy, integer *incy);

            

            

              3
              
extern C_f cdotc_(complex * ret_val, integer *n, complex *cx, integer *incx, complex *cy, integer *incy);

            

            

              4
              
extern C_f cdotu_(complex * ret_val, integer *n, complex *cx, integer *incx, complex *cy, integer *incy);

            

            

              5
              
extern int cgbmv_(char *trans, integer *m, integer *n, integer *kl, integer *ku, complex *alpha, complex *a, integer *lda, complex *x, integer *incx, complex *beta, complex *y, integer *incy, ftnlen trans_len);

            

            

              6
              
extern int cgbtf2_(integer *m, integer *n, integer *kl, integer *ku, complex *ab, integer *ldab, integer *ipiv, integer *info);

            

            

              7
              
extern int cgbtrf_(integer *m, integer *n, integer *kl, integer *ku, complex *ab, integer *ldab, integer *ipiv, integer *info);

            

            

              8
              
extern int cgbtrs_(char *trans, integer *n, integer *kl, integer *ku, integer *nrhs, complex *ab, integer *ldab, integer *ipiv, complex *b, integer *ldb, integer *info, ftnlen trans_len);

            

            

              9
              
extern int cgemm_(char *transa, char *transb, integer *m, integer *n, integer *k, complex *alpha, complex *a, integer *lda, complex *b, integer *ldb, complex *beta, complex *c__, integer *ldc, ftnlen transa_len, ftnlen transb_len);

            

            

              10
              
extern int cgemv_(char *trans, integer *m, integer *n, complex *alpha, complex *a, integer *lda, complex *x, integer *incx, complex *beta, complex *y, integer *incy, ftnlen trans_len);

            

            

              11
              
extern int cgeqr2_(integer *m, integer *n, complex *a, integer *lda, complex *tau, complex *work, integer *info);

            

            

              12
              
extern int cgerc_(integer *m, integer *n, complex *alpha, complex *x, integer *incx, complex *y, integer *incy, complex *a, integer *lda);

            

            

              13
              
extern int cgeru_(integer *m, integer *n, complex *alpha, complex *x, integer *incx, complex *y, integer *incy, complex *a, integer *lda);

            

            

              14
              
extern int cgetv0_(integer *ido, char *bmat, integer *itry, logical *initv, integer *n, integer *j, complex *v, integer *ldv, complex *resid, real *rnorm, integer *ipntr, complex *workd, integer *ierr, ftnlen bmat_len);

            

            

              15
              
/* comlen debug_ 96 */

            

            

              16
              
/* comlen timing_ 124 */

            

            

              17
              
extern int cgttrf_(integer *n, complex *dl, complex *d__, complex *du, complex *du2, integer *ipiv, integer *info);

            

            

              18
              
extern int cgttrs_(char *trans, integer *n, integer *nrhs, complex *dl, complex *d__, complex *du, complex *du2, integer *ipiv, complex *b, integer *ldb, integer *info, ftnlen trans_len);

            

            

              19
              
extern int clacgv_(integer *n, complex *x, integer *incx);

            

            

              20
              
extern int clacon_(integer *n, complex *v, complex *x, real *est, integer *kase);

            

            

              21
              
extern int clacpy_(char *uplo, integer *m, integer *n, complex *a, integer *lda, complex *b, integer *ldb, ftnlen uplo_len);

            

            

              22
              
extern C_f cladiv_(complex * ret_val, complex *x, complex *y);

            

            

              23
              
extern int clahqr_(logical *wantt, logical *wantz, integer *n, integer *ilo, integer *ihi, complex *h__, integer *ldh, complex *w, integer *iloz, integer *ihiz, complex *z__, integer *ldz, integer *info);

            

            

              24
              
extern E_f clange_(char *norm, integer *m, integer *n, complex *a, integer *lda, real *work, ftnlen norm_len);

            

            

              25
              
extern E_f clanhs_(char *norm, integer *n, complex *a, integer *lda, real *work, ftnlen norm_len);

            

            

              26
              
extern int clarf_(char *side, integer *m, integer *n, complex *v, integer *incv, complex *tau, complex *c__, integer *ldc, complex *work, ftnlen side_len);

            

            

              27
              
extern int clarfg_(integer *n, complex *alpha, complex *x, integer *incx, complex *tau);

            

            

              28
              
extern int clarnv_(integer *idist, integer *iseed, integer *n, complex *x);

            

            

              29
              
extern int clartg_(complex *f, complex *g, real *cs, complex *sn, complex *r__);

            

            

              30
              
extern int clascl_(char *type__, integer *kl, integer *ku, real *cfrom, real *cto, integer *m, integer *n, complex *a, integer *lda, integer *info, ftnlen type_len);

            

            

              31
              
extern int claset_(char *uplo, integer *m, integer *n, complex *alpha, complex *beta, complex *a, integer *lda, ftnlen uplo_len);

            

            

              32
              
extern int classq_(integer *n, complex *x, integer *incx, real *scale, real *sumsq);

            

            

              33
              
extern int claswp_(integer *n, complex *a, integer *lda, integer *k1, integer *k2, integer *ipiv, integer *incx);

            

            

              34
              
extern int clatrs_(char *uplo, char *trans, char *diag, char *normin, integer *n, complex *a, integer *lda, complex *x, real *scale, real *cnorm, integer *info, ftnlen uplo_len, ftnlen trans_len, ftnlen diag_len, ftnlen normin_len);

            

            

              35
              
extern E_f cmach_(integer *job);

            

            

              36
              
extern int cnaitr_(integer *ido, char *bmat, integer *n, integer *k, integer *np, integer *nb, complex *resid, real *rnorm, complex *v, integer *ldv, complex *h__, integer *ldh, integer *ipntr, complex *workd, integer *info, ftnlen bmat_len);

            

            

              37
              
/* comlen debug_ 96 */

            

            

              38
              
/* comlen timing_ 124 */

            

            

              39
              
extern int cnapps_(integer *n, integer *kev, integer *np, complex *shift, complex *v, integer *ldv, complex *h__, integer *ldh, complex *resid, complex *q, integer *ldq, complex *workl, complex *workd);

            

            

              40
              
/* comlen debug_ 96 */

            

            

              41
              
/* comlen timing_ 124 */

            

            

              42
              
extern int cnaup2_(integer *ido, char *bmat, integer *n, char *which, integer *nev, integer *np, real *tol, complex *resid, integer *mode, integer *iupd, integer *ishift, integer *mxiter, complex *v, integer *ldv, complex *h__, integer *ldh, complex *ritz, complex *bounds, complex *q, integer *ldq, complex *workl, integer *ipntr, complex *workd, real *rwork, integer *info, ftnlen bmat_len, ftnlen which_len);

            

            

              43
              
/* comlen debug_ 96 */

            

            

              44
              
/* comlen timing_ 124 */

            

            

              45
              
extern int cnaupd_(integer *ido, char *bmat, integer *n, char *which, integer *nev, real *tol, complex *resid, integer *ncv, complex *v, integer *ldv, integer *iparam, integer *ipntr, complex *workd, complex *workl, integer *lworkl, real *rwork, integer *info, ftnlen bmat_len, ftnlen which_len);

            

            

              46
              
/* comlen debug_ 96 */

            

            

              47
              
/* comlen timing_ 124 */

            

            

              48
              
extern int cneigh_(real *rnorm, integer *n, complex *h__, integer *ldh, complex *ritz, complex *bounds, complex *q, integer *ldq, complex *workl, real *rwork, integer *ierr);

            

            

              49
              
/* comlen debug_ 96 */

            

            

              50
              
/* comlen timing_ 124 */

            

            

              51
              
extern int cneupd_(logical *rvec, char *howmny, logical *select, complex *d__, complex *z__, integer *ldz, complex *sigma, complex *workev, char *bmat, integer *n, char *which, integer *nev, real *tol, complex *resid, integer *ncv, complex *v, integer *ldv, integer *iparam, integer *ipntr, complex *workd, complex *workl, integer *lworkl, real *rwork, integer *info, ftnlen howmny_len, ftnlen bmat_len, ftnlen which_len);

            

            

              52
              
/* comlen debug_ 96 */

            

            

              53
              
/* comlen timing_ 124 */

            

            

              54
              
extern int cngets_(integer *ishift, char *which, integer *kev, integer *np, complex *ritz, complex *bounds, ftnlen which_len);

            

            

              55
              
/* comlen debug_ 96 */

            

            

              56
              
/* comlen timing_ 124 */

            

            

              57
              
extern int crot_(integer *n, complex *cx, integer *incx, complex *cy, integer *incy, real *c__, complex *s);

            

            

              58
              
extern int cscal_(integer *n, complex *ca, complex *cx, integer *incx);

            

            

              59
              
extern int csortc_(char *which, logical *apply, integer *n, complex *x, complex *y, ftnlen which_len);

            

            

              60
              
extern int csscal_(integer *n, real *sa, complex *cx, integer *incx);

            

            

              61
              
extern int cstatn_();

            

            

              62
              
/* comlen timing_ 124 */

            

            

              63
              
extern int cswap_(integer *n, complex *cx, integer *incx, complex *cy, integer *incy);

            

            

              64
              
extern int ctbsv_(char *uplo, char *trans, char *diag, integer *n, integer *k, complex *a, integer *lda, complex *x, integer *incx, ftnlen uplo_len, ftnlen trans_len, ftnlen diag_len);

            

            

              65
              
extern int ctrevc_(char *side, char *howmny, logical *select, integer *n, complex *t, integer *ldt, complex *vl, integer *ldvl, complex *vr, integer *ldvr, integer *mm, integer *m, complex *work, real *rwork, integer *info, ftnlen side_len, ftnlen howmny_len);

            

            

              66
              
extern int ctrexc_(char *compq, integer *n, complex *t, integer *ldt, complex *q, integer *ldq, integer *ifst, integer *ilst, integer *info, ftnlen compq_len);

            

            

              67
              
extern int ctrmm_(char *side, char *uplo, char *transa, char *diag, integer *m, integer *n, complex *alpha, complex *a, integer *lda, complex *b, integer *ldb, ftnlen side_len, ftnlen uplo_len, ftnlen transa_len, ftnlen diag_len);

            

            

              68
              
extern int ctrsen_(char *job, char *compq, logical *select, integer *n, complex *t, integer *ldt, complex *q, integer *ldq, complex *w, integer *m, real *s, real *sep, complex *work, integer *lwork, integer *info, ftnlen job_len, ftnlen compq_len);

            

            

              69
              
extern int ctrsm_(char *side, char *uplo, char *transa, char *diag, integer *m, integer *n, complex *alpha, complex *a, integer *lda, complex *b, integer *ldb, ftnlen side_len, ftnlen uplo_len, ftnlen transa_len, ftnlen diag_len);

            

            

              70
              
extern int ctrsv_(char *uplo, char *trans, char *diag, integer *n, complex *a, integer *lda, complex *x, integer *incx, ftnlen uplo_len, ftnlen trans_len, ftnlen diag_len);

            

            

              71
              
extern int ctrsyl_(char *trana, char *tranb, integer *isgn, integer *m, integer *n, complex *a, integer *lda, complex *b, integer *ldb, complex *c__, integer *ldc, real *scale, integer *info, ftnlen trana_len, ftnlen tranb_len);

            

            

              72
              
extern int cunm2r_(char *side, char *trans, integer *m, integer *n, integer *k, complex *a, integer *lda, complex *tau, complex *c__, integer *ldc, complex *work, integer *info, ftnlen side_len, ftnlen trans_len);

            

            

              73
              
extern doublereal dasum_(integer *n, doublereal *dx, integer *incx);

            

            

              74
              
extern int daxpy_(integer *n, doublereal *da, doublereal *dx, integer *incx, doublereal *dy, integer *incy);

            

            

              75
              
extern int dcopy_(integer *n, doublereal *dx, integer *incx, doublereal *dy, integer *incy);

            

            

              76
              
extern doublereal ddot_(integer *n, doublereal *dx, integer *incx, doublereal *dy, integer *incy);

            

            

              77
              
extern int dgbmv_(char *trans, integer *m, integer *n, integer *kl, integer *ku, doublereal *alpha, doublereal *a, integer *lda, doublereal *x, integer *incx, doublereal *beta, doublereal *y, integer *incy, ftnlen trans_len);

            

            

              78
              
extern int dgbtf2_(integer *m, integer *n, integer *kl, integer *ku, doublereal *ab, integer *ldab, integer *ipiv, integer *info);

            

            

              79
              
extern int dgbtrf_(integer *m, integer *n, integer *kl, integer *ku, doublereal *ab, integer *ldab, integer *ipiv, integer *info);

            

            

              80
              
extern int dgbtrs_(char *trans, integer *n, integer *kl, integer *ku, integer *nrhs, doublereal *ab, integer *ldab, integer *ipiv, doublereal *b, integer *ldb, integer *info, ftnlen trans_len);

            

            

              81
              
extern int dgemm_(char *transa, char *transb, integer *m, integer *n, integer *k, doublereal *alpha, doublereal *a, integer *lda, doublereal *b, integer *ldb, doublereal *beta, doublereal *c__, integer *ldc, ftnlen transa_len, ftnlen transb_len);

            

            

              82
              
extern int dgemv_(char *trans, integer *m, integer *n, doublereal *alpha, doublereal *a, integer *lda, doublereal *x, integer *incx, doublereal *beta, doublereal *y, integer *incy, ftnlen trans_len);

            

            

              83
              
extern int dgeqr2_(integer *m, integer *n, doublereal *a, integer *lda, doublereal *tau, doublereal *work, integer *info);

            

            

              84
              
extern int dger_(integer *m, integer *n, doublereal *alpha, doublereal *x, integer *incx, doublereal *y, integer *incy, doublereal *a, integer *lda);

            

            

              85
              
extern int dgetv0_(integer *ido, char *bmat, integer *itry, logical *initv, integer *n, integer *j, doublereal *v, integer *ldv, doublereal *resid, doublereal *rnorm, integer *ipntr, doublereal *workd, integer *ierr, ftnlen bmat_len);

            

            

              86
              
/* comlen debug_ 96 */

            

            

              87
              
/* comlen timing_ 124 */

            

            

              88
              
extern int dgttrf_(integer *n, doublereal *dl, doublereal *d__, doublereal *du, doublereal *du2, integer *ipiv, integer *info);

            

            

              89
              
extern int dgttrs_(char *trans, integer *n, integer *nrhs, doublereal *dl, doublereal *d__, doublereal *du, doublereal *du2, integer *ipiv, doublereal *b, integer *ldb, integer *info, ftnlen trans_len);

            

            

              90
              
extern int dlabad_(doublereal *small, doublereal *large);

            

            

              91
              
extern int dlacon_(integer *n, doublereal *v, doublereal *x, integer *isgn, doublereal *est, integer *kase);

            

            

              92
              
extern int dlacpy_(char *uplo, integer *m, integer *n, doublereal *a, integer *lda, doublereal *b, integer *ldb, ftnlen uplo_len);

            

            

              93
              
extern int dladiv_(doublereal *a, doublereal *b, doublereal *c__, doublereal *d__, doublereal *p, doublereal *q);

            

            

              94
              
extern int dlae2_(doublereal *a, doublereal *b, doublereal *c__, doublereal *rt1, doublereal *rt2);

            

            

              95
              
extern int dlaev2_(doublereal *a, doublereal *b, doublereal *c__, doublereal *rt1, doublereal *rt2, doublereal *cs1, doublereal *sn1);

            

            

              96
              
extern int dlaexc_(logical *wantq, integer *n, doublereal *t, integer *ldt, doublereal *q, integer *ldq, integer *j1, integer *n1, integer *n2, doublereal *work, integer *info);

            

            

              97
              
extern int dlagtm_(char *trans, integer *n, integer *nrhs, doublereal *alpha, doublereal *dl, doublereal *d__, doublereal *du, doublereal *x, integer *ldx, doublereal *beta, doublereal *b, integer *ldb, ftnlen trans_len);

            

            

              98
              
extern int dlahqr_(logical *wantt, logical *wantz, integer *n, integer *ilo, integer *ihi, doublereal *h__, integer *ldh, doublereal *wr, doublereal *wi, integer *iloz, integer *ihiz, doublereal *z__, integer *ldz, integer *info);

            

            

              99
              
extern int dlaln2_(logical *ltrans, integer *na, integer *nw, doublereal *smin, doublereal *ca, doublereal *a, integer *lda, doublereal *d1, doublereal *d2, doublereal *b, integer *ldb, doublereal *wr, doublereal *wi, doublereal *x, integer *ldx, doublereal *scale, doublereal *xnorm, integer *info);

            

            

              100
              
extern doublereal dlamch_(char *cmach, ftnlen cmach_len);

            

            

              101
              
extern int dlamc1_(integer *beta, integer *t, logical *rnd, logical *ieee1);

            

            

              102
              
extern int dlamc2_(integer *beta, integer *t, logical *rnd, doublereal *eps, integer *emin, doublereal *rmin, integer *emax, doublereal *rmax);

            

            

              103
              
extern doublereal dlamc3_(doublereal *a, doublereal *b);

            

            

              104
              
extern int dlamc4_(integer *emin, doublereal *start, integer *base);

            

            

              105
              
extern int dlamc5_(integer *beta, integer *p, integer *emin, logical *ieee, integer *emax, doublereal *rmax);

            

            

              106
              
extern doublereal dlange_(char *norm, integer *m, integer *n, doublereal *a, integer *lda, doublereal *work, ftnlen norm_len);

            

            

              107
              
extern doublereal dlanhs_(char *norm, integer *n, doublereal *a, integer *lda, doublereal *work, ftnlen norm_len);

            

            

              108
              
extern doublereal dlanst_(char *norm, integer *n, doublereal *d__, doublereal *e, ftnlen norm_len);

            

            

              109
              
extern int dlanv2_(doublereal *a, doublereal *b, doublereal *c__, doublereal *d__, doublereal *rt1r, doublereal *rt1i, doublereal *rt2r, doublereal *rt2i, doublereal *cs, doublereal *sn);

            

            

              110
              
extern int dlaptm_(integer *n, integer *nrhs, doublereal *alpha, doublereal *d__, doublereal *e, doublereal *x, integer *ldx, doublereal *beta, doublereal *b, integer *ldb);

            

            

              111
              
extern doublereal dlapy2_(doublereal *x, doublereal *y);

            

            

              112
              
extern doublereal dlapy3_(doublereal *x, doublereal *y, doublereal *z__);

            

            

              113
              
extern int dlaqrb_(logical *wantt, integer *n, integer *ilo, integer *ihi, doublereal *h__, integer *ldh, doublereal *wr, doublereal *wi, doublereal *z__, integer *info);

            

            

              114
              
extern doublereal dlaran_(integer *iseed);

            

            

              115
              
extern int dlarf_(char *side, integer *m, integer *n, doublereal *v, integer *incv, doublereal *tau, doublereal *c__, integer *ldc, doublereal *work, ftnlen side_len);

            

            

              116
              
extern int dlarfg_(integer *n, doublereal *alpha, doublereal *x, integer *incx, doublereal *tau);

            

            

              117
              
extern int dlarfx_(char *side, integer *m, integer *n, doublereal *v, doublereal *tau, doublereal *c__, integer *ldc, doublereal *work, ftnlen side_len);

            

            

              118
              
extern doublereal dlarnd_(integer *idist, integer *iseed);

            

            

              119
              
extern int dlarnv_(integer *idist, integer *iseed, integer *n, doublereal *x);

            

            

              120
              
extern int dlartg_(doublereal *f, doublereal *g, doublereal *cs, doublereal *sn, doublereal *r__);

            

            

              121
              
extern int dlaruv_(integer *iseed, integer *n, doublereal *x);

            

            

              122
              
extern int dlascl_(char *type__, integer *kl, integer *ku, doublereal *cfrom, doublereal *cto, integer *m, integer *n, doublereal *a, integer *lda, integer *info, ftnlen type_len);

            

            

              123
              
extern int dlaset_(char *uplo, integer *m, integer *n, doublereal *alpha, doublereal *beta, doublereal *a, integer *lda, ftnlen uplo_len);

            

            

              124
              
extern int dlasr_(char *side, char *pivot, char *direct, integer *m, integer *n, doublereal *c__, doublereal *s, doublereal *a, integer *lda, ftnlen side_len, ftnlen pivot_len, ftnlen direct_len);

            

            

              125
              
extern int dlasrt_(char *id, integer *n, doublereal *d__, integer *info, ftnlen id_len);

            

            

              126
              
extern int dlassq_(integer *n, doublereal *x, integer *incx, doublereal *scale, doublereal *sumsq);

            

            

              127
              
extern int dlaswp_(integer *n, doublereal *a, integer *lda, integer *k1, integer *k2, integer *ipiv, integer *incx);

            

            

              128
              
extern int dlasy2_(logical *ltranl, logical *ltranr, integer *isgn, integer *n1, integer *n2, doublereal *tl, integer *ldtl, doublereal *tr, integer *ldtr, doublereal *b, integer *ldb, doublereal *scale, doublereal *x, integer *ldx, doublereal *xnorm, integer *info);

            

            

              129
              
extern int dnaitr_(integer *ido, char *bmat, integer *n, integer *k, integer *np, integer *nb, doublereal *resid, doublereal *rnorm, doublereal *v, integer *ldv, doublereal *h__, integer *ldh, integer *ipntr, doublereal *workd, integer *info, ftnlen bmat_len);

            

            

              130
              
/* comlen debug_ 96 */

            

            

              131
              
/* comlen timing_ 124 */

            

            

              132
              
extern int dnapps_(integer *n, integer *kev, integer *np, doublereal *shiftr, doublereal *shifti, doublereal *v, integer *ldv, doublereal *h__, integer *ldh, doublereal *resid, doublereal *q, integer *ldq, doublereal *workl, doublereal *workd);

            

            

              133
              
/* comlen debug_ 96 */

            

            

              134
              
/* comlen timing_ 124 */

            

            

              135
              
extern int dnaup2_(integer *ido, char *bmat, integer *n, char *which, integer *nev, integer *np, doublereal *tol, doublereal *resid, integer *mode, integer *iupd, integer *ishift, integer *mxiter, doublereal *v, integer *ldv, doublereal *h__, integer *ldh, doublereal *ritzr, doublereal *ritzi, doublereal *bounds, doublereal *q, integer *ldq, doublereal *workl, integer *ipntr, doublereal *workd, integer *info, ftnlen bmat_len, ftnlen which_len);

            

            

              136
              
/* comlen debug_ 96 */

            

            

              137
              
/* comlen timing_ 124 */

            

            

              138
              
extern int dnaupd_(integer *ido, char *bmat, integer *n, char *which, integer *nev, doublereal *tol, doublereal *resid, integer *ncv, doublereal *v, integer *ldv, integer *iparam, integer *ipntr, doublereal *workd, doublereal *workl, integer *lworkl, integer *info, ftnlen bmat_len, ftnlen which_len);

            

            

              139
              
/* comlen debug_ 96 */

            

            

              140
              
/* comlen timing_ 124 */

            

            

              141
              
extern int dnconv_(integer *n, doublereal *ritzr, doublereal *ritzi, doublereal *bounds, doublereal *tol, integer *nconv);

            

            

              142
              
/* comlen debug_ 96 */

            

            

              143
              
/* comlen timing_ 124 */

            

            

              144
              
extern int dneigh_(doublereal *rnorm, integer *n, doublereal *h__, integer *ldh, doublereal *ritzr, doublereal *ritzi, doublereal *bounds, doublereal *q, integer *ldq, doublereal *workl, integer *ierr);

            

            

              145
              
/* comlen debug_ 96 */

            

            

              146
              
/* comlen timing_ 124 */

            

            

              147
              
extern int dneupd_(logical *rvec, char *howmny, logical *select, doublereal *dr, doublereal *di, doublereal *z__, integer *ldz, doublereal *sigmar, doublereal *sigmai, doublereal *workev, char *bmat, integer *n, char *which, integer *nev, doublereal *tol, doublereal *resid, integer *ncv, doublereal *v, integer *ldv, integer *iparam, integer *ipntr, doublereal *workd, doublereal *workl, integer *lworkl, integer *info, ftnlen howmny_len, ftnlen bmat_len, ftnlen which_len);

            

            

              148
              
/* comlen debug_ 96 */

            

            

              149
              
/* comlen timing_ 124 */

            

            

              150
              
extern int dngets_(integer *ishift, char *which, integer *kev, integer *np, doublereal *ritzr, doublereal *ritzi, doublereal *bounds, doublereal *shiftr, doublereal *shifti, ftnlen which_len);

            

            

              151
              
/* comlen debug_ 96 */

            

            

              152
              
/* comlen timing_ 124 */

            

            

              153
              
extern doublereal dnrm2_(integer *n, doublereal *dx, integer *incx);

            

            

              154
              
extern 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, ftnlen side_len, ftnlen trans_len);

            

            

              155
              
extern int dpttrf_(integer *n, doublereal *d__, doublereal *e, integer *info);

            

            

              156
              
extern int dpttrs_(integer *n, integer *nrhs, doublereal *d__, doublereal *e, doublereal *b, integer *ldb, integer *info);

            

            

              157
              
extern int drot_(integer *n, doublereal *dx, integer *incx, doublereal *dy, integer *incy, doublereal *c__, doublereal *s);

            

            

              158
              
extern int drotg_(doublereal *da, doublereal *db, doublereal *c__, doublereal *s);

            

            

              159
              
extern int dsaitr_(integer *ido, char *bmat, integer *n, integer *k, integer *np, integer *mode, doublereal *resid, doublereal *rnorm, doublereal *v, integer *ldv, doublereal *h__, integer *ldh, integer *ipntr, doublereal *workd, integer *info, ftnlen bmat_len);

            

            

              160
              
/* comlen debug_ 96 */

            

            

              161
              
/* comlen timing_ 124 */

            

            

              162
              
extern int dsapps_(integer *n, integer *kev, integer *np, doublereal *shift, doublereal *v, integer *ldv, doublereal *h__, integer *ldh, doublereal *resid, doublereal *q, integer *ldq, doublereal *workd);

            

            

              163
              
/* comlen debug_ 96 */

            

            

              164
              
/* comlen timing_ 124 */

            

            

              165
              
extern int dsaup2_(integer *ido, char *bmat, integer *n, char *which, integer *nev, integer *np, doublereal *tol, doublereal *resid, integer *mode, integer *iupd, integer *ishift, integer *mxiter, doublereal *v, integer *ldv, doublereal *h__, integer *ldh, doublereal *ritz, doublereal *bounds, doublereal *q, integer *ldq, doublereal *workl, integer *ipntr, doublereal *workd, integer *info, ftnlen bmat_len, ftnlen which_len);

            

            

              166
              
/* comlen debug_ 96 */

            

            

              167
              
/* comlen timing_ 124 */

            

            

              168
              
extern int dsaupd_(integer *ido, char *bmat, integer *n, char *which, integer *nev, doublereal *tol, doublereal *resid, integer *ncv, doublereal *v, integer *ldv, integer *iparam, integer *ipntr, doublereal *workd, doublereal *workl, integer *lworkl, integer *info, ftnlen bmat_len, ftnlen which_len);

            

            

              169
              
/* comlen debug_ 96 */

            

            

              170
              
/* comlen timing_ 124 */

            

            

              171
              
extern int dscal_(integer *n, doublereal *da, doublereal *dx, integer *incx);

            

            

              172
              
extern int dsconv_(integer *n, doublereal *ritz, doublereal *bounds, doublereal *tol, integer *nconv);

            

            

              173
              
/* comlen debug_ 96 */

            

            

              174
              
/* comlen timing_ 124 */

            

            

              175
              
extern int dseigt_(doublereal *rnorm, integer *n, doublereal *h__, integer *ldh, doublereal *eig, doublereal *bounds, doublereal *workl, integer *ierr);

            

            

              176
              
/* comlen debug_ 96 */

            

            

              177
              
/* comlen timing_ 124 */

            

            

              178
              
extern int dsesrt_(char *which, logical *apply, integer *n, doublereal *x, integer *na, doublereal *a, integer *lda, ftnlen which_len);

            

            

              179
              
extern int dseupd_(logical *rvec, char *howmny, logical *select, doublereal *d__, doublereal *z__, integer *ldz, doublereal *sigma, char *bmat, integer *n, char *which, integer *nev, doublereal *tol, doublereal *resid, integer *ncv, doublereal *v, integer *ldv, integer *iparam, integer *ipntr, doublereal *workd, doublereal *workl, integer *lworkl, integer *info, ftnlen howmny_len, ftnlen bmat_len, ftnlen which_len);

            

            

              180
              
/* comlen debug_ 96 */

            

            

              181
              
/* comlen timing_ 124 */

            

            

              182
              
extern int dsgets_(integer *ishift, char *which, integer *kev, integer *np, doublereal *ritz, doublereal *bounds, doublereal *shifts, ftnlen which_len);

            

            

              183
              
/* comlen debug_ 96 */

            

            

              184
              
/* comlen timing_ 124 */

            

            

              185
              
extern int dsortc_(char *which, logical *apply, integer *n, doublereal *xreal, doublereal *ximag, doublereal *y, ftnlen which_len);

            

            

              186
              
extern int dsortr_(char *which, logical *apply, integer *n, doublereal *x1, doublereal *x2, ftnlen which_len);

            

            

              187
              
extern int dstatn_();

            

            

              188
              
/* comlen timing_ 124 */

            

            

              189
              
extern int dstats_();

            

            

              190
              
/* comlen timing_ 124 */

            

            

              191
              
extern int dsteqr_(char *compz, integer *n, doublereal *d__, doublereal *e, doublereal *z__, integer *ldz, doublereal *work, integer *info, ftnlen compz_len);

            

            

              192
              
extern int dstqrb_(integer *n, doublereal *d__, doublereal *e, doublereal *z__, doublereal *work, integer *info);

            

            

              193
              
extern int dswap_(integer *n, doublereal *dx, integer *incx, doublereal *dy, integer *incy);

            

            

              194
              
extern int dsymv_(char *uplo, integer *n, doublereal *alpha, doublereal *a, integer *lda, doublereal *x, integer *incx, doublereal *beta, doublereal *y, integer *incy, ftnlen uplo_len);

            

            

              195
              
extern int dsyr2_(char *uplo, integer *n, doublereal *alpha, doublereal *x, integer *incx, doublereal *y, integer *incy, doublereal *a, integer *lda, ftnlen uplo_len);

            

            

              196
              
extern int dtbsv_(char *uplo, char *trans, char *diag, integer *n, integer *k, doublereal *a, integer *lda, doublereal *x, integer *incx, ftnlen uplo_len, ftnlen trans_len, ftnlen diag_len);

            

            

              197
              
extern int dtrevc_(char *side, char *howmny, logical *select, integer *n, doublereal *t, integer *ldt, doublereal *vl, integer *ldvl, doublereal *vr, integer *ldvr, integer *mm, integer *m, doublereal *work, integer *info, ftnlen side_len, ftnlen howmny_len);

            

            

              198
              
extern int dtrexc_(char *compq, integer *n, doublereal *t, integer *ldt, doublereal *q, integer *ldq, integer *ifst, integer *ilst, doublereal *work, integer *info, ftnlen compq_len);

            

            

              199
              
extern int dtrmm_(char *side, char *uplo, char *transa, char *diag, integer *m, integer *n, doublereal *alpha, doublereal *a, integer *lda, doublereal *b, integer *ldb, ftnlen side_len, ftnlen uplo_len, ftnlen transa_len, ftnlen diag_len);

            

            

              200
              
extern int dtrsen_(char *job, char *compq, logical *select, integer *n, doublereal *t, integer *ldt, doublereal *q, integer *ldq, doublereal *wr, doublereal *wi, integer *m, doublereal *s, doublereal *sep, doublereal *work, integer *lwork, integer *iwork, integer *liwork, integer *info, ftnlen job_len, ftnlen compq_len);

            

            

              201
              
extern int dtrsm_(char *side, char *uplo, char *transa, char *diag, integer *m, integer *n, doublereal *alpha, doublereal *a, integer *lda, doublereal *b, integer *ldb, ftnlen side_len, ftnlen uplo_len, ftnlen transa_len, ftnlen diag_len);

            

            

              202
              
extern int dtrsyl_(char *trana, char *tranb, integer *isgn, integer *m, integer *n, doublereal *a, integer *lda, doublereal *b, integer *ldb, doublereal *c__, integer *ldc, doublereal *scale, integer *info, ftnlen trana_len, ftnlen tranb_len);

            

            

              203
              
extern doublereal dzasum_(integer *n, doublecomplex *zx, integer *incx);

            

            

              204
              
extern doublereal dznrm2_(integer *n, doublecomplex *x, integer *incx);

            

            

              205
              
extern doublereal dzsum1_(integer *n, doublecomplex *cx, integer *incx);

            

            

              206
              
extern integer icamax_(integer *n, complex *cx, integer *incx);

            

            

              207
              
extern integer icmax1_(integer *n, complex *cx, integer *incx);

            

            

              208
              
extern integer idamax_(integer *n, doublereal *dx, integer *incx);

            

            

              209
              
extern integer ilaenv_(integer *ispec, char *name__, char *opts, integer *n1, integer *n2, integer *n3, integer *n4, ftnlen name_len, ftnlen opts_len);

            

            

              210
              
extern integer isamax_(integer *n, real *sx, integer *incx);

            

            

              211
              
extern integer izamax_(integer *n, doublecomplex *zx, integer *incx);

            

            

              212
              
extern doublereal dcabs1_(doublecomplex *z__);

            

            

              213
              
extern integer izmax1_(integer *n, doublecomplex *cx, integer *incx);

            

            

              214
              
extern logical lsame_(char *ca, char *cb, ftnlen ca_len, ftnlen cb_len);

            

            

              215
              
extern logical lsamen_(integer *n, char *ca, char *cb, ftnlen ca_len, ftnlen cb_len);

            

            

              216
              
extern E_f sasum_(integer *n, real *sx, integer *incx);

            

            

              217
              
extern int saxpy_(integer *n, real *sa, real *sx, integer *incx, real *sy, integer *incy);

            

            

              218
              
extern E_f scasum_(integer *n, complex *cx, integer *incx);

            

            

              219
              
extern E_f scnrm2_(integer *n, complex *x, integer *incx);

            

            

              220
              
extern int scopy_(integer *n, real *sx, integer *incx, real *sy, integer *incy);

            

            

              221
              
extern E_f scsum1_(integer *n, complex *cx, integer *incx);

            

            

              222
              
extern E_f sdot_(integer *n, real *sx, integer *incx, real *sy, integer *incy);

            

            

              223
              
extern int sgbmv_(char *trans, integer *m, integer *n, integer *kl, integer *ku, real *alpha, real *a, integer *lda, real *x, integer *incx, real *beta, real *y, integer *incy, ftnlen trans_len);

            

            

              224
              
extern int sgbtf2_(integer *m, integer *n, integer *kl, integer *ku, real *ab, integer *ldab, integer *ipiv, integer *info);

            

            

              225
              
extern int sgbtrf_(integer *m, integer *n, integer *kl, integer *ku, real *ab, integer *ldab, integer *ipiv, integer *info);

            

            

              226
              
extern int sgbtrs_(char *trans, integer *n, integer *kl, integer *ku, integer *nrhs, real *ab, integer *ldab, integer *ipiv, real *b, integer *ldb, integer *info, ftnlen trans_len);

            

            

              227
              
extern int sgemm_(char *transa, char *transb, integer *m, integer *n, integer *k, real *alpha, real *a, integer *lda, real *b, integer *ldb, real *beta, real *c__, integer *ldc, ftnlen transa_len, ftnlen transb_len);

            

            

              228
              
extern int sgemv_(char *trans, integer *m, integer *n, real *alpha, real *a, integer *lda, real *x, integer *incx, real *beta, real *y, integer *incy, ftnlen trans_len);

            

            

              229
              
extern int sgeqr2_(integer *m, integer *n, real *a, integer *lda, real *tau, real *work, integer *info);

            

            

              230
              
extern int sger_(integer *m, integer *n, real *alpha, real *x, integer *incx, real *y, integer *incy, real *a, integer *lda);

            

            

              231
              
extern int sgetv0_(integer *ido, char *bmat, integer *itry, logical *initv, integer *n, integer *j, real *v, integer *ldv, real *resid, real *rnorm, integer *ipntr, real *workd, integer *ierr, ftnlen bmat_len);

            

            

              232
              
/* comlen debug_ 96 */

            

            

              233
              
/* comlen timing_ 124 */

            

            

              234
              
extern int sgttrf_(integer *n, real *dl, real *d__, real *du, real *du2, integer *ipiv, integer *info);

            

            

              235
              
extern int sgttrs_(char *trans, integer *n, integer *nrhs, real *dl, real *d__, real *du, real *du2, integer *ipiv, real *b, integer *ldb, integer *info, ftnlen trans_len);

            

            

              236
              
extern int slabad_(real *small, real *large);

            

            

              237
              
extern int slacon_(integer *n, real *v, real *x, integer *isgn, real *est, integer *kase);

            

            

              238
              
extern int slacpy_(char *uplo, integer *m, integer *n, real *a, integer *lda, real *b, integer *ldb, ftnlen uplo_len);

            

            

              239
              
extern int sladiv_(real *a, real *b, real *c__, real *d__, real *p, real *q);

            

            

              240
              
extern int slae2_(real *a, real *b, real *c__, real *rt1, real *rt2);

            

            

              241
              
extern int slaev2_(real *a, real *b, real *c__, real *rt1, real *rt2, real *cs1, real *sn1);

            

            

              242
              
extern int slaexc_(logical *wantq, integer *n, real *t, integer *ldt, real *q, integer *ldq, integer *j1, integer *n1, integer *n2, real *work, integer *info);

            

            

              243
              
extern int slagtm_(char *trans, integer *n, integer *nrhs, real *alpha, real *dl, real *d__, real *du, real *x, integer *ldx, real *beta, real *b, integer *ldb, ftnlen trans_len);

            

            

              244
              
extern int slahqr_(logical *wantt, logical *wantz, integer *n, integer *ilo, integer *ihi, real *h__, integer *ldh, real *wr, real *wi, integer *iloz, integer *ihiz, real *z__, integer *ldz, integer *info);

            

            

              245
              
extern int slaln2_(logical *ltrans, integer *na, integer *nw, real *smin, real *ca, real *a, integer *lda, real *d1, real *d2, real *b, integer *ldb, real *wr, real *wi, real *x, integer *ldx, real *scale, real *xnorm, integer *info);

            

            

              246
              
extern E_f slamch_(char *cmach, ftnlen cmach_len);

            

            

              247
              
extern int slamc1_(integer *beta, integer *t, logical *rnd, logical *ieee1);

            

            

              248
              
extern int slamc2_(integer *beta, integer *t, logical *rnd, real *eps, integer *emin, real *rmin, integer *emax, real *rmax);

            

            

              249
              
extern E_f slamc3_(real *a, real *b);

            

            

              250
              
extern int slamc4_(integer *emin, real *start, integer *base);

            

            

              251
              
extern int slamc5_(integer *beta, integer *p, integer *emin, logical *ieee, integer *emax, real *rmax);

            

            

              252
              
extern E_f slange_(char *norm, integer *m, integer *n, real *a, integer *lda, real *work, ftnlen norm_len);

            

            

              253
              
extern E_f slanhs_(char *norm, integer *n, real *a, integer *lda, real *work, ftnlen norm_len);

            

            

              254
              
extern E_f slanst_(char *norm, integer *n, real *d__, real *e, ftnlen norm_len);

            

            

              255
              
extern int slanv2_(real *a, real *b, real *c__, real *d__, real *rt1r, real *rt1i, real *rt2r, real *rt2i, real *cs, real *sn);

            

            

              256
              
extern int slaptm_(integer *n, integer *nrhs, real *alpha, real *d__, real *e, real *x, integer *ldx, real *beta, real *b, integer *ldb);

            

            

              257
              
extern E_f slapy2_(real *x, real *y);

            

            

              258
              
extern E_f slapy3_(real *x, real *y, real *z__);

            

            

              259
              
extern int slaqrb_(logical *wantt, integer *n, integer *ilo, integer *ihi, real *h__, integer *ldh, real *wr, real *wi, real *z__, integer *info);

            

            

              260
              
extern E_f slaran_(integer *iseed);

            

            

              261
              
extern int slarf_(char *side, integer *m, integer *n, real *v, integer *incv, real *tau, real *c__, integer *ldc, real *work, ftnlen side_len);

            

            

              262
              
extern int slarfg_(integer *n, real *alpha, real *x, integer *incx, real *tau);

            

            

              263
              
extern int slarfx_(char *side, integer *m, integer *n, real *v, real *tau, real *c__, integer *ldc, real *work, ftnlen side_len);

            

            

              264
              
extern E_f slarnd_(integer *idist, integer *iseed);

            

            

              265
              
extern int slarnv_(integer *idist, integer *iseed, integer *n, real *x);

            

            

              266
              
extern int slartg_(real *f, real *g, real *cs, real *sn, real *r__);

            

            

              267
              
extern int slaruv_(integer *iseed, integer *n, real *x);

            

            

              268
              
extern int slascl_(char *type__, integer *kl, integer *ku, real *cfrom, real *cto, integer *m, integer *n, real *a, integer *lda, integer *info, ftnlen type_len);

            

            

              269
              
extern int slaset_(char *uplo, integer *m, integer *n, real *alpha, real *beta, real *a, integer *lda, ftnlen uplo_len);

            

            

              270
              
extern int slasr_(char *side, char *pivot, char *direct, integer *m, integer *n, real *c__, real *s, real *a, integer *lda, ftnlen side_len, ftnlen pivot_len, ftnlen direct_len);

            

            

              271
              
extern int slasrt_(char *id, integer *n, real *d__, integer *info, ftnlen id_len);

            

            

              272
              
extern int slassq_(integer *n, real *x, integer *incx, real *scale, real *sumsq);

            

            

              273
              
extern int slaswp_(integer *n, real *a, integer *lda, integer *k1, integer *k2, integer *ipiv, integer *incx);

            

            

              274
              
extern int slasy2_(logical *ltranl, logical *ltranr, integer *isgn, integer *n1, integer *n2, real *tl, integer *ldtl, real *tr, integer *ldtr, real *b, integer *ldb, real *scale, real *x, integer *ldx, real *xnorm, integer *info);

            

            

              275
              
extern int snaitr_(integer *ido, char *bmat, integer *n, integer *k, integer *np, integer *nb, real *resid, real *rnorm, real *v, integer *ldv, real *h__, integer *ldh, integer *ipntr, real *workd, integer *info, ftnlen bmat_len);

            

            

              276
              
/* comlen debug_ 96 */

            

            

              277
              
/* comlen timing_ 124 */

            

            

              278
              
extern int snapps_(integer *n, integer *kev, integer *np, real *shiftr, real *shifti, real *v, integer *ldv, real *h__, integer *ldh, real *resid, real *q, integer *ldq, real *workl, real *workd);

            

            

              279
              
/* comlen debug_ 96 */

            

            

              280
              
/* comlen timing_ 124 */

            

            

              281
              
extern int snaup2_(integer *ido, char *bmat, integer *n, char *which, integer *nev, integer *np, real *tol, real *resid, integer *mode, integer *iupd, integer *ishift, integer *mxiter, real *v, integer *ldv, real *h__, integer *ldh, real *ritzr, real *ritzi, real *bounds, real *q, integer *ldq, real *workl, integer *ipntr, real *workd, integer *info, ftnlen bmat_len, ftnlen which_len);

            

            

              282
              
/* comlen debug_ 96 */

            

            

              283
              
/* comlen timing_ 124 */

            

            

              284
              
extern int snaupd_(integer *ido, char *bmat, integer *n, char *which, integer *nev, real *tol, real *resid, integer *ncv, real *v, integer *ldv, integer *iparam, integer *ipntr, real *workd, real *workl, integer *lworkl, integer *info, ftnlen bmat_len, ftnlen which_len);

            

            

              285
              
/* comlen debug_ 96 */

            

            

              286
              
/* comlen timing_ 124 */

            

            

              287
              
extern int snconv_(integer *n, real *ritzr, real *ritzi, real *bounds, real *tol, integer *nconv);

            

            

              288
              
/* comlen debug_ 96 */

            

            

              289
              
/* comlen timing_ 124 */

            

            

              290
              
extern int sneigh_(real *rnorm, integer *n, real *h__, integer *ldh, real *ritzr, real *ritzi, real *bounds, real *q, integer *ldq, real *workl, integer *ierr);

            

            

              291
              
/* comlen debug_ 96 */

            

            

              292
              
/* comlen timing_ 124 */

            

            

              293
              
extern int sneupd_(logical *rvec, char *howmny, logical *select, real *dr, real *di, real *z__, integer *ldz, real *sigmar, real *sigmai, real *workev, char *bmat, integer *n, char *which, integer *nev, real *tol, real *resid, integer *ncv, real *v, integer *ldv, integer *iparam, integer *ipntr, real *workd, real *workl, integer *lworkl, integer *info, ftnlen howmny_len, ftnlen bmat_len, ftnlen which_len);

            

            

              294
              
/* comlen debug_ 96 */

            

            

              295
              
/* comlen timing_ 124 */

            

            

              296
              
extern int sngets_(integer *ishift, char *which, integer *kev, integer *np, real *ritzr, real *ritzi, real *bounds, real *shiftr, real *shifti, ftnlen which_len);

            

            

              297
              
/* comlen debug_ 96 */

            

            

              298
              
/* comlen timing_ 124 */

            

            

              299
              
extern E_f snrm2_(integer *n, real *sx, integer *incx);

            

            

              300
              
extern int sorm2r_(char *side, char *trans, integer *m, integer *n, integer *k, real *a, integer *lda, real *tau, real *c__, integer *ldc, real *work, integer *info, ftnlen side_len, ftnlen trans_len);

            

            

              301
              
extern int spttrf_(integer *n, real *d__, real *e, integer *info);

            

            

              302
              
extern int spttrs_(integer *n, integer *nrhs, real *d__, real *e, real *b, integer *ldb, integer *info);

            

            

              303
              
extern int srot_(integer *n, real *sx, integer *incx, real *sy, integer *incy, real *c__, real *s);

            

            

              304
              
extern int srotg_(real *sa, real *sb, real *c__, real *s);

            

            

              305
              
extern int ssaitr_(integer *ido, char *bmat, integer *n, integer *k, integer *np, integer *mode, real *resid, real *rnorm, real *v, integer *ldv, real *h__, integer *ldh, integer *ipntr, real *workd, integer *info, ftnlen bmat_len);

            

            

              306
              
/* comlen debug_ 96 */

            

            

              307
              
/* comlen timing_ 124 */

            

            

              308
              
extern int ssapps_(integer *n, integer *kev, integer *np, real *shift, real *v, integer *ldv, real *h__, integer *ldh, real *resid, real *q, integer *ldq, real *workd);

            

            

              309
              
/* comlen debug_ 96 */

            

            

              310
              
/* comlen timing_ 124 */

            

            

              311
              
extern int ssaup2_(integer *ido, char *bmat, integer *n, char *which, integer *nev, integer *np, real *tol, real *resid, integer *mode, integer *iupd, integer *ishift, integer *mxiter, real *v, integer *ldv, real *h__, integer *ldh, real *ritz, real *bounds, real *q, integer *ldq, real *workl, integer *ipntr, real *workd, integer *info, ftnlen bmat_len, ftnlen which_len);

            

            

              312
              
/* comlen debug_ 96 */

            

            

              313
              
/* comlen timing_ 124 */

            

            

              314
              
extern int ssaupd_(integer *ido, char *bmat, integer *n, char *which, integer *nev, real *tol, real *resid, integer *ncv, real *v, integer *ldv, integer *iparam, integer *ipntr, real *workd, real *workl, integer *lworkl, integer *info, ftnlen bmat_len, ftnlen which_len);

            

            

              315
              
/* comlen debug_ 96 */

            

            

              316
              
/* comlen timing_ 124 */

            

            

              317
              
extern int sscal_(integer *n, real *sa, real *sx, integer *incx);

            

            

              318
              
extern int ssconv_(integer *n, real *ritz, real *bounds, real *tol, integer *nconv);

            

            

              319
              
/* comlen debug_ 96 */

            

            

              320
              
/* comlen timing_ 124 */

            

            

              321
              
extern int sseigt_(real *rnorm, integer *n, real *h__, integer *ldh, real *eig, real *bounds, real *workl, integer *ierr);

            

            

              322
              
/* comlen debug_ 96 */

            

            

              323
              
/* comlen timing_ 124 */

            

            

              324
              
extern int ssesrt_(char *which, logical *apply, integer *n, real *x, integer *na, real *a, integer *lda, ftnlen which_len);

            

            

              325
              
extern int sseupd_(logical *rvec, char *howmny, logical *select, real *d__, real *z__, integer *ldz, real *sigma, char *bmat, integer *n, char *which, integer *nev, real *tol, real *resid, integer *ncv, real *v, integer *ldv, integer *iparam, integer *ipntr, real *workd, real *workl, integer *lworkl, integer *info, ftnlen howmny_len, ftnlen bmat_len, ftnlen which_len);

            

            

              326
              
/* comlen debug_ 96 */

            

            

              327
              
/* comlen timing_ 124 */

            

            

              328
              
extern int ssgets_(integer *ishift, char *which, integer *kev, integer *np, real *ritz, real *bounds, real *shifts, ftnlen which_len);

            

            

              329
              
/* comlen debug_ 96 */

            

            

              330
              
/* comlen timing_ 124 */

            

            

              331
              
extern int ssortc_(char *which, logical *apply, integer *n, real *xreal, real *ximag, real *y, ftnlen which_len);

            

            

              332
              
extern int ssortr_(char *which, logical *apply, integer *n, real *x1, real *x2, ftnlen which_len);

            

            

              333
              
extern int sstatn_();

            

            

              334
              
/* comlen timing_ 124 */

            

            

              335
              
extern int sstats_();

            

            

              336
              
/* comlen timing_ 124 */

            

            

              337
              
extern int ssteqr_(char *compz, integer *n, real *d__, real *e, real *z__, integer *ldz, real *work, integer *info, ftnlen compz_len);

            

            

              338
              
extern int sstqrb_(integer *n, real *d__, real *e, real *z__, real *work, integer *info);

            

            

              339
              
extern int sswap_(integer *n, real *sx, integer *incx, real *sy, integer *incy);

            

            

              340
              
extern int ssymv_(char *uplo, integer *n, real *alpha, real *a, integer *lda, real *x, integer *incx, real *beta, real *y, integer *incy, ftnlen uplo_len);

            

            

              341
              
extern int ssyr2_(char *uplo, integer *n, real *alpha, real *x, integer *incx, real *y, integer *incy, real *a, integer *lda, ftnlen uplo_len);

            

            

              342
              
extern int stbsv_(char *uplo, char *trans, char *diag, integer *n, integer *k, real *a, integer *lda, real *x, integer *incx, ftnlen uplo_len, ftnlen trans_len, ftnlen diag_len);

            

            

              343
              
extern int strevc_(char *side, char *howmny, logical *select, integer *n, real *t, integer *ldt, real *vl, integer *ldvl, real *vr, integer *ldvr, integer *mm, integer *m, real *work, integer *info, ftnlen side_len, ftnlen howmny_len);

            

            

              344
              
extern int strexc_(char *compq, integer *n, real *t, integer *ldt, real *q, integer *ldq, integer *ifst, integer *ilst, real *work, integer *info, ftnlen compq_len);

            

            

              345
              
extern int strmm_(char *side, char *uplo, char *transa, char *diag, integer *m, integer *n, real *alpha, real *a, integer *lda, real *b, integer *ldb, ftnlen side_len, ftnlen uplo_len, ftnlen transa_len, ftnlen diag_len);

            

            

              346
              
extern int strsen_(char *job, char *compq, logical *select, integer *n, real *t, integer *ldt, real *q, integer *ldq, real *wr, real *wi, integer *m, real *s, real *sep, real *work, integer *lwork, integer *iwork, integer *liwork, integer *info, ftnlen job_len, ftnlen compq_len);

            

            

              347
              
extern int strsm_(char *side, char *uplo, char *transa, char *diag, integer *m, integer *n, real *alpha, real *a, integer *lda, real *b, integer *ldb, ftnlen side_len, ftnlen uplo_len, ftnlen transa_len, ftnlen diag_len);

            

            

              348
              
extern int strsyl_(char *trana, char *tranb, integer *isgn, integer *m, integer *n, real *a, integer *lda, real *b, integer *ldb, real *c__, integer *ldc, real *scale, integer *info, ftnlen trana_len, ftnlen tranb_len);

            

            

              349
              
extern int xerbla_(char *srname, integer *info, ftnlen srname_len);

            

            

              350
              
extern int xlaenv_(integer *ispec, integer *nvalue);

            

            

              351
              
/* comlen claenv_ 400 */

            

            

              352
              
extern int zaxpy_(integer *n, doublecomplex *za, doublecomplex *zx, integer *incx, doublecomplex *zy, integer *incy);

            

            

              353
              
extern int zcopy_(integer *n, doublecomplex *zx, integer *incx, doublecomplex *zy, integer *incy);

            

            

              354
              
extern Z_f zdotc_(doublecomplex * ret_val, integer *n, doublecomplex *zx, integer *incx, doublecomplex *zy, integer *incy);

            

            

              355
              
extern Z_f zdotu_(doublecomplex * ret_val, integer *n, doublecomplex *zx, integer *incx, doublecomplex *zy, integer *incy);

            

            

              356
              
extern int zdscal_(integer *n, doublereal *da, doublecomplex *zx, integer *incx);

            

            

              357
              
extern int zgbmv_(char *trans, integer *m, integer *n, integer *kl, integer *ku, doublecomplex *alpha, doublecomplex *a, integer *lda, doublecomplex *x, integer *incx, doublecomplex *beta, doublecomplex *y, integer *incy, ftnlen trans_len);

            

            

              358
              
extern int zgbtf2_(integer *m, integer *n, integer *kl, integer *ku, doublecomplex *ab, integer *ldab, integer *ipiv, integer *info);

            

            

              359
              
extern int zgbtrf_(integer *m, integer *n, integer *kl, integer *ku, doublecomplex *ab, integer *ldab, integer *ipiv, integer *info);

            

            

              360
              
extern int zgbtrs_(char *trans, integer *n, integer *kl, integer *ku, integer *nrhs, doublecomplex *ab, integer *ldab, integer *ipiv, doublecomplex *b, integer *ldb, integer *info, ftnlen trans_len);

            

            

              361
              
extern int zgemm_(char *transa, char *transb, integer *m, integer *n, integer *k, doublecomplex *alpha, doublecomplex *a, integer *lda, doublecomplex *b, integer *ldb, doublecomplex *beta, doublecomplex *c__, integer *ldc, ftnlen transa_len, ftnlen transb_len);

            

            

              362
              
extern int zgemv_(char *trans, integer *m, integer *n, doublecomplex *alpha, doublecomplex *a, integer *lda, doublecomplex *x, integer *incx, doublecomplex *beta, doublecomplex *y, integer *incy, ftnlen trans_len);

            

            

              363
              
extern int zgeqr2_(integer *m, integer *n, doublecomplex *a, integer *lda, doublecomplex *tau, doublecomplex *work, integer *info);

            

            

              364
              
extern int zgerc_(integer *m, integer *n, doublecomplex *alpha, doublecomplex *x, integer *incx, doublecomplex *y, integer *incy, doublecomplex *a, integer *lda);

            

            

              365
              
extern int zgeru_(integer *m, integer *n, doublecomplex *alpha, doublecomplex *x, integer *incx, doublecomplex *y, integer *incy, doublecomplex *a, integer *lda);

            

            

              366
              
extern int zgetv0_(integer *ido, char *bmat, integer *itry, logical *initv, integer *n, integer *j, doublecomplex *v, integer *ldv, doublecomplex *resid, doublereal *rnorm, integer *ipntr, doublecomplex *workd, integer *ierr, ftnlen bmat_len);

            

            

              367
              
/* comlen debug_ 96 */

            

            

              368
              
/* comlen timing_ 124 */

            

            

              369
              
extern int zgttrf_(integer *n, doublecomplex *dl, doublecomplex *d__, doublecomplex *du, doublecomplex *du2, integer *ipiv, integer *info);

            

            

              370
              
extern int zgttrs_(char *trans, integer *n, integer *nrhs, doublecomplex *dl, doublecomplex *d__, doublecomplex *du, doublecomplex *du2, integer *ipiv, doublecomplex *b, integer *ldb, integer *info, ftnlen trans_len);

            

            

              371
              
extern int zlacgv_(integer *n, doublecomplex *x, integer *incx);

            

            

              372
              
extern int zlacon_(integer *n, doublecomplex *v, doublecomplex *x, doublereal *est, integer *kase);

            

            

              373
              
extern int zlacpy_(char *uplo, integer *m, integer *n, doublecomplex *a, integer *lda, doublecomplex *b, integer *ldb, ftnlen uplo_len);

            

            

              374
              
extern Z_f zladiv_(doublecomplex * ret_val, doublecomplex *x, doublecomplex *y);

            

            

              375
              
extern int zlahqr_(logical *wantt, logical *wantz, integer *n, integer *ilo, integer *ihi, doublecomplex *h__, integer *ldh, doublecomplex *w, integer *iloz, integer *ihiz, doublecomplex *z__, integer *ldz, integer *info);

            

            

              376
              
extern doublereal zlange_(char *norm, integer *m, integer *n, doublecomplex *a, integer *lda, doublereal *work, ftnlen norm_len);

            

            

              377
              
extern doublereal zlanhs_(char *norm, integer *n, doublecomplex *a, integer *lda, doublereal *work, ftnlen norm_len);

            

            

              378
              
extern int zlarf_(char *side, integer *m, integer *n, doublecomplex *v, integer *incv, doublecomplex *tau, doublecomplex *c__, integer *ldc, doublecomplex *work, ftnlen side_len);

            

            

              379
              
extern int zlarfg_(integer *n, doublecomplex *alpha, doublecomplex *x, integer *incx, doublecomplex *tau);

            

            

              380
              
extern int zlarnv_(integer *idist, integer *iseed, integer *n, doublecomplex *x);

            

            

              381
              
extern int zlartg_(doublecomplex *f, doublecomplex *g, doublereal *cs, doublecomplex *sn, doublecomplex *r__);

            

            

              382
              
extern int zlascl_(char *type__, integer *kl, integer *ku, doublereal *cfrom, doublereal *cto, integer *m, integer *n, doublecomplex *a, integer *lda, integer *info, ftnlen type_len);

            

            

              383
              
extern int zlaset_(char *uplo, integer *m, integer *n, doublecomplex *alpha, doublecomplex *beta, doublecomplex *a, integer *lda, ftnlen uplo_len);

            

            

              384
              
extern int zlassq_(integer *n, doublecomplex *x, integer *incx, doublereal *scale, doublereal *sumsq);

            

            

              385
              
extern int zlaswp_(integer *n, doublecomplex *a, integer *lda, integer *k1, integer *k2, integer *ipiv, integer *incx);

            

            

              386
              
extern int zlatrs_(char *uplo, char *trans, char *diag, char *normin, integer *n, doublecomplex *a, integer *lda, doublecomplex *x, doublereal *scale, doublereal *cnorm, integer *info, ftnlen uplo_len, ftnlen trans_len, ftnlen diag_len, ftnlen normin_len);

            

            

              387
              
extern doublereal zmach_(integer *job);

            

            

              388
              
extern int znaitr_(integer *ido, char *bmat, integer *n, integer *k, integer *np, integer *nb, doublecomplex *resid, doublereal *rnorm, doublecomplex *v, integer *ldv, doublecomplex *h__, integer *ldh, integer *ipntr, doublecomplex *workd, integer *info, ftnlen bmat_len);

            

            

              389
              
/* comlen debug_ 96 */

            

            

              390
              
/* comlen timing_ 124 */

            

            

              391
              
extern int znapps_(integer *n, integer *kev, integer *np, doublecomplex *shift, doublecomplex *v, integer *ldv, doublecomplex *h__, integer *ldh, doublecomplex *resid, doublecomplex *q, integer *ldq, doublecomplex *workl, doublecomplex *workd);

            

            

              392
              
/* comlen debug_ 96 */

            

            

              393
              
/* comlen timing_ 124 */

            

            

              394
              
extern int znaup2_(integer *ido, char *bmat, integer *n, char *which, integer *nev, integer *np, doublereal *tol, doublecomplex *resid, integer *mode, integer *iupd, integer *ishift, integer *mxiter, doublecomplex *v, integer *ldv, doublecomplex *h__, integer *ldh, doublecomplex *ritz, doublecomplex *bounds, doublecomplex *q, integer *ldq, doublecomplex *workl, integer *ipntr, doublecomplex *workd, doublereal *rwork, integer *info, ftnlen bmat_len, ftnlen which_len);

            

            

              395
              
/* comlen debug_ 96 */

            

            

              396
              
/* comlen timing_ 124 */

            

            

              397
              
extern int znaupd_(integer *ido, char *bmat, integer *n, char *which, integer *nev, doublereal *tol, doublecomplex *resid, integer *ncv, doublecomplex *v, integer *ldv, integer *iparam, integer *ipntr, doublecomplex *workd, doublecomplex *workl, integer *lworkl, doublereal *rwork, integer *info, ftnlen bmat_len, ftnlen which_len);

            

            

              398
              
/* comlen debug_ 96 */

            

            

              399
              
/* comlen timing_ 124 */

            

            

              400
              
extern int zneigh_(doublereal *rnorm, integer *n, doublecomplex *h__, integer *ldh, doublecomplex *ritz, doublecomplex *bounds, doublecomplex *q, integer *ldq, doublecomplex *workl, doublereal *rwork, integer *ierr);

            

            

              401
              
/* comlen debug_ 96 */

            

            

              402
              
/* comlen timing_ 124 */

            

            

              403
              
extern int zneupd_(logical *rvec, char *howmny, logical *select, doublecomplex *d__, doublecomplex *z__, integer *ldz, doublecomplex *sigma, doublecomplex *workev, char *bmat, integer *n, char *which, integer *nev, doublereal *tol, doublecomplex *resid, integer *ncv, doublecomplex *v, integer *ldv, integer *iparam, integer *ipntr, doublecomplex *workd, doublecomplex *workl, integer *lworkl, doublereal *rwork, integer *info, ftnlen howmny_len, ftnlen bmat_len, ftnlen which_len);

            

            

              404
              
/* comlen debug_ 96 */

            

            

              405
              
/* comlen timing_ 124 */

            

            

              406
              
extern int zngets_(integer *ishift, char *which, integer *kev, integer *np, doublecomplex *ritz, doublecomplex *bounds, ftnlen which_len);

            

            

              407
              
/* comlen debug_ 96 */

            

            

              408
              
/* comlen timing_ 124 */

            

            

              409
              
extern int zrot_(integer *n, doublecomplex *cx, integer *incx, doublecomplex *cy, integer *incy, doublereal *c__, doublecomplex *s);

            

            

              410
              
extern int zscal_(integer *n, doublecomplex *za, doublecomplex *zx, integer *incx);

            

            

              411
              
extern int zsortc_(char *which, logical *apply, integer *n, doublecomplex *x, doublecomplex *y, ftnlen which_len);

            

            

              412
              
extern int zstatn_();

            

            

              413
              
/* comlen timing_ 124 */

            

            

              414
              
extern int zswap_(integer *n, doublecomplex *zx, integer *incx, doublecomplex *zy, integer *incy);

            

            

              415
              
extern int ztbsv_(char *uplo, char *trans, char *diag, integer *n, integer *k, doublecomplex *a, integer *lda, doublecomplex *x, integer *incx, ftnlen uplo_len, ftnlen trans_len, ftnlen diag_len);

            

            

              416
              
extern int ztrevc_(char *side, char *howmny, logical *select, integer *n, doublecomplex *t, integer *ldt, doublecomplex *vl, integer *ldvl, doublecomplex *vr, integer *ldvr, integer *mm, integer *m, doublecomplex *work, doublereal *rwork, integer *info, ftnlen side_len, ftnlen howmny_len);

            

            

              417
              
extern int ztrexc_(char *compq, integer *n, doublecomplex *t, integer *ldt, doublecomplex *q, integer *ldq, integer *ifst, integer *ilst, integer *info, ftnlen compq_len);

            

            

              418
              
extern int ztrmm_(char *side, char *uplo, char *transa, char *diag, integer *m, integer *n, doublecomplex *alpha, doublecomplex *a, integer *lda, doublecomplex *b, integer *ldb, ftnlen side_len, ftnlen uplo_len, ftnlen transa_len, ftnlen diag_len);

            

            

              419
              
extern int ztrsen_(char *job, char *compq, logical *select, integer *n, doublecomplex *t, integer *ldt, doublecomplex *q, integer *ldq, doublecomplex *w, integer *m, doublereal *s, doublereal *sep, doublecomplex *work, integer *lwork, integer *info, ftnlen job_len, ftnlen compq_len);

            

            

              420
              
extern int ztrsm_(char *side, char *uplo, char *transa, char *diag, integer *m, integer *n, doublecomplex *alpha, doublecomplex *a, integer *lda, doublecomplex *b, integer *ldb, ftnlen side_len, ftnlen uplo_len, ftnlen transa_len, ftnlen diag_len);

            

            

              421
              
extern int ztrsv_(char *uplo, char *trans, char *diag, integer *n, doublecomplex *a, integer *lda, doublecomplex *x, integer *incx, ftnlen uplo_len, ftnlen trans_len, ftnlen diag_len);

            

            

              422
              
extern int ztrsyl_(char *trana, char *tranb, integer *isgn, integer *m, integer *n, doublecomplex *a, integer *lda, doublecomplex *b, integer *ldb, doublecomplex *c__, integer *ldc, doublereal *scale, integer *info, ftnlen trana_len, ftnlen tranb_len);

            

            

              423
              
extern int zunm2r_(char *side, char *trans, integer *m, integer *n, integer *k, doublecomplex *a, integer *lda, doublecomplex *tau, doublecomplex *c__, integer *ldc, doublecomplex *work, integer *info, ftnlen side_len, ftnlen trans_len);

            



(-)arpack/pkg-plist
      (-1 / +1 lines)




  

    
      
            Lines 1-5
          
      
      
        Link Here
      
    
  

            

              1
              
include/arpack.h

              
              
            

        

          2
          
lib/libarpack.a

          1
          
lib/libarpack.a

        

            

              
              
              2
              
%%PORTDOCS%%include/arpack.h

            

        

          3
          
%%PORTDOCS%%share/doc/arpack/ex-complex.doc.gz

          3
          
%%PORTDOCS%%share/doc/arpack/ex-complex.doc.gz

        

        

          4
          
%%PORTDOCS%%share/doc/arpack/ex-nonsym.doc.gz

          4
          
%%PORTDOCS%%share/doc/arpack/ex-nonsym.doc.gz

        

        

          5
          
%%PORTDOCS%%share/doc/arpack/ex-sym.doc.gz

          5
          
%%PORTDOCS%%share/doc/arpack/ex-sym.doc.gz

        






  

  Return to bug 92940