Functions
void	PLUMED_BLAS_F77_FUNC (dbdsdc, DBDSDC)(const char *uplo

	if (icompq==1)

	if (iuplo==2)

	if (fabs(orgnrm)< PLUMED_GMX_DOUBLE_MIN) = -1.0

	PLUMED_BLAS_F77_FUNC (dlascl, DLASCL)("G"

	for (i__=1;i__<=i__1;++i__)

	for (ii=2;ii<=i__1;++ii)

void	PLUMED_BLAS_F77_FUNC (dbdsqr, DBDSQR)(const char *uplo

	if ((xuplo!='U')&&!lower)

else	if (((ncvt==0)&&(ldvt< 1))\|\|((ncvt > 0)&&(ldvt< itmp1)))

else	if (((ncc==0)&&(ldc< 1))\|\|((ncc > 0)&&(ldc< itmp1)))

	if (!rotate)

	if (lower)

	if (tol >=0.f)

	if (iter > maxit)

	for (lll=1;lll<=i__1;++lll)

	if (ll==m-1)

	if (idir==1)

	if (tol >=0.f &&n tol *(sminl/smax)<=((r__1 >r__2)?r__1:r__2))

	if (shift==0.f)

void	PLUMED_BLAS_F77_FUNC (dgebd2, DGEBD2)(int *m

void	PLUMED_BLAS_F77_FUNC (dgebrd, DGEBRD)(int *m

	if (minmn==0)

	if (nb > 1 &&nb< minmn)

	for (i_=1;i_2< 0?i_ >=i_1:i_<=i_1;i_+=i_2)

void	PLUMED_BLAS_F77_FUNC (dgelq2, DGELQ2)(int *m

void	PLUMED_BLAS_F77_FUNC (dgelqf, DGELQF)(int *m

	if (k==0)

	if (i__<=k)

void	PLUMED_BLAS_F77_FUNC (dgeqr2, DGEQR2)(int *m

	for (i=0;i< k;i++) = *beta

void	PLUMED_BLAS_F77_FUNC (dgeqrf, DGEQRF)(int *m

void	PLUMED_BLAS_F77_FUNC (dgesdd, DGESDD)(const char *jobz

	if (lquery!=0)

	if (anrm > 0.&&anrm< smlnum)

else	if (anrm > bignum)

void	PLUMED_BLAS_F77_FUNC (dgetf2, DGETF2)(int *m

	for (j=1;j<=k;j++)

void	PLUMED_BLAS_F77_FUNC (dgetrf, DGETRF)(int *m

	if (DGETRF_BLOCKSIZE >=mindim)

void	PLUMED_BLAS_F77_FUNC (dgetri, DGETRI)(int *n

else if *	lda (*n)

else if *	lwork (n)&&lwork!=-1

	PLUMED_BLAS_F77_FUNC (dtrtri, DTRTRI)("Upper"

	if (nb< nbmin\|\|nb >=*n)

void	PLUMED_BLAS_F77_FUNC (dgetrs, DGETRS)(const char *trans

	if (notran)

	PLUMED_BLAS_F77_FUNC (dtrsm, DTRSM)("Left"

	PLUMED_BLAS_F77_FUNC (dlaswp, DLASWP)(nrhs

void	PLUMED_BLAS_F77_FUNC (dlabrd, DLABRD)(int *m

void	PLUMED_BLAS_F77_FUNC (dlacpy, DLACPY)(const char *uplo

	if (ch=='U')

void	PLUMED_BLAS_F77_FUNC (dlae2, DLAE2)(double *a

	if (fabs(a) > fabs(c__))

	if (adf > ab)

else	if (sm > 0.)

void	PLUMED_BLAS_F77_FUNC (dlaebz, DLAEBZ)(int *ijob

	for (ji=1;ji<=i__1;++ji)

	for (jit=1;jit<=i__1;++jit)

	if (i__1 >0)*info = i__1

void	PLUMED_BLAS_F77_FUNC (dlaed6, DLAED6)(int *kniter

	if (c__==0.f)

else	if (a<=0.f)

	if (fabs(*finit)<=fabs(temp))

	if (temp<=small1)

	if (fabs(f)<=0.f)

	for (niter=iter;niter<=20;++niter)

void	PLUMED_BLAS_F77_FUNC (dlaev2, DLAEV2)(double *a

	if (df >=0.)

	if (acs > ab)

void	PLUMED_BLAS_F77_FUNC (dlagtf, DLAGTF)(int *n

	for (k=1;k<=i__1;++k)

	if (fabs(a[n])<=scale1 tl &&in[*n]==0)

void	PLUMED_BLAS_F77_FUNC (dlagts, DLAGTS)(int *job

	if (fabs(job) > 2\|\|job==0)

void	PLUMED_BLAS_F77_FUNC (dlamrg, DLAMRG)(int *n1

	while (n1sv >0 &&n2sv >0)

	if (n1sv==0)

double	PLUMED_BLAS_F77_FUNC (dlange, DLANGE)(const char *norm

	switch (ch)

double	PLUMED_BLAS_F77_FUNC (dlanst, DLANST)(const char *norm

double	PLUMED_BLAS_F77_FUNC (dlansy, DLANSY)(const char *norm

	PLUMED_BLAS_F77_FUNC (dlassq, DLASSQ)(n

double	PLUMED_BLAS_F77_FUNC (dlapy2, DLAPY2)(double *x

	if (xabs >yabs)

return w *	sqrt (1.0+z *z)

void	PLUMED_BLAS_F77_FUNC (dlar1vx, DLAR1VX)(int *n

	if (!(s > 0.\|\|s< 1.))

	if (!(tmp > 0.\|\|tmp< 1.))

void	PLUMED_BLAS_F77_FUNC (dlarf, DLARF)(const char *side

void	PLUMED_BLAS_F77_FUNC (dlarfb, DLARFB)(const char *side

void	PLUMED_BLAS_F77_FUNC (dlarfg, DLARFG)(int *n

	PLUMED_BLAS_F77_FUNC (dscal, DSCAL)(&ti1

void	PLUMED_BLAS_F77_FUNC (dlarft, DLARFT)(const char *direct

void	PLUMED_BLAS_F77_FUNC (dlarnv, DLARNV)(int *idist

	for (iv=1;iv<=i__1;iv+=64)

void	PLUMED_BLAS_F77_FUNC (dlarrbx, DLARRBX)(int *n

	if (iwork[(i__<< 1)-1]==1)

	if (i__<=*n &&iwork[(i__<< 1)-1]!=-1)

	for (p=1;p<=i__1;++p)

	if (nint > 0)

void	PLUMED_BLAS_F77_FUNC (dlarrex, DLARREX)(const char *range

	for (jblk=1;jblk<=i__1;++jblk)

	if (irange==2) = safemn

void	PLUMED_BLAS_F77_FUNC (dlarrfx, DLARRFX)(int *n

	if (!(dmax1 > 0.\|\|dmax1< 1.))

	if (!(dmax2 > 0.\|\|dmax2< 1.))

void	PLUMED_BLAS_F77_FUNC (dlarrvx, DLARRVX)(int *n

	PLUMED_BLAS_F77_FUNC (dlaset, DLASET)("Full" = rho

void	PLUMED_BLAS_F77_FUNC (dlartg, DLARTG)(double *f

	if (scale >=safemx2)

else	if (scale<=safemin2)

	if (fabs(f)>fabs(g)&&*cs< 0.0)

void	PLUMED_BLAS_F77_FUNC (dlaruv, DLARUV)(int *iseed

void	PLUMED_BLAS_F77_FUNC (dlas2, DLAS2)(double *f

	while (!done)

void	PLUMED_BLAS_F77_FUNC (dlasd0, DLASD0)(int *n

	PLUMED_BLAS_F77_FUNC (dlasdt, DLASDT)(n

	for (lvl=nlvl;lvl >=1;--lvl)

void	PLUMED_BLAS_F77_FUNC (dlasd1, DLASD1)(int *nl

	PLUMED_BLAS_F77_FUNC (dlasd2, DLASD2)(nl

	PLUMED_BLAS_F77_FUNC (dlasd3, DLASD3)(nl

	if (j > n)

	if (fabs(z__[j])<=tol)

	PLUMED_BLAS_F77_FUNC (dcopy, DCOPY)(&m

	if (z__[1] > 0.)

	if (ctot[1] > 0)

else	if (ctot[3] > 0)

	PLUMED_BLAS_F77_FUNC (dgemm, DGEMM)("N"

	if (ktemp<=*ldvt2)

	if (ktemp > 1)

void	PLUMED_BLAS_F77_FUNC (dlasd4, DLASD4)(int *n

	if (w<=0.)

	if (fabs(w)<=eps *erretm)

else	if (a >=0.)

	if (w *eta > 0.)

	if (temp > *rho)

	if (w > 0.)

	if (orgati)

	if (w *eta >=0.)

	if (temp > sg2ub\|\|temp< sg2lb)

void	PLUMED_BLAS_F77_FUNC (dlasd5, DLASD5)(int *i__

	if (b > 0.)

void	PLUMED_BLAS_F77_FUNC (dlasd6, DLASD6)(int *icompq

	PLUMED_BLAS_F77_FUNC (dlasd7, DLASD7)(icompq

	PLUMED_BLAS_F77_FUNC (dlasd8, DLASD8)(icompq

	if (fabs(dsigma[2])<=hlftol)

	if (m > n)

void	PLUMED_BLAS_F77_FUNC (dlasda, DLASDA)(int *icompq

void	PLUMED_BLAS_F77_FUNC (dlasdq, DLASDQ)(const char *uplo

	if (xuplo== 'U')

else	if ((ncvt==0 &&ldvt< 1)\|\|(ncvt > 0 &&ldvt< itmp1))

else	if ((ncc==0 &&ldc< 1)\|\|(ncc > 0 &&ldc< itmp1))

void	PLUMED_BLAS_F77_FUNC (dlasq1, DLASQ1)(int *n

	PLUMED_BLAS_F77_FUNC (dlasq2, DLASQ2)(n

	if (z__[2] > z__[3]*tol2)

	if (posinf<=1.0) ieee=0

	if (neginf >=0.0) ieee=0

	if (fabs(negzro)>PLUMED_GMX_DOUBLE_MIN) ieee=0

	if (neginf >=0) ieee=0

	if (fabs(newzro-zero)>PLUMED_GMX_DOUBLE_MIN) ieee=0

	if (posinf<=one) ieee=0

	for (iwhila=1;iwhila<=i__1;++iwhila)

	PLUMED_BLAS_F77_FUNC (dlasrt, DLASRT)("D"

void	PLUMED_BLAS_F77_FUNC (dlasq3, DLASQ3)(int *i0

	if (z__[nn-5] > tol2 (sigma+z__[nn-3])&&z__[nn-(pp<< 1)-4] > tol2 z__[nn-7])

	if (z__[nn-5] > z__[nn-3]*tol2)

L70	DLASQ5 (i0, n0,&z__[1], pp,&tau, dmin__,&dmin1,&dmin2,&dn,&dn1,&dn2, ieee)

else	if (dmin1 > 0.)

L80	DLASQ6 (i0, n0,&z__[1], pp, dmin__,&dmin1,&dmin2,&dn,&dn1,&dn2)

void	PLUMED_BLAS_F77_FUNC (dlasq4, DLASQ4)(int *i0

void	PLUMED_BLAS_F77_FUNC (dlasq5, DLASQ5)(int *i0

void	PLUMED_BLAS_F77_FUNC (dlasq6, DLASQ6)(int *i0

	for (j4=i0 4;j4<=i__1;j4+=4)

void	PLUMED_BLAS_F77_FUNC (dlasr, DLASR)(const char *side

	if (dir==-1)

	if (endd-start<=20 &&endd-start > 0)

else	if (endd-start > 20)

	if (stkpnt > 0)

void	PLUMED_BLAS_F77_FUNC (dlasrt2, DLASRT2)(const char *id

	if (endd-start > 0)

void	PLUMED_BLAS_F77_FUNC (dlasv2, DLASV2)(double *f

	if (swap)

	if (ga > fa)

	if (gasmal)

	if (pmax==1)

n32 *	if (n32!=0) = 32

void	PLUMED_BLAS_F77_FUNC (dlatrd, DLATRD)(const char *uplo

void	PLUMED_BLAS_F77_FUNC (dorg2r, DORG2R)(int *m

void	PLUMED_BLAS_F77_FUNC (dorgbr, DORGBR)(const char *vect

	if (wantq)

	for (i=2;i<=*m;i++) a[i-1]=0.0

	PLUMED_BLAS_F77_FUNC (dorglq, DORGLQ)(&i1

void	PLUMED_BLAS_F77_FUNC (dorgl2, DORGL2)(int *m

else	if (lquery)

	if (kk > 0)

void	PLUMED_BLAS_F77_FUNC (dorgqr, DORGQR)(int *m

void	PLUMED_BLAS_F77_FUNC (dorm2l, DORM2L)(const char *side

	if (left)

	if ((left &&notran)\|\|(!left &&!notran))

void	PLUMED_BLAS_F77_FUNC (dorm2r, DORM2R)(const char *side

	if ((left &&!notran)\|\|(!left &&notran))

void	PLUMED_BLAS_F77_FUNC (dormbr, DORMBR)(const char *vect

	if (applyq)

void	PLUMED_BLAS_F77_FUNC (dorml2, DORML2)(const char *side

	if ((xside=='L'&&xtrans=='N')\|\|(xside!='L'&&xtrans!='N'))

	if (xside=='L')

void	PLUMED_BLAS_F77_FUNC (dormlq, DORMLQ)(const char *side

void	PLUMED_BLAS_F77_FUNC (dormql, DORMQL)(const char *side

void	PLUMED_BLAS_F77_FUNC (dormqr, DORMQR)(const char *side

void	PLUMED_BLAS_F77_FUNC (dormtr, DORMTR)(const char *side

	if (upper)

void	PLUMED_BLAS_F77_FUNC (dstebz, DSTEBZ)(const char *range

	if (irange<=0)

else	if (iorder<=0)

	if (nb<=1)

	for (jb=1;jb<=i__1;++jb)

	if (iorder==1 &&*nsplit > 1)

	if (ncnvrg)

	if (toofew)

void	PLUMED_BLAS_F77_FUNC (dstegr, DSTEGR)(const char *jobz

	if (!(wantz\|\|(jobz=='N'\|\|jobz=='n')))

else	if (!(alleig\|\|valeig\|\|indeig))

else	if (valeig &&n > 0 &&vu<=*vl)

else	if (indeig &&(il< 1\|\|il > *n))

else	if (indeig &&(iu< il\|\|iu > n))

else if *	ldz (wantz &&ldz< n)

	if (tnrm > 0.&&tnrm< rmin)

else	if (tnrm > rmax)

	if (fabs(scale-1.0)>PLUMED_GMX_DOUBLE_EPS)

	if (iinfo!=0)

	if (wantz)

	if (nsplit > 1)

void	PLUMED_BLAS_F77_FUNC (dstein, DSTEIN)(int *n

else if *	ldz (*n)

	for (nblk=1;nblk<=i__1;++nblk)

void	PLUMED_BLAS_F77_FUNC (dsteqr, DSTEQR)(const char *compz

else if *	ldz (icompz > 0 &&ldz< ((n >1)?*n:1))

	if (icompz==2)

	if (l1 > 1)

	if (l1<=nm1)

	if (lend==l)

	if (anorm > ssfmax)

	if (lend > l)

	if (m==l)

	if (jtot==nmaxit)

	if (icompz > 0)

	if (l >=lend)

else	if (iscale==2)

L160	DLASRT ("I", n,&d__[1], info)

void	PLUMED_BLAS_F77_FUNC (dsterf, DSTERF)(int *n

	for (m=l1;m<=i__1;++m)

	if (lend >=l)

void	PLUMED_BLAS_F77_FUNC (dstevr, DSTEVR)(const char *jobz

void	PLUMED_BLAS_F77_FUNC (dsyevr, DSYEVR)(const char *jobz

	if (negzro!=0) ieeeok=0

	if (newzro!=fzero) ieeeok=0

else	if (!(lower\|\|(uplo=='U'\|\|uplo=='u')))

else if *	lda ((n >1)?n:1)

	if (alleig\|\|indeig)

else	if (anrm > rmax)

	PLUMED_BLAS_F77_FUNC (dsytrd, DSYTRD)(uplo

	if (wantz &&*info==0)

void	PLUMED_BLAS_F77_FUNC (dsytd2, DSYTD2)(const char *uplo

	if (!upper &&!(uplo=='L'\|\|uplo=='l'))

else if *	lda ((1 > n)?1:n)

void	PLUMED_BLAS_F77_FUNC (dtrti2, DTRTI2)(const char *uplo

	if (nounit)

	if (nb<=1\|\|nb >=*n)

void	PLUMED_BLAS_F77_FUNC (ilasrt2, ILASRT2)(const char *id

void	PLUMED_BLAS_F77_FUNC (sbdsdc, SBDSDC)(const char *uplo

	PLUMED_BLAS_F77_FUNC (slascl, SLASCL)("G"

void	PLUMED_BLAS_F77_FUNC (sbdsqr, SBDSQR)(const char *uplo

void	PLUMED_BLAS_F77_FUNC (sgebd2, SGEBD2)(int *m

void	PLUMED_BLAS_F77_FUNC (sgebrd, SGEBRD)(int *m

void	PLUMED_BLAS_F77_FUNC (sgelq2, SGELQ2)(int *m

void	PLUMED_BLAS_F77_FUNC (sgelqf, SGELQF)(int *m

void	PLUMED_BLAS_F77_FUNC (sgeqr2, SGEQR2)(int *m

void	PLUMED_BLAS_F77_FUNC (sgeqrf, SGEQRF)(int *m

void	PLUMED_BLAS_F77_FUNC (sgesdd, SGESDD)(const char *jobz

void	PLUMED_BLAS_F77_FUNC (sgetf2, SGETF2)(int *m

void	PLUMED_BLAS_F77_FUNC (sgetrf, SGETRF)(int *m

void	PLUMED_BLAS_F77_FUNC (sgetri, SGETRI)(int *n

	PLUMED_BLAS_F77_FUNC (strtri, STRTRI)("Upper"

void	PLUMED_BLAS_F77_FUNC (sgetrs, SGETRS)(const char *trans

	PLUMED_BLAS_F77_FUNC (strsm, STRSM)("Left"

	PLUMED_BLAS_F77_FUNC (slaswp, SLASWP)(nrhs

void	PLUMED_BLAS_F77_FUNC (slabrd, SLABRD)(int *m

void	PLUMED_BLAS_F77_FUNC (slacpy, SLACPY)(const char *uplo

void	PLUMED_BLAS_F77_FUNC (slae2, SLAE2)(float *a

void	PLUMED_BLAS_F77_FUNC (slaebz, SLAEBZ)(int *ijob

void	PLUMED_BLAS_F77_FUNC (slaed6, SLAED6)(int *kniter

void	PLUMED_BLAS_F77_FUNC (slaev2, SLAEV2)(float *a

void	PLUMED_BLAS_F77_FUNC (slagtf, SLAGTF)(int *n

void	PLUMED_BLAS_F77_FUNC (slagts, SLAGTS)(int *job

void	PLUMED_BLAS_F77_FUNC (slamrg, SLAMRG)(int *n1

float	PLUMED_BLAS_F77_FUNC (slange, SLANGE)(const char *norm

float	PLUMED_BLAS_F77_FUNC (slanst, SLANST)(const char *norm

float	PLUMED_BLAS_F77_FUNC (slansy, SLANSY)(const char *norm

	PLUMED_BLAS_F77_FUNC (slassq, SLASSQ)(n

float	PLUMED_BLAS_F77_FUNC (slapy2, SLAPY2)(float *x

void	PLUMED_BLAS_F77_FUNC (slar1vx, SLAR1VX)(int *n

void	PLUMED_BLAS_F77_FUNC (slarf, SLARF)(const char *side

void	PLUMED_BLAS_F77_FUNC (slarfb, SLARFB)(const char *side

void	PLUMED_BLAS_F77_FUNC (slarfg, SLARFG)(int *n

	PLUMED_BLAS_F77_FUNC (sscal, SSCAL)(&ti1

void	PLUMED_BLAS_F77_FUNC (slarft, SLARFT)(const char *direct

void	PLUMED_BLAS_F77_FUNC (slarnv, SLARNV)(int *idist

void	PLUMED_BLAS_F77_FUNC (slarrbx, SLARRBX)(int *n

void	PLUMED_BLAS_F77_FUNC (slarrex, SLARREX)(const char *range

void	PLUMED_BLAS_F77_FUNC (slarrfx, SLARRFX)(int *n

void	PLUMED_BLAS_F77_FUNC (slarrvx, SLARRVX)(int *n

	PLUMED_BLAS_F77_FUNC (slaset, SLASET)("Full" = rho

void	PLUMED_BLAS_F77_FUNC (slartg, SLARTG)(float *f

void	PLUMED_BLAS_F77_FUNC (slaruv, SLARUV)(int *iseed

void	PLUMED_BLAS_F77_FUNC (slas2, SLAS2)(float *f

void	PLUMED_BLAS_F77_FUNC (slasd0, SLASD0)(int *n

	PLUMED_BLAS_F77_FUNC (slasdt, SLASDT)(n

void	PLUMED_BLAS_F77_FUNC (slasd1, SLASD1)(int *nl

	PLUMED_BLAS_F77_FUNC (slasd2, SLASD2)(nl

	PLUMED_BLAS_F77_FUNC (slasd3, SLASD3)(nl

	PLUMED_BLAS_F77_FUNC (scopy, SCOPY)(&m

	PLUMED_BLAS_F77_FUNC (sgemm, SGEMM)("N"

void	PLUMED_BLAS_F77_FUNC (slasd4, SLASD4)(int *n

void	PLUMED_BLAS_F77_FUNC (slasd5, SLASD5)(int *i__

void	PLUMED_BLAS_F77_FUNC (slasd6, SLASD6)(int *icompq

	PLUMED_BLAS_F77_FUNC (slasd7, SLASD7)(icompq

	PLUMED_BLAS_F77_FUNC (slasd8, SLASD8)(icompq

void	PLUMED_BLAS_F77_FUNC (slasda, SLASDA)(int *icompq

void	PLUMED_BLAS_F77_FUNC (slasdq, SLASDQ)(const char *uplo

void	PLUMED_BLAS_F77_FUNC (slasq1, SLASQ1)(int *n

	PLUMED_BLAS_F77_FUNC (slasq2, SLASQ2)(n

	if (fabs(negzro)>PLUMED_GMX_FLOAT_MIN) ieee=0

	if (fabs(newzro-zero)>PLUMED_GMX_FLOAT_MIN) ieee=0

	PLUMED_BLAS_F77_FUNC (slasrt, SLASRT)("D"

void	PLUMED_BLAS_F77_FUNC (slasq3, SLASQ3)(int *i0

L70	SLASQ5 (i0, n0,&z__[1], pp,&tau, dmin__,&dmin1,&dmin2,&dn,&dn1,&dn2, ieee)

L80	SLASQ6 (i0, n0,&z__[1], pp, dmin__,&dmin1,&dmin2,&dn,&dn1,&dn2)

void	PLUMED_BLAS_F77_FUNC (slasq4, SLASQ4)(int *i0

void	PLUMED_BLAS_F77_FUNC (slasq5, SLASQ5)(int *i0

void	PLUMED_BLAS_F77_FUNC (slasq6, SLASQ6)(int *i0

void	PLUMED_BLAS_F77_FUNC (slasr, SLASR)(const char *side

void	PLUMED_BLAS_F77_FUNC (slasrt2, SLASRT2)(const char *id

void	PLUMED_BLAS_F77_FUNC (slasv2, SLASV2)(float *f

void	PLUMED_BLAS_F77_FUNC (slatrd, SLATRD)(const char *uplo

void	PLUMED_BLAS_F77_FUNC (sorg2r, SORG2R)(int *m

void	PLUMED_BLAS_F77_FUNC (sorgbr, SORGBR)(const char *vect

	PLUMED_BLAS_F77_FUNC (sorglq, SORGLQ)(&i1

void	PLUMED_BLAS_F77_FUNC (sorgl2, SORGL2)(int *m

void	PLUMED_BLAS_F77_FUNC (sorgqr, SORGQR)(int *m

void	PLUMED_BLAS_F77_FUNC (sorm2l, SORM2L)(const char *side

void	PLUMED_BLAS_F77_FUNC (sorm2r, SORM2R)(const char *side

void	PLUMED_BLAS_F77_FUNC (sormbr, SORMBR)(const char *vect

void	PLUMED_BLAS_F77_FUNC (sorml2, SORML2)(const char *side

void	PLUMED_BLAS_F77_FUNC (sormlq, SORMLQ)(const char *side

void	PLUMED_BLAS_F77_FUNC (sormql, SORMQL)(const char *side

void	PLUMED_BLAS_F77_FUNC (sormqr, SORMQR)(const char *side

void	PLUMED_BLAS_F77_FUNC (sormtr, SORMTR)(const char *side

void	PLUMED_BLAS_F77_FUNC (sstebz, SSTEBZ)(const char *range

void	PLUMED_BLAS_F77_FUNC (sstegr, SSTEGR)(const char *jobz

	if (fabs(scale-1.0)>PLUMED_GMX_FLOAT_EPS)

void	PLUMED_BLAS_F77_FUNC (sstein, SSTEIN)(int *n

void	PLUMED_BLAS_F77_FUNC (ssteqr, SSTEQR)(const char *compz

L160	SLASRT ("I", n,&d__[1], info)

void	PLUMED_BLAS_F77_FUNC (ssterf, SSTERF)(int *n

void	PLUMED_BLAS_F77_FUNC (sstevr, SSTEVR)(const char *jobz

void	PLUMED_BLAS_F77_FUNC (ssyevr, SSYEVR)(const char *jobz

	PLUMED_BLAS_F77_FUNC (ssytrd, SSYTRD)(uplo

void	PLUMED_BLAS_F77_FUNC (ssytd2, SSYTD2)(const char *uplo

void	PLUMED_BLAS_F77_FUNC (strti2, STRTI2)(const char *uplo

Variables
void const char *	compq

void const char int *	n

void const char int double *	d__ = 0.

void const char int double double *	e

void const char int double double double *	u = u_offset

void const char int double double double int *	ldu

void const char int double double double int double *	vt = vt_offset

void const char int double double double int double int *	ldvt

void const char int double double double int double int double *	q = q_offset

void const char int double double double int double int double int *	iq = ivt2 + ldvt2 * m

void const char int double double double int double int double int double *	work = ws

void const char int double double double int double int double int double int *	iwork = liwmin

void const char int double double double int double int double int double int int *info int	u_dim1 = *ldu

void const char int double double double int double int double int double int int *info int	u_offset = 1 + u_dim1

void const char int double double double int double int double int double int int *info int	vt_dim1 = *ldvt

void const char int double double double int double int double int double int int *info int	vt_offset = 1 + vt_dim1

void const char int double double double int double int double int double int int *info int	i__1 = *n

void const char int double double double int double int double int double int int *info int	i__2 = i3

int	i__ = i1

int	j = (1 << nlvl)

int	k = iu = z__ = ic = is = ivt = difl = difr = perm = 0

double	p = d__[l]

double	r__

int	z__ = 1.

int	ic = jc = 0

int	ii

int	kk

double	cs = f1 / *r

int	is

int	iu

double	sn = g1 / *r

int	nm1 = *n - 1

double	eps = PLUMED_GMX_DOUBLE_EPS

int	ivt

int	difl = d__[1]

int	difr = difr_offset

int	ierr

int	perm = perm_offset

int	mlvl

int	sqre = 0

int	poles = givnum = givptr = givcol = 0

int	iuplo = (uplo=='U' \|\| uplo=='u') ? 1 : 2

int	nsize

int	start = 1

int	givcol = givcol_offset

int	icompq

double	orgnrm = PLUMED_BLAS_F77_FUNC(dlanst,DLANST)("M", n, &d__[1], &e[1])

int	givnum = givnum_offset

int	givptr

int	qstart = 3

int	smlsiz = DBDSDC_SMALLSIZE

int	wstart = 1

int	smlszp = smlsiz + 1

double	zero = 0.0

double	one = 1.0

int	c_0 = 0

int	c_1 = 1

*	info = 0

	break

case	i = 0

default	__pad0__

if n	return

L40	__pad1__

void int int *	ncvt

void int int int *	nru

void int int int int *	ncc

void int int int int double double double int double int double *	c__ = c_offset

void int int int int double double double int double int double int *	ldc

int	c_dim1 = *ldc

int	c_offset = 1 + c_dim1

double	r__1 = 10.f

double	r__2 = (r__3<r__4) ? r__3 : r__4

double	r__3 = 100.f

double	r__4 = pow(PLUMED_GMX_DOUBLE_EPS,c_b15)

double	c_b15 = -.125

int	c__1 = 1

double	c_b49 = 1.f

double	c_b72 = -1.f

double	f = finit + tau * fc

double	g = (d__[l - 1] - p) / (e[l - 1] * 2.)

double	h__

int	m = *n

int	ll = 0

double	mu

int	nm12 = nm1 + nm1

int	nm13 = nm12 + nm1

int	lll

double	sll

double	tol = tolmul * eps

double	abse

int	idir = 0

double	abss

int	oldm = -1

double	cosl

int	isub

int	iter = 0

double	unfl = PLUMED_GMX_DOUBLE_MIN/PLUMED_GMX_DOUBLE_EPS

double	sinl

double	cosr

double	smin = smax

double	smax = 0.f

double	sinr

double	oldcs

int	oldll = -1

double	shift

double	sigmn

double	oldsn

int	maxit = n 6 * *n

double	sminl = 0.f

double	sigmx

int	lower = (xuplo == 'L')

double	sminoa

double	thresh = (r__1>r__2) ? r__1 : r__2

int	rotate = ncvt > 0 \|\| nru > 0 \|\| *ncc > 0

double	sminlo

double	tolmul = (r__1>r__2) ? r__1 : r__2

int	itmp1 = (n > 1) ? n : 1

int	itmp2 = (nru > 1) ? nru : 1

double	ftmp

	else

goto	L90

L90	__pad2__

L160	__pad3__

goto	L220

L200	__pad4__

L220	__pad5__

void int double *	a = a_offset

void int double int *	lda

void int double int double *	d = fabs(d[*n-1])

void int double int double double double *	tauq

void int double int double double double double *	taup

void int double int double double double double double int *	lwork

int	i_

int	nx = 0

int	nb = DGEBRD_BLOCKSIZE

double	ws = (m > n) ? m : n

int	nbmin = 2

int	iinfo

int	minmn = (m < n) ? m : n

int	ldwrkx = *m

int	ldwrky = *n

double	minusone = -1.0

	a_dim1 = *lda

	a_offset = 1 + a_dim1

	i_1 = minmn - nx

	i_2 = nb

void int double int double *	tau = 0.f

double	aii

	i__4 = (m > 1) ? m : 1

int	ib

int	iws = *m

int	ldwork = *n

int	lwkopt = m nb

int	i1 = 1

int	i2 = *ifirst

int	i3 = iseed[3]

void int int double int double *	s = work[inds] - *sigma

int	ie

double	dum [1]

int	iscl = 0

double	anrm = PLUMED_BLAS_F77_FUNC(dlange,DLANGE)("M", m, n, &a[a_offset], lda, dum)

int	idum [1]

int	itau

int	wrkbl

int	itaup

int	itauq

int	mnthr = (int) (minmn * 11. / 6.)

int	wntqa = (jobz=='a' \|\| jobz=='A')

int	nwork

int	wntqn = (jobz=='o' \|\| jobz=='O')

int	wntqo = (jobz=='n' \|\| jobz=='N')

int	wntqs = (jobz=='s' \|\| jobz=='S')

int	bdspac

double	bignum = 1. / smlnum

int	minwrk = 1

int	ldwrku

int	maxwrk = 1

int	ldwkvt

double	smlnum = sqrt(safemin) / eps

double	minval = PLUMED_GMX_DOUBLE_MIN

double	safemin = minval / eps

int	wntqas = wntqa \|\| wntqs

int	lquery = *lwork == -1

int	c__0 = 0

void int double int int *	ipiv

double	tmp = work[indp + r1 - 1]

int	l

	mindim = (m < n) ? m : n

int	jb

int	jj

int	jp

int	nn = (n0 << 2) + pp

double	c_b20 = -1.

double	c_b22 = 1.

Non	unit

void int int *	nrhs

void int int double int int double *	b = b_offset

void int int double int int double int *	ldb

int	notran = (trans=='N' \|\| trans=='n')

int	c_n1 = -1

	b_dim1 = *ldb

	b_offset = 1 + b_dim1

	Lower

	Transpose

	Unit

void int int double int double double double double double *	x = x_offset

void int int double int double double double double double int *	ldx

void int int double int double double double double double int double *	y = y_offset

void int int double int double double double double double int double int *	ldy

int	i__3

	x_dim1 = *ldx

	x_offset = 1 + x_dim1

	y_dim1 = *ldy

	y_offset = 1 + y_dim1

const char	ch =toupper(*uplo)

void double double double *	rt1

void double double double double *	rt2

double	ab = fabs(tb)

double	df = a - c__

double	tb = b + b

double	sm = a + c__

double	rt

double	adf = fabs(df)

double	acmn = *a

double	acmx

void int *	nitmax

void int int int *	mmax

void int int int int *	minp

void int int int int int double *	abstol

void int int int int int double double *	reltol

void int int int int int double double double *	pivmin = 1.

void int int int int int double double double double double double *	e2

void int int int int int double double double double double double int *	nval

void int int int int int double double double double double double int double double int *	mout = kl

void int int int int int double double double double double double int double double int int *	nab = nab_offset

double	d__1 = fabs(*alpha)

double	d__2 = fabs(*beta)

double	d__3 = fabs(d__[1]) + fabs(e[1])

double	d__4 = fabs(d__[n]) + fabs(e[n - 1])

int	kf = 1

int	ji

int	kl = *minp

int	jit

double	tmp1

double	tmp2

int	kfnew

int	klnew

	nab_dim1 = *mmax

	nab_offset = 1 + nab_dim1

	ab_dim1 = *mmax

	ab_offset = 1 + ab_dim1

if	ijob

void int *	orgati

void int double *	rho = PLUMED_BLAS_F77_FUNC(dnrm2,DNRM2)(k, &z__[1], &c__1)

void int double double double double *	finit

double	fc

double	ddf = 0.f

double	eta = tau / (d__[n] + sqrt(d__[n] * d__[*n] + tau))

double	base = 2

double	temp = (r__1>r__2) ? r__1 : r__2

double	temp1 = temp / (d__[n] + sqrt(d__[n] * d__[*n] + temp))

double	temp2

double	temp3

double	temp4

int	scale = 0

int	niter = 1

double	small1 = pow(base, i__1)

double	small2 = small1 * small1

double	sminv1 = 1.f / small1

double	sminv2 = sminv1 * sminv1

double	dscale [3]

double	sclfac

double	zscale [3]

double	erretm = 0.

double	sclinv = 0

if	kniter

void double double double double double *	cs1

void double double double double double double *	sn1

double	ct

double	tn

double	acs = fabs(cs)

int	sgn1 = 1

int	sgn2 = -1

void double double *	lambda

void double double double double double double int *	in = 0

double	tl = (tol>eps) ? tol : eps

double	piv1

double	piv2

double	mult

double	scale1 = fabs(a[1]) + fabs(b[1])

double	scale2

double	d__5

double	ak

double	pert

double	absak

double	sfmin = minval / eps

if	job

void int *	n2 = n - k

void int double int *	dtrd1

void int double int int *	dtrd2

void int double int int int *	index

int	n2sv = *n2

int	ind1 = 0

int	ind2 = *n1

double	dtemp

double	sum = 1.

double	max

double	val

double const char *	uplo

double	ret_val = value

double	absa

double	value =0.0

else if	norm

double	w

double	z = xabs

	xabs = fabs(*x)

	yabs = fabs(*y)

void int *	b1

void int int *	bn

void int int double *	sigma = 0

void int int double double double double *	ld

void int int double double double double double *	lld

void int int double double double double double double *	eval

void int int double double double double double double double *	gersch

void int int double double double double double double double double double *	ztz = 1.

void int int double double double double double double double double double double *	mingma = work[inds + r1 - 1] + work[indp + r1 - 1]

void int int double double double double double double double double double double int int *	isuppz = *b1

int	r1

int	r2 = *bn

int	to

int	indp = n 3 + 1

int	inds = (*n << 1) + 1

int	from

double	dplus = d__[1] + s

int	sawnan = 0

int	indumn

double	dminus

goto	L40

void int int double *	v = v_offset

void int int double int *	incv

void int int double int double double *	c

double	minustau = -(*tau)

void const char *	trans

void const char const char *	direct

void const char const char const char *	storev

void const char const char const char int int int double int *	ldv

void const char const char const char int int int double int double *	t = t_offset

void const char const char const char int int int double int double int *	ldt

char	transt [1]

	v_dim1 = *ldv

	v_offset = 1 + v_dim1

	t_dim1 = *ldt

	t_offset = 1 + t_dim1

	work_dim1 = *ldwork

	work_offset = 1 + work_dim1

void double *	alpha = beta

void double double int *	incx

int	ti1 = *n-1

int	knt

double	safmin = minval*(1.0+PLUMED_GMX_DOUBLE_EPS) / PLUMED_GMX_DOUBLE_EPS

double	rsafmn

double	beta = t

	xnorm = PLUMED_BLAS_F77_FUNC(dnrm2,DNRM2)(&ti1,x,incx)

double	vii

void int *	iseed = it1

int	il = -1

int	iv

int	il2

void double double double double int *	ifirst

void double double double double int int *	ilast

void double double double double int int double *	rtol1

void double double double double int int double double *	rtol2

void double double double double int int double double int *	offset

void double double double double int int double double int double double *	wgap

void double double double double int int double double int double double double *	werr

double	fac

double	gap

double	mid

int	cnt

double	left = (side=='L' \|\| side=='l')

int	nint = 0

int	prev = 0

int	next

int	nleft

double	right = 0.0

double	width

double	error

int	nright

int	olnint = nint

goto	L30

void int double *	vl = 0.

void int double double *	vu

void int double double int int double double double int *	nsplit = 1

void int double double int int double double double int int *	isplit = *n

void int double double int int double double double int int int double int *	iblock = 1

void int double double int int double double double int int int double int int *	indexw

double	gl

double	gu

double	nrm

double	vvl

double	vvu

double	offd

int	iend = 0

int	jblk

int	till

int	itmp

double	rtol

double	delta = eps * 2.

int	ibegin = 1

int	irange = 0

double	sgndef = 0

int	maxcnt = 0

void double double double double int int double double double double *	lplus

double	dmax1 = fabs(dplus[1])

double	dmax2 = fabs(work[1])

void double double int int double int int double double double int *	ldz

double	c_b5 = 0.

int	c__2 = 2

int	im

int	zto

int	wend

int	ktot

int	indld = *n << 1

int	ndone

int	iindr = *n

double	resid

int	nomgs

int	nclus

int	zfrom

int	iindc1 = *n << 1

int	iindc2 = n 3

int	indgap = *n << 2

int	indlld = n 3

int	oldien

int	oldncl

int	wbegin = 1

double	relgap

int	oldcls

int	ndepth

int	inderr = *n

int	iindwk = (*n << 2) + 1

int	newcls

int	oldfst

double	minrgp =0.0

int	indwrk = n 5 + 1

int	oldlst

int	newfrs

int	newftt

int	parity

double	mgstol = eps * 100.

double	nrminv

double	rqcorr

int	newlst

int	newsiz

	z_dim1 = *ldz

	z_offset = 1 + z_dim1

void double double double double *	r

double	f1

double	g1 = *g

double	f1a = fabs(f1)

double	g1a = fabs(g1)

int	count

	safemin2 = pow(2,n)

	safemx2 = 1.0 / safemin2

int	i4 = iseed[4]

int	it1 = it2 = it3 = it4 = 0

int	it2

int	it3

int	it4

void double double *	h

void double double double *	ssmin

void double double double double *	ssmax

double	ga = fabs(*g)

double	ha = fabs(*h)

double	fhmin = (fa<ha) ? fa : ha

double	fhmax = (fa>ha) ? fa : ha

double	tmax

double	tmin

double	as

double	at

double	au

void int int *	ku

void int int double *	cfrom

void int int double double *	cto

int	k1

int	k2 = n + 1

int	k3

int	k4

int	done =0

double	cfromc = *cfrom

double	ctoc = *cto

double	cfrom1

double	cto1

double	mul

int	lf

int	nd = llst*2 - 1

int	nl

int	nr

int	im1

int	nlf

int	nrf

int	iwk = idxq + *n

int	lvl = 1 + (int) temp

int	ndb1 = (nd + 1) / 2

int	nlp1 = *nl + 1

int	nrp1 = nr + sqre

int	idxq = ndimr + *n

int	nlvl

int	inode = 1

int	ndiml = inode + *n

int	idxqc

int	ndimr = ndiml + *n

int	itemp

int	sqrei

int	n1 = k

int	iz = 1

int	iu2 = isigma + n

int	ldq = k

int	idx = 1

int	ldu2 = n

int	ivt2 = iu2 + ldu2 * n

int	idxc = idx + n

int	idxp = coltyp + n

int	ldvt2 = m

int	isigma = iz + m

int	coltyp = idxc + n

void int int int double double double double double int double int double *	dsigma = d__[jprev]

void int int int double double double double double int double int double double *	u2 = u2_offset

void int int int double double double double double int double int double double int double *	vt2 = vt2_offset

int	vt2_dim1 = *ldvt2

int	vt2_offset = 1 + vt2_dim1

double	z1 = alpha vt[nlp1 + nlp1 * vt_dim1]

int	psm [4]

int	nlp2 = *nl + 2

int	idxi

int	idxj

int	ctot [4]

int	idxjp

int	jprev = 0

double	hlftol = tol / 2.

	u2_dim1 = *ldu2

	u2_offset = 1 + u2_dim1

int	jc

int	ctemp = ctot[2] + ctot[3]

int	ktemp = ctot[1] + 2

double *	p1 = &t1

double *	p2 = &t2

double	t1

double	t2

	q_dim1 = *ldq

	q_offset = 1 + q_dim1

goto	L100

	N

double	dd [3] = dtiim

double	dw = dpsi + dphi + temp * temp

double	zz [3] = z__[iip1] * z__[iip1]

int	ip1 = *i__ + 1

double	phi = z__[n] temp

double	psi = 0.

int	iim1 = ii - 1

int	iip1 = ii + 1

double	dphi = temp * temp

double	dpsi = 0.

double	prew = w

double	sg2lb = -delsq2

double	sg2ub = 0.

double	dtiim

double	delsq = (d__[ip1] - d__[i__]) (d__[ip1] + d__[*i__])

double	dtiip = work[iip1] * delta[iip1]

double	dtisq

int	swtch = 0

double	dtnsq = work[n] delta[*n]

double	delsq2 = delsq / 2.

double	dtnsq1 = work[n - 1] delta[*n - 1]

int	swtch3 = 0

double	dtipsq

double	rhoinv = 1. / *rho

goto	L240

	del = d__[2] - d__[1]

void int int int double double *	vf = tau

void int int int double double double double double int int int int int *	ldgcol

void int int int double double double double double int int int int int double int *	ldgnum

int	iw = isigma + n

int	ivfw = iw + m

int	ivlw = ivfw + m

	givcol_dim1 = *ldgcol

	givcol_offset = 1 + givcol_dim1

	poles_dim1 = *ldgnum

	poles_offset = 1 + poles_dim1

	givnum_dim1 = *ldgnum

	givnum_offset = 1 + givnum_dim1

void int int int int double double double *	zw = z__[jprev]

void int int int int double double double double double *	vfw

void int int int int double double double double double double double *	vlw

void int double double double double double double int *	lddifr

double	dj

int	iwk1 = 1

int	iwk2 = iwk1 + *k

int	iwk3 = iwk2 + *k

int	iwk2i = iwk2 - 1

int	iwk3i = iwk3 - 1

double	diflj

double	difrj = dsigjp = 0

double	dsigj

double	dsigjp

	difr_dim1 = *lddifr

	difr_offset = 1 + difr_dim1

int	vfi

int	vli

int	lvl2

int	idxqi

int	nwork1 = vl + m

int	nwork2 = nwork1 + smlszp * smlszp

	difl_dim1 = *ldu

	difl_offset = 1 + difl_dim1

	perm_dim1 = *ldgcol

	perm_offset = 1 + perm_dim1

int	np1 = *n + 1

int	sqre1 = *sqre

void int int int int int int *	msub

int	ir = 0

int	llst = 1

int	ncrnt

int	i0 = 1

int	n0 = *n

int	pp = 0

double	dee

int	ipn4

double	tol2 = d__1 * d__1

int	ieee = 1

int	nbig

double	dmin__

double	emin = z__[2]

double	emax

int	kmin

int	ndiv = 2*(n0 - i0)

double	qmin

double	qmax = 0.

double	zmax = 0.

int	splt

int	nfail = 0

double	desig = t - *sigma

double	trace = d__ + e

double	deemin

int	iwhila

int	iwhilb

double	oldemn

double	posinf = one/zero

double	neginf = -one/zero

double	negzro = one/(neginf+one)

double	newzro = negzro + zero

double	dmin1 = 0.

double	dmin2 = 0.

double	dn = 0.

double	dn1 = 0.

double	dn2 = 0.

int	j4 = (i0 << 2) + pp - 3

int	n0in = *n0

goto	L10

	ttype = -12

goto	L70

L80	__pad6__

L90	__pad7__

double	a2

double	b2

int	np

double	gam

double	gap1

double	gap2

void int double int double double double double double double *	dnm1 = z__[j4p2 + 2] * (dnm2 / z__[j4 - 2]) - tau

void int double int double double double double double double double *	dnm2

int	j4p2 = j4 + (*pp << 1) - 1

void const char *	pivot

double	stemp

if	side

double	d1

double	d2

double	d3

int	dir = -1

int	endd = stack[(stkpnt << 1) - 1]

int	stack [64] = 1

double	dmnmx

int	stkpnt = 1

void int double int *	key

int	tmpkey

void double int double double *	sumsq

double	absxi

void double double double double double *	snr = srt

void double double double double double double *	csr = crt

void double double double double double double double *	snl = slt

void double double double double double double double double *	csl

double	fa = fabs(ft)

double	ft = *f

double	gt = *g

double	ht = *h__

double	mm

double	tt

double	clt

double	crt

double	slt

double	srt

int	pmax = 1

int	swap = ha > fa

double	tsign =1.0

int	gasmal

int	ix

int	ip

	inc = 1

	n32 = *n / 32

void int int double int double double double int *	ldw

int	ti2

int	ti3

int	mn = (m < n) ? m : n

	wantq = (vect=='Q' \|\| vect=='q')

	wrksz = mn*DORGBR_BLOCKSIZE

int	ki = 0

int	mi

int	ni = *n - 1

int	nq

int	nw = *m

int	applyq = (vect=='Q' \|\| vect=='q')

const char	xtrans =toupper(*trans)

int	c__65 = 65

int	upper = (uplo=='U' \|\| uplo=='u')

void const char *	order

int	c__3 = 3

int	je

double	wl

double	wu = 0.

int	nwl = 0

double	ulp = 2*PLUMED_GMX_DOUBLE_EPS

double	wlu

double	wul

int	nwu = 0

int	ioff

int	iout

int	jdisc

double	atoli

int	iwoff

double	bnorm

int	itmax

double	wkill

double	rtoli = ulp * 2.

double	tnorm = (d__3>d__4) ? d__3 : d__4

int	idiscl

int	idumma [1]

int	idiscu

int	iorder

int	ncnvrg = 0

int	toofew = 0

const double	safemn = PLUMED_GMX_DOUBLE_MIN*(1.0+PLUMED_GMX_DOUBLE_EPS)

if	range

void const char int double double double double int int double int double double int int double int int int *	liwork

double	rmin = sqrt(smlnum)

double	rmax = (d__1<d__2) ? d__1 : d__2

double	tnrm = PLUMED_BLAS_F77_FUNC(dlanst,DLANST)("M", n, &d__[1], &e[1])

int	iindw = (*n << 1) + 1

int	lwmin = n 17

int	wantz = (jobz=='V' \|\| jobz=='v')

int	iindbl = *n + 1

int	valeig = (range=='V' \|\| range=='v')

int	alleig = (range=='A' \|\| range=='a')

int	indeig = (range=='I' \|\| range=='i')

int	indgrs = 1

int	iinspl = 1

int	liwmin = n 10

void double double int double int int double int double int int *	ifail

int	j1 = 1

double	xj

double	scl

double	sep

int	its

double	xjm = 0.0

double	ztr

double	eps1

int	nblk

int	jmax

int	gpind

double	ortol

int	indrv1 = 0

int	indrv2 = indrv1 + *n

int	indrv3 = indrv2 + *n

int	indrv4 = indrv3 + *n

int	indrv5 = indrv4 + *n

int	nrmchk

int	blksiz

double	onenrm

double	dtpcrt

double	pertol

double	c_b10 = 1.

int	l1 = 1

int	lm1 = l - 1

int	mm1

int	lsv = l

double	tst

double	eps2 = d__1 * d__1

int	lend = m

int	jtot = 0

double	anorm = PLUMED_BLAS_F77_FUNC(dlanst,DLANST)("I", &i__1, &d__[l], &e[l])

int	lendm1

int	lendp1

int	iscale = 0

double	safmax = 1. / safmin

int	lendsv = lend

double	ssfmin = sqrt(safmin) / eps2

int	nmaxit = n 30

int	icompz

double	ssfmax = sqrt(safmax) / 3.

if	compz

goto	L140

goto	L190

double	bb

double	rte = sqrt(e[l - 1])

double	oldc

double	gamma = d__[m] - sigma

double	oldgam

double	c_b32 = 1.

goto	L150

double	vll = *vl

double	vuu = *vu

int	indd = inde + *n

int	inde = indtau + *n

int	imax

int	inddd = indee + *n

int	indee = indd + *n

int	indwk = indifl + *n

int	ieeeok = 1

int	indibl = 0

int	indifl = inddd + *n

double	abstll = *abstol

int	indtau = 1

int	indwkn

int	llwrkn

int	llwork = *lwork - indwk + 1

double	fzero = 0.0

double	fone = 1.0

double	taui

double	c_b23 = 1.

void const char *	diag

double	ajj

int	nounit = (diag=='N' \|\| diag=='n')

double	c_b18 = 1.

void int double int double *	dmin

void double double double double double double *	cs2

Function Documentation

L70 PLMD::lapack::DLASQ5	(	i0	,
		n0	,
		&	z__[1],
		pp	,
		&	tau,
		dmin__	,
		&	dmin1,
		&	dmin2,
		&	dn,
		&	dn1,
		&	dn2,
		ieee
	)

L80 PLMD::lapack::DLASQ6	(	i0	,
		n0	,
		&	z__[1],
		pp	,
		dmin__	,
		&	dmin1,
		&	dmin2,
		&	dn,
		&	dn1,
		&	dn2
	)

L10 PLMD::lapack::DLASRT	(	"I"	,
		n	,
		&	d__[1],
		info
	)

PLMD::lapack::for ( i__ = 1; i__ <= i__1; ++i__ )

PLMD::lapack::for ( ii = 2; ii <= i__1; ++ii )

PLMD::lapack::for ( lll = 1; lll <= i__1; ++lll )

PLMD::lapack::for ( i_ = 1; i_2 < 0 ? i_ >= i_1 : i_ <= i_1; i_ += i_2 )

PLMD::lapack::for ( ) = *beta

PLMD::lapack::for ( j = 1;j<=k;j++ )

PLMD::lapack::for ( ji = 1; ji <= i__1; ++ji )

PLMD::lapack::for ( jit = 1; jit <= i__1; ++jit )

PLMD::lapack::for ( niter = iter; niter <= 20; ++niter )

PLMD::lapack::for ( k = 1; k <= i__1; ++k )

PLMD::lapack::for ( iv = 1; iv <= i__1; iv += 64 )

PLMD::lapack::for ( p = 1; p <= i__1; ++p )

PLMD::lapack::for ( jblk = 1; jblk <= i__1; ++jblk )

PLMD::lapack::for ( lvl = nlvl; lvl >= 1; --lvl )

PLMD::lapack::for ( iwhila = 1; iwhila <= i__1; ++iwhila )

PLMD::lapack::for ( j4 = *i0*4; j4 <= i__1; j4 += 4 )

PLMD::lapack::for ( i = 2;i<=*m;i++ )

pure virtual

PLMD::lapack::for ( jb = 1; jb <= i__1; ++jb )

PLMD::lapack::for ( nblk = 1; nblk <= i__1; ++nblk )

PLMD::lapack::for ( m = l1; m <= i__1; ++m )

PLMD::lapack::if ( icompq = = 1 )

PLMD::lapack::if ( iuplo = = 2 )

PLMD::lapack::if ( ) = -1.0

PLMD::lapack::if ( (xuplo!='U')&&! lower )

else PLMD::lapack::if ( ((*ncvt==0)&&(*ldvt< 1))||((*ncvt > 0)&&(*ldvt< itmp1)) )

else PLMD::lapack::if ( ((*ncc==0)&&(*ldc< 1))||((*ncc > 0)&&(*ldc< itmp1)) )

PLMD::lapack::if ( ! rotate )

PLMD::lapack::if ( lower )

PLMD::lapack::if ( tol >=0. f )

PLMD::lapack::if	(	iter	,
		maxit
	)

PLMD::lapack::if ( ll = = m - 1 )

PLMD::lapack::if ( idir = = 1 )

PLMD::lapack::if ( tol >=0.f &&*n *tol * sminl/smax)<=((r__1 >r__2)?r__1:r__2 )

PLMD::lapack::if ( shift = = 0.f )

PLMD::lapack::if ( minmn = = 0 )

PLMD::lapack::if ( nb )

PLMD::lapack::if ( k = = 0 )

PLMD::lapack::if ( i__<= k )

PLMD::lapack::if ( lquery! = 0 )

PLMD::lapack::if ( anrm )

else PLMD::lapack::if	(	anrm	,
		bignum
	)

PLMD::lapack::if ( DGETRF_BLOCKSIZE >= mindim )

PLMD::lapack::if ( nb< nbmin||nb > = *n )

PLMD::lapack::if ( notran )

PLMD::lapack::if ( ch = ='U' )

PLMD::lapack::if	(	fabs *	a,
		fabs *	c__
	)

PLMD::lapack::if	(	adf	,
		ab
	)

else PLMD::lapack::if	(	sm	,
		0.
	)

PLMD::lapack::if	(	i__1	,
		0
	)		= i__1

PLMD::lapack::if ( c__ = = 0.f )

else PLMD::lapack::if ( a<=0. f )

PLMD::lapack::if ( fabs *finit<= fabstemp )

PLMD::lapack::if ( temp<= small1 )

PLMD::lapack::if ( fabs(f)<=0. f )

PLMD::lapack::if ( df >= 0. )

PLMD::lapack::if	(	acs	,
		ab
	)

PLMD::lapack::if ( fabs(a[*n])<=scale1 *tl && in[*n] = = 0 )

PLMD::lapack::if	(	fabs *	job,
		2\|\|*	job = `= 0`
	)

PLMD::lapack::if ( n1sv = =0 )

PLMD::lapack::if	(	xabs	,
		yabs
	)

PLMD::lapack::if ( ! s > 0.||s< 1. )

PLMD::lapack::if ( ! tmp > 0.||tmp< 1. )

PLMD::lapack::if ( iwork [(i__<< 1)-1] = = 1 )

PLMD::lapack::if ( i__<=*n &&iwork! [(i__<< 1)-1] = -1 )

PLMD::lapack::if	(	nint	,
		0
	)

PLMD::lapack::if ( irange = = 2 ) = safemn

PLMD::lapack::if ( ! dmax1 > 0.||dmax1< 1. )

PLMD::lapack::if ( ! dmax2 > 0.||dmax2< 1. )

PLMD::lapack::if ( scale >= safemx2 )

else PLMD::lapack::if ( scale<= safemin2 )

PLMD::lapack::if ( fabs * f )

PLMD::lapack::if	(	j	,
		n
	)

PLMD::lapack::if ( fabs(z__[j])<= tol )

PLMD::lapack::if	(	z__	[1],
		0.
	)

PLMD::lapack::if	(	ctot	[1],
		0
	)

else PLMD::lapack::if	(	ctot	[3],
		0
	)

PLMD::lapack::if ( ktemp<=* ldvt2 )

PLMD::lapack::if	(	ktemp	,
		1
	)

PLMD::lapack::if ( w<= 0. )

PLMD::lapack::if ( fabs(w)<=eps * erretm )

else PLMD::lapack::if ( a >= 0. )

PLMD::lapack::if	(	w *	eta,
		0.
	)

PLMD::lapack::if	(	temp	,
		*	rho
	)

PLMD::lapack::if	(	w	,
		0.
	)

PLMD::lapack::if ( orgati )

PLMD::lapack::if ( w *eta >= 0. )

PLMD::lapack::if ( temp )

PLMD::lapack::if	(	b	,
		0.
	)

PLMD::lapack::if ( fabs(dsigma[2])<= hlftol )

PLMD::lapack::if	(	m	,
		n
	)

PLMD::lapack::if ( xuplo = = 'U' )

else PLMD::lapack::if ( *==0 &&*< 1ldvt||* > 0 &&*< itmp1 )

else PLMD::lapack::if ( *==0 &&*< 1ldc||* > 0 &&*< itmp1 )

PLMD::lapack::if	(	z__	[2],
		z__ *	tol2[3]
	)

PLMD::lapack::if ( posinf<=1. 0 )

pure virtual

PLMD::lapack::if ( neginf >=0. 0 )

pure virtual

PLMD::lapack::if	(	fabs(negzro)	,
		PLUMED_GMX_DOUBLE_MIN
	)

pure virtual

PLMD::lapack::if ( neginf >= 0 )

pure virtual

PLMD::lapack::if	(	fabs(newzro-zero)	,
		PLUMED_GMX_DOUBLE_MIN
	)

pure virtual

PLMD::lapack::if ( posinf<= one )

pure virtual

PLMD::lapack::if	(	z__	[nn-5],
		tol2 **+[-3]nn &&	z__[nn-(*pp<< 1)-4],
		tol2 *	z__[nn-7]
	)

PLMD::lapack::if	(	z__	[nn-5],
		z__ *	tol2[nn-3]
	)

else PLMD::lapack::if	(	dmin1	,
		0.
	)

PLMD::lapack::if ( dir = = -1 )

PLMD::lapack::if	(	endd-start<=20 &&endd-	start,
		0
	)

else PLMD::lapack::if	(	endd-	start,
		20
	)

PLMD::lapack::if	(	stkpnt	,
		0
	)

PLMD::lapack::if	(	endd-	start,
		0
	)

PLMD::lapack::if ( swap )

PLMD::lapack::if	(	ga	,
		fa
	)

PLMD::lapack::if ( gasmal )

PLMD::lapack::if ( pmax = = 1 )

PLMD::lapack::if ( n32! = 0 ) = 32

PLMD::lapack::if ( wantq )

PLMD::lapack::if ( lquery )

PLMD::lapack::if	(	kk	,
		0
	)

PLMD::lapack::if ( left )

PLMD::lapack::if ( (left &&notran)||(!left &&!notran) )

PLMD::lapack::if ( (left &&!notran)||(!left &&notran) )

PLMD::lapack::if ( applyq )

PLMD::lapack::if ( (xside=='L'&&xtrans=='N')||(xside!='L'&&xtrans!='N') )

PLMD::lapack::if ( xside = ='L' )

PLMD::lapack::if ( upper )

PLMD::lapack::if ( irange<= 0 )

else PLMD::lapack::if ( iorder<= 0 )

PLMD::lapack::if ( nb<= 1 )

PLMD::lapack::if	(	iorder	= `= 1 && *nsplit`,
		1
	)

PLMD::lapack::if ( ncnvrg )

PLMD::lapack::if ( toofew )

PLMD::lapack::if ( ! wantz||(*jobz=='N'||*jobz=='n') )

else PLMD::lapack::if ( ! alleig||valeig||indeig )

else PLMD::lapack::if	(	valeig &&*	n,
		0 &&vu<=	vl
	)

else PLMD::lapack::if ( indeig &&*< 1||* > * n )

else PLMD::lapack::if ( indeig &&*< *||* > * n )

PLMD::lapack::if ( tnrm )

else PLMD::lapack::if	(	tnrm	,
		rmax
	)

PLMD::lapack::if	(	fabs(scale-1.0)	,
		PLUMED_GMX_DOUBLE_EPS
	)

PLMD::lapack::if ( iinfo! = 0 )

PLMD::lapack::if ( wantz )

PLMD::lapack::if	(	nsplit	,
		1
	)

PLMD::lapack::if ( icompz = = 2 )

PLMD::lapack::if	(	l1	,
		1
	)

PLMD::lapack::if ( l1<= nm1 )

PLMD::lapack::if ( lend = = l )

PLMD::lapack::if	(	anorm	,
		ssfmax
	)

PLMD::lapack::if	(	lend	,
		l
	)

PLMD::lapack::if ( m = = l )

PLMD::lapack::if ( jtot = = nmaxit )

PLMD::lapack::if	(	icompz	,
		0
	)

PLMD::lapack::if ( l >= lend )

PLMD::lapack::if ( iscale = = 2 )

PLMD::lapack::if ( lend >= l )

PLMD::lapack::if ( negzro! = 0 )

pure virtual

PLMD::lapack::if ( newzro! = fzero )

pure virtual

else PLMD::lapack::if ( ! lower||(*uplo=='U'||*uplo=='u') )

PLMD::lapack::if ( alleig|| indeig )

else PLMD::lapack::if	(	anrm	,
		rmax
	)

PLMD::lapack::if ( wantz &&* info = = 0 )

PLMD::lapack::if ( !upper &&!*==''||*=='' l )

PLMD::lapack::if ( nounit )

PLMD::lapack::if ( nb<=1||nb >=* n )

PLMD::lapack::if	(	fabs(negzro)	,
		PLUMED_GMX_FLOAT_MIN
	)

pure virtual

PLMD::lapack::if	(	fabs(newzro-zero)	,
		PLUMED_GMX_FLOAT_MIN
	)

pure virtual

PLMD::lapack::if	(	fabs(scale-1.0)	,
		PLUMED_GMX_FLOAT_EPS
	)

else if* PLMD::lapack::lda ( * n )

else if* PLMD::lapack::lda ( * >1n?*n:1 )

else if* PLMD::lapack::lda ( (1 > *n)?1:* n )

else if* PLMD::lapack::ldz ( )

else if* PLMD::lapack::ldz ( * n )

else if* PLMD::lapack::ldz	(	icompz	,
		0 &&ldz< ((n >	1
	)

else if* PLMD::lapack::lwork ( * n )

void PLMD::lapack::PLUMED_BLAS_F77_FUNC	(	dbdsdc	,
		DBDSDC
	)		const

void PLMD::lapack::PLUMED_BLAS_F77_FUNC	(	dlascl	,
		DLASCL
	)

void PLMD::lapack::PLUMED_BLAS_F77_FUNC	(	dbdsqr	,
		DBDSQR
	)		const

void PLMD::lapack::PLUMED_BLAS_F77_FUNC	(	dgebd2	,
		DGEBD2
	)

void PLMD::lapack::PLUMED_BLAS_F77_FUNC	(	dgebrd	,
		DGEBRD
	)

void PLMD::lapack::PLUMED_BLAS_F77_FUNC	(	dgelq2	,
		DGELQ2
	)

void PLMD::lapack::PLUMED_BLAS_F77_FUNC	(	dgelqf	,
		DGELQF
	)

void PLMD::lapack::PLUMED_BLAS_F77_FUNC	(	dgeqr2	,
		DGEQR2
	)

void PLMD::lapack::PLUMED_BLAS_F77_FUNC	(	dgeqrf	,
		DGEQRF
	)

void PLMD::lapack::PLUMED_BLAS_F77_FUNC	(	dgesdd	,
		DGESDD
	)		const

void PLMD::lapack::PLUMED_BLAS_F77_FUNC	(	dgetf2	,
		DGETF2
	)

void PLMD::lapack::PLUMED_BLAS_F77_FUNC	(	dgetrf	,
		DGETRF
	)

void PLMD::lapack::PLUMED_BLAS_F77_FUNC	(	dgetri	,
		DGETRI
	)

void PLMD::lapack::PLUMED_BLAS_F77_FUNC	(	dtrtri	,
		DTRTRI
	)

void PLMD::lapack::PLUMED_BLAS_F77_FUNC	(	dgetrs	,
		DGETRS
	)		const

PLMD::lapack::PLUMED_BLAS_F77_FUNC	(	dtrsm	,
		DTRSM
	)

void PLMD::lapack::PLUMED_BLAS_F77_FUNC	(	dlaswp	,
		DLASWP
	)

void PLMD::lapack::PLUMED_BLAS_F77_FUNC	(	dlabrd	,
		DLABRD
	)

void PLMD::lapack::PLUMED_BLAS_F77_FUNC	(	dlacpy	,
		DLACPY
	)		const

void PLMD::lapack::PLUMED_BLAS_F77_FUNC	(	dlae2	,
		DLAE2
	)

void PLMD::lapack::PLUMED_BLAS_F77_FUNC	(	dlaebz	,
		DLAEBZ
	)

void PLMD::lapack::PLUMED_BLAS_F77_FUNC	(	dlaed6	,
		DLAED6
	)

void PLMD::lapack::PLUMED_BLAS_F77_FUNC	(	dlaev2	,
		DLAEV2
	)

void PLMD::lapack::PLUMED_BLAS_F77_FUNC	(	dlagtf	,
		DLAGTF
	)

void PLMD::lapack::PLUMED_BLAS_F77_FUNC	(	dlagts	,
		DLAGTS
	)

void PLMD::lapack::PLUMED_BLAS_F77_FUNC	(	dlamrg	,
		DLAMRG
	)

double PLMD::lapack::PLUMED_BLAS_F77_FUNC	(	dlange	,
		DLANGE
	)		const

double PLMD::lapack::PLUMED_BLAS_F77_FUNC	(	dlanst	,
		DLANST
	)		const

double PLMD::lapack::PLUMED_BLAS_F77_FUNC	(	dlansy	,
		DLANSY
	)		const

void PLMD::lapack::PLUMED_BLAS_F77_FUNC	(	dlassq	,
		DLASSQ
	)

double PLMD::lapack::PLUMED_BLAS_F77_FUNC	(	dlapy2	,
		DLAPY2
	)

void PLMD::lapack::PLUMED_BLAS_F77_FUNC	(	dlar1vx	,
		DLAR1VX
	)

void PLMD::lapack::PLUMED_BLAS_F77_FUNC	(	dlarf	,
		DLARF
	)		const

void PLMD::lapack::PLUMED_BLAS_F77_FUNC	(	dlarfb	,
		DLARFB
	)		const

void PLMD::lapack::PLUMED_BLAS_F77_FUNC	(	dlarfg	,
		DLARFG
	)

PLMD::lapack::PLUMED_BLAS_F77_FUNC	(	dscal	,
		DSCAL
	)

void PLMD::lapack::PLUMED_BLAS_F77_FUNC	(	dlarft	,
		DLARFT
	)		const

void PLMD::lapack::PLUMED_BLAS_F77_FUNC	(	dlarnv	,
		DLARNV
	)

void PLMD::lapack::PLUMED_BLAS_F77_FUNC	(	dlarrbx	,
		DLARRBX
	)

void PLMD::lapack::PLUMED_BLAS_F77_FUNC	(	dlarrex	,
		DLARREX
	)		const

void PLMD::lapack::PLUMED_BLAS_F77_FUNC	(	dlarrfx	,
		DLARRFX
	)

void PLMD::lapack::PLUMED_BLAS_F77_FUNC	(	dlarrvx	,
		DLARRVX
	)

void PLMD::lapack::PLUMED_BLAS_F77_FUNC	(	dlaset	,
		DLASET
	)		= rho

void PLMD::lapack::PLUMED_BLAS_F77_FUNC	(	dlartg	,
		DLARTG
	)

void PLMD::lapack::PLUMED_BLAS_F77_FUNC	(	dlaruv	,
		DLARUV
	)

void PLMD::lapack::PLUMED_BLAS_F77_FUNC	(	dlas2	,
		DLAS2
	)

void PLMD::lapack::PLUMED_BLAS_F77_FUNC	(	dlasd0	,
		DLASD0
	)

void PLMD::lapack::PLUMED_BLAS_F77_FUNC	(	dlasdt	,
		DLASDT
	)

void PLMD::lapack::PLUMED_BLAS_F77_FUNC	(	dlasd1	,
		DLASD1
	)

void PLMD::lapack::PLUMED_BLAS_F77_FUNC	(	dlasd2	,
		DLASD2
	)

void PLMD::lapack::PLUMED_BLAS_F77_FUNC	(	dlasd3	,
		DLASD3
	)

PLMD::lapack::PLUMED_BLAS_F77_FUNC	(	dcopy	,
		DCOPY
	)

PLMD::lapack::PLUMED_BLAS_F77_FUNC	(	dgemm	,
		DGEMM
	)

void PLMD::lapack::PLUMED_BLAS_F77_FUNC	(	dlasd4	,
		DLASD4
	)

void PLMD::lapack::PLUMED_BLAS_F77_FUNC	(	dlasd5	,
		DLASD5
	)

void PLMD::lapack::PLUMED_BLAS_F77_FUNC	(	dlasd6	,
		DLASD6
	)

void PLMD::lapack::PLUMED_BLAS_F77_FUNC	(	dlasd7	,
		DLASD7
	)

void PLMD::lapack::PLUMED_BLAS_F77_FUNC	(	dlasd8	,
		DLASD8
	)

void PLMD::lapack::PLUMED_BLAS_F77_FUNC	(	dlasda	,
		DLASDA
	)

void PLMD::lapack::PLUMED_BLAS_F77_FUNC	(	dlasdq	,
		DLASDQ
	)		const

void PLMD::lapack::PLUMED_BLAS_F77_FUNC	(	dlasq1	,
		DLASQ1
	)

void PLMD::lapack::PLUMED_BLAS_F77_FUNC	(	dlasq2	,
		DLASQ2
	)

void PLMD::lapack::PLUMED_BLAS_F77_FUNC	(	dlasrt	,
		DLASRT
	)

void PLMD::lapack::PLUMED_BLAS_F77_FUNC	(	dlasq3	,
		DLASQ3
	)

void PLMD::lapack::PLUMED_BLAS_F77_FUNC	(	dlasq4	,
		DLASQ4
	)

void PLMD::lapack::PLUMED_BLAS_F77_FUNC	(	dlasq5	,
		DLASQ5
	)

void PLMD::lapack::PLUMED_BLAS_F77_FUNC	(	dlasq6	,
		DLASQ6
	)

void PLMD::lapack::PLUMED_BLAS_F77_FUNC	(	dlasr	,
		DLASR
	)		const

void PLMD::lapack::PLUMED_BLAS_F77_FUNC	(	dlasrt2	,
		DLASRT2
	)		const

void PLMD::lapack::PLUMED_BLAS_F77_FUNC	(	dlasv2	,
		DLASV2
	)

void PLMD::lapack::PLUMED_BLAS_F77_FUNC	(	dlatrd	,
		DLATRD
	)		const

void PLMD::lapack::PLUMED_BLAS_F77_FUNC	(	dorg2r	,
		DORG2R
	)

void PLMD::lapack::PLUMED_BLAS_F77_FUNC	(	dorgbr	,
		DORGBR
	)		const

void PLMD::lapack::PLUMED_BLAS_F77_FUNC	(	dorglq	,
		DORGLQ
	)

void PLMD::lapack::PLUMED_BLAS_F77_FUNC	(	dorgl2	,
		DORGL2
	)

void PLMD::lapack::PLUMED_BLAS_F77_FUNC	(	dorgqr	,
		DORGQR
	)

void PLMD::lapack::PLUMED_BLAS_F77_FUNC	(	dorm2l	,
		DORM2L
	)		const

void PLMD::lapack::PLUMED_BLAS_F77_FUNC	(	dorm2r	,
		DORM2R
	)		const

void PLMD::lapack::PLUMED_BLAS_F77_FUNC	(	dormbr	,
		DORMBR
	)		const

void PLMD::lapack::PLUMED_BLAS_F77_FUNC	(	dorml2	,
		DORML2
	)		const

void PLMD::lapack::PLUMED_BLAS_F77_FUNC	(	dormlq	,
		DORMLQ
	)		const

void PLMD::lapack::PLUMED_BLAS_F77_FUNC	(	dormql	,
		DORMQL
	)		const

void PLMD::lapack::PLUMED_BLAS_F77_FUNC	(	dormqr	,
		DORMQR
	)		const

void PLMD::lapack::PLUMED_BLAS_F77_FUNC	(	dormtr	,
		DORMTR
	)		const

void PLMD::lapack::PLUMED_BLAS_F77_FUNC	(	dstebz	,
		DSTEBZ
	)		const

void PLMD::lapack::PLUMED_BLAS_F77_FUNC	(	dstegr	,
		DSTEGR
	)		const

void PLMD::lapack::PLUMED_BLAS_F77_FUNC	(	dstein	,
		DSTEIN
	)

void PLMD::lapack::PLUMED_BLAS_F77_FUNC	(	dsteqr	,
		DSTEQR
	)		const

void PLMD::lapack::PLUMED_BLAS_F77_FUNC	(	dsterf	,
		DSTERF
	)

void PLMD::lapack::PLUMED_BLAS_F77_FUNC	(	dstevr	,
		DSTEVR
	)		const

GMX_LIBGMX_EXPORT void PLMD::lapack::PLUMED_BLAS_F77_FUNC	(	dsyevr	,
		DSYEVR
	)		const

void PLMD::lapack::PLUMED_BLAS_F77_FUNC	(	dsytrd	,
		DSYTRD
	)

void PLMD::lapack::PLUMED_BLAS_F77_FUNC	(	dsytd2	,
		DSYTD2
	)		const

void PLMD::lapack::PLUMED_BLAS_F77_FUNC	(	dtrti2	,
		DTRTI2
	)		const

void PLMD::lapack::PLUMED_BLAS_F77_FUNC	(	ilasrt2	,
		ILASRT2
	)		const

void PLMD::lapack::PLUMED_BLAS_F77_FUNC	(	sbdsdc	,
		SBDSDC
	)		const

void PLMD::lapack::PLUMED_BLAS_F77_FUNC	(	slascl	,
		SLASCL
	)

void PLMD::lapack::PLUMED_BLAS_F77_FUNC	(	sbdsqr	,
		SBDSQR
	)		const

void PLMD::lapack::PLUMED_BLAS_F77_FUNC	(	sgebd2	,
		SGEBD2
	)

void PLMD::lapack::PLUMED_BLAS_F77_FUNC	(	sgebrd	,
		SGEBRD
	)

void PLMD::lapack::PLUMED_BLAS_F77_FUNC	(	sgelq2	,
		SGELQ2
	)

void PLMD::lapack::PLUMED_BLAS_F77_FUNC	(	sgelqf	,
		SGELQF
	)

void PLMD::lapack::PLUMED_BLAS_F77_FUNC	(	sgeqr2	,
		SGEQR2
	)

void PLMD::lapack::PLUMED_BLAS_F77_FUNC	(	sgeqrf	,
		SGEQRF
	)

void PLMD::lapack::PLUMED_BLAS_F77_FUNC	(	sgesdd	,
		SGESDD
	)		const

void PLMD::lapack::PLUMED_BLAS_F77_FUNC	(	sgetf2	,
		SGETF2
	)

void PLMD::lapack::PLUMED_BLAS_F77_FUNC	(	sgetrf	,
		SGETRF
	)

void PLMD::lapack::PLUMED_BLAS_F77_FUNC	(	sgetri	,
		SGETRI
	)

void PLMD::lapack::PLUMED_BLAS_F77_FUNC	(	strtri	,
		STRTRI
	)

void PLMD::lapack::PLUMED_BLAS_F77_FUNC	(	sgetrs	,
		SGETRS
	)		const

PLMD::lapack::PLUMED_BLAS_F77_FUNC	(	strsm	,
		STRSM
	)

void PLMD::lapack::PLUMED_BLAS_F77_FUNC	(	slaswp	,
		SLASWP
	)

void PLMD::lapack::PLUMED_BLAS_F77_FUNC	(	slabrd	,
		SLABRD
	)

void PLMD::lapack::PLUMED_BLAS_F77_FUNC	(	slacpy	,
		SLACPY
	)		const

void PLMD::lapack::PLUMED_BLAS_F77_FUNC	(	slae2	,
		SLAE2
	)

void PLMD::lapack::PLUMED_BLAS_F77_FUNC	(	slaebz	,
		SLAEBZ
	)

void PLMD::lapack::PLUMED_BLAS_F77_FUNC	(	slaed6	,
		SLAED6
	)

void PLMD::lapack::PLUMED_BLAS_F77_FUNC	(	slaev2	,
		SLAEV2
	)

void PLMD::lapack::PLUMED_BLAS_F77_FUNC	(	slagtf	,
		SLAGTF
	)

void PLMD::lapack::PLUMED_BLAS_F77_FUNC	(	slagts	,
		SLAGTS
	)

void PLMD::lapack::PLUMED_BLAS_F77_FUNC	(	slamrg	,
		SLAMRG
	)

float PLMD::lapack::PLUMED_BLAS_F77_FUNC	(	slange	,
		SLANGE
	)		const

float PLMD::lapack::PLUMED_BLAS_F77_FUNC	(	slanst	,
		SLANST
	)		const

float PLMD::lapack::PLUMED_BLAS_F77_FUNC	(	slansy	,
		SLANSY
	)		const

void PLMD::lapack::PLUMED_BLAS_F77_FUNC	(	slassq	,
		SLASSQ
	)

float PLMD::lapack::PLUMED_BLAS_F77_FUNC	(	slapy2	,
		SLAPY2
	)

void PLMD::lapack::PLUMED_BLAS_F77_FUNC	(	slar1vx	,
		SLAR1VX
	)

void PLMD::lapack::PLUMED_BLAS_F77_FUNC	(	slarf	,
		SLARF
	)		const

void PLMD::lapack::PLUMED_BLAS_F77_FUNC	(	slarfb	,
		SLARFB
	)		const

void PLMD::lapack::PLUMED_BLAS_F77_FUNC	(	slarfg	,
		SLARFG
	)

PLMD::lapack::PLUMED_BLAS_F77_FUNC	(	sscal	,
		SSCAL
	)

void PLMD::lapack::PLUMED_BLAS_F77_FUNC	(	slarft	,
		SLARFT
	)		const

void PLMD::lapack::PLUMED_BLAS_F77_FUNC	(	slarnv	,
		SLARNV
	)

void PLMD::lapack::PLUMED_BLAS_F77_FUNC	(	slarrbx	,
		SLARRBX
	)

void PLMD::lapack::PLUMED_BLAS_F77_FUNC	(	slarrex	,
		SLARREX
	)		const

void PLMD::lapack::PLUMED_BLAS_F77_FUNC	(	slarrfx	,
		SLARRFX
	)

void PLMD::lapack::PLUMED_BLAS_F77_FUNC	(	slarrvx	,
		SLARRVX
	)

void PLMD::lapack::PLUMED_BLAS_F77_FUNC	(	slaset	,
		SLASET
	)		= rho

void PLMD::lapack::PLUMED_BLAS_F77_FUNC	(	slartg	,
		SLARTG
	)

void PLMD::lapack::PLUMED_BLAS_F77_FUNC	(	slaruv	,
		SLARUV
	)

void PLMD::lapack::PLUMED_BLAS_F77_FUNC	(	slas2	,
		SLAS2
	)

void PLMD::lapack::PLUMED_BLAS_F77_FUNC	(	slasd0	,
		SLASD0
	)

void PLMD::lapack::PLUMED_BLAS_F77_FUNC	(	slasdt	,
		SLASDT
	)

void PLMD::lapack::PLUMED_BLAS_F77_FUNC	(	slasd1	,
		SLASD1
	)

void PLMD::lapack::PLUMED_BLAS_F77_FUNC	(	slasd2	,
		SLASD2
	)

void PLMD::lapack::PLUMED_BLAS_F77_FUNC	(	slasd3	,
		SLASD3
	)

PLMD::lapack::PLUMED_BLAS_F77_FUNC	(	scopy	,
		SCOPY
	)

PLMD::lapack::PLUMED_BLAS_F77_FUNC	(	sgemm	,
		SGEMM
	)

void PLMD::lapack::PLUMED_BLAS_F77_FUNC	(	slasd4	,
		SLASD4
	)

void PLMD::lapack::PLUMED_BLAS_F77_FUNC	(	slasd5	,
		SLASD5
	)

void PLMD::lapack::PLUMED_BLAS_F77_FUNC	(	slasd6	,
		SLASD6
	)

void PLMD::lapack::PLUMED_BLAS_F77_FUNC	(	slasd7	,
		SLASD7
	)

void PLMD::lapack::PLUMED_BLAS_F77_FUNC	(	slasd8	,
		SLASD8
	)

void PLMD::lapack::PLUMED_BLAS_F77_FUNC	(	slasda	,
		SLASDA
	)

void PLMD::lapack::PLUMED_BLAS_F77_FUNC	(	slasdq	,
		SLASDQ
	)		const

void PLMD::lapack::PLUMED_BLAS_F77_FUNC	(	slasq1	,
		SLASQ1
	)

void PLMD::lapack::PLUMED_BLAS_F77_FUNC	(	slasq2	,
		SLASQ2
	)

void PLMD::lapack::PLUMED_BLAS_F77_FUNC	(	slasrt	,
		SLASRT
	)

void PLMD::lapack::PLUMED_BLAS_F77_FUNC	(	slasq3	,
		SLASQ3
	)

void PLMD::lapack::PLUMED_BLAS_F77_FUNC	(	slasq4	,
		SLASQ4
	)

void PLMD::lapack::PLUMED_BLAS_F77_FUNC	(	slasq5	,
		SLASQ5
	)

void PLMD::lapack::PLUMED_BLAS_F77_FUNC	(	slasq6	,
		SLASQ6
	)

void PLMD::lapack::PLUMED_BLAS_F77_FUNC	(	slasr	,
		SLASR
	)		const

void PLMD::lapack::PLUMED_BLAS_F77_FUNC	(	slasrt2	,
		SLASRT2
	)		const

void PLMD::lapack::PLUMED_BLAS_F77_FUNC	(	slasv2	,
		SLASV2
	)

void PLMD::lapack::PLUMED_BLAS_F77_FUNC	(	slatrd	,
		SLATRD
	)		const

void PLMD::lapack::PLUMED_BLAS_F77_FUNC	(	sorg2r	,
		SORG2R
	)

void PLMD::lapack::PLUMED_BLAS_F77_FUNC	(	sorgbr	,
		SORGBR
	)		const

void PLMD::lapack::PLUMED_BLAS_F77_FUNC	(	sorglq	,
		SORGLQ
	)

void PLMD::lapack::PLUMED_BLAS_F77_FUNC	(	sorgl2	,
		SORGL2
	)

void PLMD::lapack::PLUMED_BLAS_F77_FUNC	(	sorgqr	,
		SORGQR
	)

void PLMD::lapack::PLUMED_BLAS_F77_FUNC	(	sorm2l	,
		SORM2L
	)		const

void PLMD::lapack::PLUMED_BLAS_F77_FUNC	(	sorm2r	,
		SORM2R
	)		const

void PLMD::lapack::PLUMED_BLAS_F77_FUNC	(	sormbr	,
		SORMBR
	)		const

void PLMD::lapack::PLUMED_BLAS_F77_FUNC	(	sorml2	,
		SORML2
	)		const

void PLMD::lapack::PLUMED_BLAS_F77_FUNC	(	sormlq	,
		SORMLQ
	)		const

void PLMD::lapack::PLUMED_BLAS_F77_FUNC	(	sormql	,
		SORMQL
	)		const

void PLMD::lapack::PLUMED_BLAS_F77_FUNC	(	sormqr	,
		SORMQR
	)		const

void PLMD::lapack::PLUMED_BLAS_F77_FUNC	(	sormtr	,
		SORMTR
	)		const

void PLMD::lapack::PLUMED_BLAS_F77_FUNC	(	sstebz	,
		SSTEBZ
	)		const

void PLMD::lapack::PLUMED_BLAS_F77_FUNC	(	sstegr	,
		SSTEGR
	)		const

void PLMD::lapack::PLUMED_BLAS_F77_FUNC	(	sstein	,
		SSTEIN
	)

void PLMD::lapack::PLUMED_BLAS_F77_FUNC	(	ssteqr	,
		SSTEQR
	)		const

void PLMD::lapack::PLUMED_BLAS_F77_FUNC	(	ssterf	,
		SSTERF
	)

void PLMD::lapack::PLUMED_BLAS_F77_FUNC	(	sstevr	,
		SSTEVR
	)		const

GMX_LIBGMX_EXPORT void PLMD::lapack::PLUMED_BLAS_F77_FUNC	(	ssyevr	,
		SSYEVR
	)		const

void PLMD::lapack::PLUMED_BLAS_F77_FUNC	(	ssytrd	,
		SSYTRD
	)

void PLMD::lapack::PLUMED_BLAS_F77_FUNC	(	ssytd2	,
		SSYTD2
	)		const

void PLMD::lapack::PLUMED_BLAS_F77_FUNC	(	strti2	,
		STRTI2
	)		const

L70 PLMD::lapack::SLASQ5	(	i0	,
		n0	,
		&	z__[1],
		pp	,
		&	tau,
		dmin__	,
		&	dmin1,
		&	dmin2,
		&	dn,
		&	dn1,
		&	dn2,
		ieee
	)

L80 PLMD::lapack::SLASQ6	(	i0	,
		n0	,
		&	z__[1],
		pp	,
		dmin__	,
		&	dmin1,
		&	dmin2,
		&	dn,
		&	dn1,
		&	dn2
	)

L10 PLMD::lapack::SLASRT	(	"I"	,
		n	,
		&	d__[1],
		info
	)

return w * PLMD::lapack::sqrt ( 1.0+z * z )

PLMD::lapack::switch ( ch )

PLMD::lapack::while	(	n1sv	,
		0 &&	n2sv,
		0
	)

PLMD::lapack::while ( ! done )

Variable Documentation

L10 PLMD::lapack::__pad0__

L30 PLMD::lapack::__pad1__

L120 PLMD::lapack::__pad2__

L140 PLMD::lapack::__pad3__

L150 PLMD::lapack::__pad4__

L160 PLMD::lapack::__pad5__

L190 PLMD::lapack::__pad6__

L90 PLMD::lapack::__pad7__

void int float * PLMD::lapack::a = a_offset

float PLMD::lapack::a2

PLMD::lapack::a_dim1 = *lda

PLMD::lapack::a_offset = 1 + a_dim1

void int int int int int float float float float float float int float * PLMD::lapack::ab = fabs(tb)

PLMD::lapack::ab_dim1 = *mmax

PLMD::lapack::ab_offset = 1 + ab_dim1

float PLMD::lapack::absa

float PLMD::lapack::absak

float PLMD::lapack::abse

float PLMD::lapack::abss

float PLMD::lapack::abstll = *abstol

GMX_LIBGMX_EXPORT void const char const char int float int float float int int float * PLMD::lapack::abstol

Initial value:

{

atoli = ulp * tnorm

PLMD::lapack::ulp

double ulp

Definition: lapack.cpp:15804

PLMD::lapack::atoli

double atoli

Definition: lapack.cpp:15809

PLMD::lapack::tnorm

double tnorm

Definition: lapack.cpp:15813

float PLMD::lapack::absxi

float PLMD::lapack::acmn = *a

float PLMD::lapack::acmx

float PLMD::lapack::acs = fabs(cs)

float PLMD::lapack::adf = fabs(df)

float PLMD::lapack::aii

float PLMD::lapack::ajj

float PLMD::lapack::ak

int PLMD::lapack::alleig = (*range=='A' || *range=='a')

void float * PLMD::lapack::alpha = beta

& PLMD::lapack::anorm = PLUMED_BLAS_F77_FUNC(dlanst,DLANST)("I", &i__1, &d__[l], &e[l])

float PLMD::lapack::anrm = PLUMED_BLAS_F77_FUNC(dlange,DLANGE)("M", m, n, &a[a_offset], lda, dum)

int PLMD::lapack::applyq = (*vect=='Q' || *vect=='q')

float PLMD::lapack::as

float PLMD::lapack::at

float PLMD::lapack::atoli

float PLMD::lapack::au

void float float float * PLMD::lapack::b = b_offset

void int * PLMD::lapack::b1

Initial value:

{

work[inds] = 0.

PLMD::lapack::work

void const char int double double double int double int double int double * work

Definition: lapack.cpp:73

PLMD::lapack::inds

int inds

Definition: lapack.cpp:4825

float PLMD::lapack::b2

PLMD::lapack::b_dim1 = *ldb

PLMD::lapack::b_offset = 1 + b_dim1

float PLMD::lapack::base = 2

float PLMD::lapack::bb

int PLMD::lapack::bdspac

void int int int int float float float float float float float float float * PLMD::lapack::beta = t

float PLMD::lapack::bignum = 1. / smlnum

int PLMD::lapack::blksiz

void int int * PLMD::lapack::bn

float PLMD::lapack::bnorm

PLMD::lapack::break

void float float float float * PLMD::lapack::c

& PLMD::lapack::c_0 = 0

& PLMD::lapack::c_1 = 1

float PLMD::lapack::c__ = c_offset

& PLMD::lapack::c__0 = 0

int PLMD::lapack::c__1 = 1

int PLMD::lapack::c__2 = 2

int PLMD::lapack::c__3 = 3

int PLMD::lapack::c__65 = 65

float PLMD::lapack::c_b10 = 1.

float PLMD::lapack::c_b15 = -.125

float PLMD::lapack::c_b18 = 1.

float PLMD::lapack::c_b20 = -1.

float PLMD::lapack::c_b22 = 1.

float PLMD::lapack::c_b23 = 1.

float PLMD::lapack::c_b32 = 1.

float PLMD::lapack::c_b49 = 1.f

& PLMD::lapack::c_b5 = 0.

float PLMD::lapack::c_b72 = -1.f

int PLMD::lapack::c_dim1 = *ldc

int PLMD::lapack::c_n1 = -1

int PLMD::lapack::c_offset = 1 + c_dim1

void int int float * PLMD::lapack::cfrom

float PLMD::lapack::cfrom1

float PLMD::lapack::cfromc = *cfrom

const char PLMD::lapack::ch =toupper(*uplo)

float PLMD::lapack::clt

int PLMD::lapack::cnt

void int int int float float float float float int float int float float int float int int int int int int * PLMD::lapack::coltyp = idxc + n

void const char * PLMD::lapack::compq

Initial value:

{
    case 'n':
    case 'N':
      icompq = 0

else if PLMD::lapack::compz

Initial value:

{

icompz = 0

PLMD::lapack::icompz

int icompz

Definition: lapack.cpp:16874

float PLMD::lapack::cosl

float PLMD::lapack::cosr

int PLMD::lapack::count

float PLMD::lapack::crt

void float float * PLMD::lapack::cs = f1 / *r

void float float float float float * PLMD::lapack::cs1

void float float float float float float * PLMD::lapack::cs2

void float float float float float float float float * PLMD::lapack::csl

Initial value:

{

double d__1

PLMD::lapack::d__1

double d__1

Definition: lapack.cpp:3129

void float float float float float float * PLMD::lapack::csr = crt

int PLMD::lapack::ct

float PLMD::lapack::ctemp = ctot[2] + ctot[3]

void int int float float * PLMD::lapack::cto

float PLMD::lapack::cto1

float PLMD::lapack::ctoc = *cto

void int int int float float int float float int float int float int float int int int * PLMD::lapack::ctot

void float float float float float float * PLMD::lapack::d = fabs(d[*n-1])

float PLMD::lapack::d1

float PLMD::lapack::d2

float PLMD::lapack::d3

void int float * PLMD::lapack::d__ = 0.

float PLMD::lapack::d__1 = fabs(*alpha)

float PLMD::lapack::d__2 = fabs(*beta)

float PLMD::lapack::d__3 = fabs(d__[1]) + fabs(e[1])

float PLMD::lapack::d__4 = fabs(d__[*n]) + fabs(e[*n - 1])

float PLMD::lapack::d__5

float PLMD::lapack::dd = dtiim

float PLMD::lapack::ddf = 0.f

float PLMD::lapack::dee

float PLMD::lapack::deemin

PLMD::lapack::del = d__[2] - d__[1]

float PLMD::lapack::delsq = (d__[ip1] - d__[*i__]) * (d__[ip1] + d__[*i__])

float PLMD::lapack::delsq2 = delsq / 2.

void float float float * PLMD::lapack::delta = eps * 2.

void int float int float float float * PLMD::lapack::desig = t - *sigma

float PLMD::lapack::df = *a - *c__

void const char * PLMD::lapack::diag

void int float float float float float * PLMD::lapack::difl = d__[1]

PLMD::lapack::difl_dim1 = *ldu

PLMD::lapack::difl_offset = 1 + difl_dim1

float PLMD::lapack::diflj

void int float float float float float float * PLMD::lapack::difr = difr_offset

PLMD::lapack::difr_dim1 = *lddifr

PLMD::lapack::difr_offset = 1 + difr_dim1

float PLMD::lapack::difrj = dsigjp = 0

else if id PLMD::lapack::dir = -1

void const char const char * PLMD::lapack::direct

Initial value:

{

i__1 = *k

PLMD::lapack::k

int k

Definition: lapack.cpp:88

PLMD::lapack::i__1

void const char int double double double int double int double int double int int *info int i__1

Definition: lapack.cpp:73

float PLMD::lapack::dj

float PLMD::lapack::dmax1 = fabs(dplus[1])

float PLMD::lapack::dmax2 = fabs(work[1])

void int float int int float * PLMD::lapack::dmin

void int float int int float float * PLMD::lapack::dmin1 = 0.

void int float int int float float float * PLMD::lapack::dmin2 = 0.

if dn * PLMD::lapack::dmin__

float PLMD::lapack::dminus

float PLMD::lapack::dmnmx

void int float int int float float float float * PLMD::lapack::dn = 0.

void int float int int float float float float float * PLMD::lapack::dn1 = 0.

void int float int int float float float float float float * PLMD::lapack::dn2 = 0.

void int float int float float float float float float * PLMD::lapack::dnm1 = z__[j4p2 + 2] * (*dnm2 / z__[j4 - 2]) - *tau

void int float int float float float float float float float * PLMD::lapack::dnm2

Initial value:

{

return

int PLMD::lapack::done =0

float PLMD::lapack::dphi = temp * temp

void float float float float int int float float float * PLMD::lapack::dplus = d__[1] + s

float PLMD::lapack::dpsi = 0.

float PLMD::lapack::dscale

float PLMD::lapack::dsigj

float PLMD::lapack::dsigjp

void int int int int float float float float float float float float float float * PLMD::lapack::dsigma = d__[jprev]

float PLMD::lapack::dtemp

float PLMD::lapack::dtiim

float PLMD::lapack::dtiip = work[iip1] * delta[iip1]

float PLMD::lapack::dtipsq

float PLMD::lapack::dtisq

float PLMD::lapack::dtnsq = work[*n] * delta[*n]

float PLMD::lapack::dtnsq1 = work[*n - 1] * delta[*n - 1]

float PLMD::lapack::dtpcrt

void int float int * PLMD::lapack::dtrd1

void int float int int * PLMD::lapack::dtrd2

float PLMD::lapack::dum

float PLMD::lapack::dw = dpsi + dphi + temp * temp

void int float int float float * PLMD::lapack::e

Initial value:

{

const char ch=toupper(*norm)

PLMD::lapack::ch

const char ch

Definition: lapack.cpp:2950

PLMD::lapack::norm

else if norm

Definition: lapack.cpp:4594

void int int int int int float float float float float float * PLMD::lapack::e2

PLMD::lapack::else

Initial value:

{

r__1 = fabs(tol) * smax, r__2 = *n * 6 * *n * unfl

PLMD::lapack::r__1

double r__1

Definition: lapack.cpp:404

PLMD::lapack::tol

double tol

Definition: lapack.cpp:417

PLMD::lapack::r__2

double r__2

Definition: lapack.cpp:404

PLMD::lapack::n

void const char int * n

Definition: lapack.cpp:73

PLMD::lapack::unfl

double unfl

Definition: lapack.cpp:423

PLMD::lapack::smax

double smax

Definition: lapack.cpp:423

float PLMD::lapack::emax

float PLMD::lapack::emin = z__[2]

int PLMD::lapack::endd = stack[(stkpnt << 1) - 1]

float PLMD::lapack::eps = PLUMED_GMX_DOUBLE_EPS

float PLMD::lapack::eps1

float PLMD::lapack::eps2 = d__1 * d__1

float PLMD::lapack::erretm = 0.

float PLMD::lapack::error

& PLMD::lapack::eta = tau / (d__[*n] + sqrt(d__[*n] * d__[*n] + tau))

void int int float float float float float float * PLMD::lapack::eval

float PLMD::lapack::f = *finit + *tau * fc

float PLMD::lapack::f1

float PLMD::lapack::f1a = fabs(f1)

float PLMD::lapack::fa = fabs(ft)

float PLMD::lapack::fac

float PLMD::lapack::fc

float PLMD::lapack::fhmax = (fa>ha) ? fa : ha

float PLMD::lapack::fhmin = (fa<ha) ? fa : ha

void int float float float float * PLMD::lapack::finit

float PLMD::lapack::fone = 1.0

int PLMD::lapack::from

float PLMD::lapack::ft = *f

float PLMD::lapack::ftmp

float PLMD::lapack::fzero = 0.0

void float * PLMD::lapack::g = (d__[l - 1] - p) / (e[l - 1] * 2.)

float PLMD::lapack::g1 = *g

float PLMD::lapack::g1a = fabs(g1)

float PLMD::lapack::ga = fabs(*g)

float PLMD::lapack::gam

float PLMD::lapack::gamma = d__[m] - sigma

float PLMD::lapack::gap

float PLMD::lapack::gap1

float PLMD::lapack::gap2

int PLMD::lapack::gasmal

void float float int int float int int float * PLMD::lapack::gersch

void int int int int float float float float float float float float float float int int int int int int * PLMD::lapack::givcol = givcol_offset

PLMD::lapack::givcol_dim1 = *ldgcol

PLMD::lapack::givcol_offset = 1 + givcol_dim1

void int int int int float float float float float float float float float float int int int int int int int float * PLMD::lapack::givnum = givnum_offset

PLMD::lapack::givnum_dim1 = *ldgnum

PLMD::lapack::givnum_offset = 1 + givnum_dim1

void int int int int float float float float float float float float float float int int int int int * PLMD::lapack::givptr

float PLMD::lapack::gl

int PLMD::lapack::gpind

float PLMD::lapack::gt = *g

float PLMD::lapack::gu

void float float * PLMD::lapack::h

void float float * PLMD::lapack::h__

float PLMD::lapack::ha = fabs(*h)

float PLMD::lapack::hlftol = tol / 2.

float PLMD::lapack::ht = *h__

void int * PLMD::lapack::i = 0

int PLMD::lapack::i0 = 1

int PLMD::lapack::i1 = 1

int PLMD::lapack::i2 = *ifirst

int PLMD::lapack::i3 = iseed[3]

int PLMD::lapack::i4 = iseed[4]

int PLMD::lapack::i_

& PLMD::lapack::i_1 = minmn - nx

PLMD::lapack::i_2 = nb

int PLMD::lapack::i__ = i1

& PLMD::lapack::i__1 = *n

int PLMD::lapack::i__2 = i3

int PLMD::lapack::i__3

PLMD::lapack::i__4 = (*m > 1) ? *m : 1

int PLMD::lapack::ib

int PLMD::lapack::ibegin = 1

void float float int float int * PLMD::lapack::iblock = 1

int PLMD::lapack::ic = jc = 0

if PLMD::lapack::icompq

Initial value:

{

PLUMED_BLAS_F77_FUNC(dcopy,DCOPY)(k, &d__[1], &c__1, &poles[poles_dim1 + 1], &c__1)

PLMD::lapack::PLUMED_BLAS_F77_FUNC

void PLUMED_BLAS_F77_FUNC(strti2, STRTI2)(const char *uplo

PLMD::lapack::poles

int poles

Definition: lapack.cpp:97

PLMD::lapack::k

int k

Definition: lapack.cpp:88

PLMD::lapack::d__

void const char int double * d__

Definition: lapack.cpp:73

PLMD::lapack::poles_dim1

poles_dim1

Definition: lapack.cpp:9751

PLMD::lapack::c__1

int c__1

Definition: lapack.cpp:407

int PLMD::lapack::icompz

int PLMD::lapack::idir = 0

int PLMD::lapack::idiscl

int PLMD::lapack::idiscu

int PLMD::lapack::idum

int PLMD::lapack::idumma

void int int int int float float float float float float float float float float int * PLMD::lapack::idx = 1

void int int int float float int float float int float int float int float int int * PLMD::lapack::idxc = idx + n

int PLMD::lapack::idxi

int PLMD::lapack::idxj

int PLMD::lapack::idxjp

void int int int int float float float float float float float float float float int int * PLMD::lapack::idxp = coltyp + n

void int int int int float float float float float float float float float float int int int * PLMD::lapack::idxq = ndimr + *n

int PLMD::lapack::idxqc

int PLMD::lapack::idxqi

int PLMD::lapack::ie

void int float int float float float float float float float int * PLMD::lapack::ieee = 1

int PLMD::lapack::ieeeok = 1

int PLMD::lapack::iend = 0

int PLMD::lapack::ierr

void float float int float int int float int float int int * PLMD::lapack::ifail

void float float float float int * PLMD::lapack::ifirst

int PLMD::lapack::ii

int PLMD::lapack::iim1 = ii - 1

int PLMD::lapack::iindbl = *n + 1

int PLMD::lapack::iindc1 = *n << 1

int PLMD::lapack::iindc2 = *n * 3

int PLMD::lapack::iindr = *n

int PLMD::lapack::iindw = (*n << 1) + 1

int PLMD::lapack::iindwk = (*n << 2) + 1

& PLMD::lapack::iinfo

int PLMD::lapack::iinspl = 1

int PLMD::lapack::iip1 = ii + 1

if PLMD::lapack::ijob

Initial value:

{

*info = -1

PLMD::lapack::info

* info

Definition: lapack.cpp:124

GMX_LIBGMX_EXPORT void const char const char int float int float float int * PLMD::lapack::il = -1

int PLMD::lapack::il2

void float float float float int int * PLMD::lapack::ilast

int PLMD::lapack::im

int PLMD::lapack::im1

int PLMD::lapack::imax

void float float float float float float int * PLMD::lapack::in = 0

PLMD::lapack::inc = 1

void int int float int * PLMD::lapack::incv

void float float int * PLMD::lapack::incx

Initial value:

{

int ix0,i1,i2,inc,n32

PLMD::lapack::i1

int i1

Definition: lapack.cpp:1507

PLMD::lapack::inc

inc

Definition: lapack.cpp:13599

PLMD::lapack::i2

int i2

Definition: lapack.cpp:1507

PLMD::lapack::n32

n32

Definition: lapack.cpp:13608

else PLMD::lapack::ind1 = 0

else PLMD::lapack::ind2 = *n1

int PLMD::lapack::indd = inde + *n

int PLMD::lapack::inddd = indee + *n

int PLMD::lapack::inde = indtau + *n

int PLMD::lapack::indee = indd + *n

int PLMD::lapack::indeig = (*range=='I' || *range=='i')

int PLMD::lapack::inderr = *n

void int float int int int * PLMD::lapack::index

Initial value:

{

int n1sv = *n1

PLMD::lapack::n1

int n1

Definition: lapack.cpp:8079

void float float int int float int int * PLMD::lapack::indexw

int PLMD::lapack::indgap = *n << 2

int PLMD::lapack::indgrs = 1

int PLMD::lapack::indibl = 0

int PLMD::lapack::indifl = inddd + *n

int PLMD::lapack::indld = *n << 1

int PLMD::lapack::indlld = *n * 3

int PLMD::lapack::indp = *n * 3 + 1

int PLMD::lapack::indrv1 = 0

int PLMD::lapack::indrv2 = indrv1 + *n

int PLMD::lapack::indrv3 = indrv2 + *n

int PLMD::lapack::indrv4 = indrv3 + *n

int PLMD::lapack::indrv5 = indrv4 + *n

int PLMD::lapack::inds = (*n << 1) + 1

int PLMD::lapack::indtau = 1

int PLMD::lapack::indumn

int PLMD::lapack::indwk = indifl + *n

int PLMD::lapack::indwkn

int PLMD::lapack::indwrk = *n * 5 + 1

void int float int float float int int * PLMD::lapack::info = 0

void int int int * PLMD::lapack::inode = 1

int PLMD::lapack::ioff

int PLMD::lapack::iorder

int PLMD::lapack::iout

int PLMD::lapack::ip

int PLMD::lapack::ip1 = *i__ + 1

void float int int int int * PLMD::lapack::ipiv

int PLMD::lapack::ipn4

void const char int float float float int float int float int * PLMD::lapack::iq = ivt2 + ldvt2 * m

int PLMD::lapack::ir = 0

int PLMD::lapack::irange = 0

int PLMD::lapack::is

int PLMD::lapack::iscale = 0

int PLMD::lapack::iscl = 0

void int * PLMD::lapack::iseed = it1

int PLMD::lapack::isigma = iz + m

void float float int float int int * PLMD::lapack::isplit = *n

int PLMD::lapack::isub

GMX_LIBGMX_EXPORT void const char const char int float int float float int int float int float float int int * PLMD::lapack::isuppz = *b1

int PLMD::lapack::it1 = it2 = it3 = it4 = 0

int PLMD::lapack::it2

int PLMD::lapack::it3

int PLMD::lapack::it4

int PLMD::lapack::itau

int PLMD::lapack::itaup

int PLMD::lapack::itauq

int PLMD::lapack::itemp

void int float int float float float float int int * PLMD::lapack::iter = 0

int PLMD::lapack::itmax

int PLMD::lapack::itmp

int PLMD::lapack::itmp1 = (*n > 1) ? *n : 1

int PLMD::lapack::itmp2 = (*nru > 1) ? *nru : 1

int PLMD::lapack::its

GMX_LIBGMX_EXPORT void const char const char int float int float float int int * PLMD::lapack::iu

int PLMD::lapack::iu2 = isigma + n

int PLMD::lapack::iuplo = (*uplo=='U' || *uplo=='u') ? 1 : 2

int PLMD::lapack::iv

int PLMD::lapack::ivfw = iw + m

int PLMD::lapack::ivlw = ivfw + m

int PLMD::lapack::ivt

int PLMD::lapack::ivt2 = iu2 + ldu2 * n

int PLMD::lapack::iw = isigma + n

int PLMD::lapack::iwhila

int PLMD::lapack::iwhilb

int PLMD::lapack::iwk = idxq + *n

int PLMD::lapack::iwk1 = 1

int PLMD::lapack::iwk2 = iwk1 + *k

int PLMD::lapack::iwk2i = iwk2 - 1

int PLMD::lapack::iwk3 = iwk2 + *k

int PLMD::lapack::iwk3i = iwk3 - 1

int PLMD::lapack::iwoff

void int int float int float float int float int float int int * PLMD::lapack::iwork = liwmin

int PLMD::lapack::iws = *m

int PLMD::lapack::ix

int PLMD::lapack::iz = 1

int PLMD::lapack::j = (1 << nlvl)

int PLMD::lapack::j1 = 1

int PLMD::lapack::j4 = (*i0 << 2) + *pp - 3

int PLMD::lapack::j4p2 = j4 + (*pp << 1) - 1

int PLMD::lapack::jb

int PLMD::lapack::jblk

int PLMD::lapack::jc

int PLMD::lapack::jdisc

int PLMD::lapack::je

int PLMD::lapack::ji

int PLMD::lapack::jit

int PLMD::lapack::jj

int PLMD::lapack::jmax

if PLMD::lapack::job

int PLMD::lapack::jp

int PLMD::lapack::jprev = 0

int PLMD::lapack::jtot = 0

void int int int int * PLMD::lapack::k = iu = z__ = ic = is = ivt = difl = difr = perm = 0

void float int int * PLMD::lapack::k1

void float int int int * PLMD::lapack::k2 = n + 1

int PLMD::lapack::k3

int PLMD::lapack::k4

void int float int * PLMD::lapack::key

int PLMD::lapack::kf = 1

int PLMD::lapack::kfnew

int PLMD::lapack::ki = 0

int PLMD::lapack::kk

void int * PLMD::lapack::kl = *minp

int PLMD::lapack::klnew

int PLMD::lapack::kmin

if PLMD::lapack::kniter

Initial value:

{
        if (*orgati) {
            temp = (d__[3] - d__[2]) / 2.f;
            c__ = *rho + z__[1] / (d__[1] - d__[2] - temp);
            a = c__ * (d__[2] + d__[3]) + z__[2] + z__[3];
            b = c__ * d__[2] * d__[3] + z__[2] * d__[3] + z__[3] * d__[2];
        } else {
            temp = (d__[1] - d__[2]) / 2.f;
            c__ = *rho + z__[3] / (d__[3] - d__[2] - temp);
            a = c__ * (d__[1] + d__[2]) + z__[1] + z__[2];
            b = c__ * d__[1] * d__[2] + z__[1] * d__[2] + z__[2] * d__[1];
        }
        r__1 = fabs(a), r__2 = fabs(b), r__1 = ((r__1>r__2)? r__1:r__2), r__2 = fabs(c__)

int PLMD::lapack::knt

& PLMD::lapack::ktemp = ctot[1] + 2

int PLMD::lapack::ktot

void int int * PLMD::lapack::ku

void float float * PLMD::lapack::l

int PLMD::lapack::l1 = 1

goto PLMD::lapack::L10

goto PLMD::lapack::L100

goto PLMD::lapack::L140

goto PLMD::lapack::L150

goto PLMD::lapack::L190

goto PLMD::lapack::L220

goto PLMD::lapack::L240

goto PLMD::lapack::L30

goto PLMD::lapack::L40

goto PLMD::lapack::L70

goto PLMD::lapack::L90

void float float * PLMD::lapack::lambda

void int int float float float float * PLMD::lapack::ld

void int float int * PLMD::lapack::lda

Initial value:

{

*info = -4

PLMD::lapack::info

* info

Definition: lapack.cpp:124

void int int float int float int * PLMD::lapack::ldb

Initial value:

{

int i,j,minjm

PLMD::lapack::i

case i

Definition: lapack.cpp:139

PLMD::lapack::j

int j

Definition: lapack.cpp:88

void const char int int int float int float float int * PLMD::lapack::ldc

void int float float float float float float int * PLMD::lapack::lddifr

void int int int int float float float float float float float float float float int int int int int int int * PLMD::lapack::ldgcol

void int int int int float float float float float float float float float float int int int int int int int float int * PLMD::lapack::ldgnum

void int int int float float int * PLMD::lapack::ldq = k

void const char int int float int float float int * PLMD::lapack::ldt

Initial value:

{
    
    int t_dim1, t_offset, v_dim1, v_offset, i__1, i__2, i__3

void int int float int float float int * PLMD::lapack::ldu

Initial value:

{

*info = -11

PLMD::lapack::info

* info

Definition: lapack.cpp:124

void int int int float float int float float int float int * PLMD::lapack::ldu2 = n

void const char int int float int * PLMD::lapack::ldv

void int int float int float float int float int * PLMD::lapack::ldvt

Initial value:

{

*info = -8

PLMD::lapack::info

* info

Definition: lapack.cpp:124

void int int int float float int float float int float int float int float int * PLMD::lapack::ldvt2 = m

void int int float int float float float int * PLMD::lapack::ldw

Initial value:

{

int i,iw

PLMD::lapack::iw

int iw

Definition: lapack.cpp:9735

PLMD::lapack::i

case i

Definition: lapack.cpp:139

int PLMD::lapack::ldwkvt

void const char const char const char int int int float int float int float int float int * PLMD::lapack::ldwork = *n

int PLMD::lapack::ldwrku

int PLMD::lapack::ldwrkx = *m

int PLMD::lapack::ldwrky = *n

void int int float int float float float float float int * PLMD::lapack::ldx

void int int float int float float float float float int float int * PLMD::lapack::ldy

Initial value:

{

int a_dim1, a_offset, x_dim1, x_offset, y_dim1, y_offset

PLMD::lapack::x_offset

x_offset

Definition: lapack.cpp:2686

PLMD::lapack::y_offset

y_offset

Definition: lapack.cpp:2689

PLMD::lapack::y_dim1

y_dim1

Definition: lapack.cpp:2688

PLMD::lapack::x_dim1

x_dim1

Definition: lapack.cpp:2685

PLMD::lapack::a_dim1

a_dim1

Definition: lapack.cpp:1127

PLMD::lapack::a_offset

a_offset

Definition: lapack.cpp:1128

GMX_LIBGMX_EXPORT void const char const char int float int float float int int float int float float int * PLMD::lapack::ldz

int PLMD::lapack::left = (*side=='L' || *side=='l')

int PLMD::lapack::lend = m

int PLMD::lapack::lendm1

int PLMD::lapack::lendp1

int PLMD::lapack::lendsv = lend

int PLMD::lapack::lf

else PLMD::lapack::liwmin = *n * 10

GMX_LIBGMX_EXPORT void const char const char int float int float float int int float int float float int int float int int int * PLMD::lapack::liwork

Initial value:

{

*info = -19

PLMD::lapack::info

* info

Definition: lapack.cpp:124

int PLMD::lapack::ll = 0

void int int float float float float float * PLMD::lapack::lld

int PLMD::lapack::lll

int PLMD::lapack::llst = 1

& PLMD::lapack::llwork = *lwork - indwk + 1

int PLMD::lapack::llwrkn

int PLMD::lapack::lm1 = l - 1

int PLMD::lapack::lower = (xuplo == 'L')

PLMD::lapack::Lower

void float float float float int int float float float float * PLMD::lapack::lplus

int PLMD::lapack::lquery = *lwork == -1

int PLMD::lapack::lsv = l

void int * PLMD::lapack::lvl = 1 + (int) temp

int PLMD::lapack::lvl2

int PLMD::lapack::lwkopt = *m * nb

else PLMD::lapack::lwmin = *n * 17

void int float int float float int * PLMD::lapack::lwork

Initial value:

{

work[1] = (double) ( (*m + *n) * nb)

PLMD::lapack::nb

int nb

Definition: lapack.cpp:1120

PLMD::lapack::work

void const char int double double double int double int double int double * work

Definition: lapack.cpp:73

PLMD::lapack::n

void const char int * n

Definition: lapack.cpp:73

PLMD::lapack::m

int m

Definition: lapack.cpp:412

void const char int * PLMD::lapack::m = *n

float PLMD::lapack::max

int PLMD::lapack::maxcnt = 0

int PLMD::lapack::maxit = *n * 6 * *n

int PLMD::lapack::maxwrk = 1

float PLMD::lapack::mgstol = eps * 100.

& PLMD::lapack::mi

float PLMD::lapack::mid

PLMD::lapack::mindim = (*m < *n) ? *m : *n

void int int float float float float float float float float float float * PLMD::lapack::mingma = work[inds + r1 - 1] + work[indp + r1 - 1]

int PLMD::lapack::minmn = (*m < *n) ? *m : *n

void int int int int * PLMD::lapack::minp

float PLMD::lapack::minrgp =0.0

float PLMD::lapack::minusone = -1.0

float PLMD::lapack::minustau = -(*tau)

float PLMD::lapack::minval = PLUMED_GMX_DOUBLE_MIN

int PLMD::lapack::minwrk = 1

int PLMD::lapack::mlvl

Initial value:

= (int) (log((double) (*n) / (double) (smlsiz + 1)) /

log(2.)) + 1

PLMD::lapack::smlsiz

int smlsiz

Definition: lapack.cpp:101

PLMD::lapack::n

void const char int * n

Definition: lapack.cpp:73

int PLMD::lapack::mm

int PLMD::lapack::mm1

void int int int * PLMD::lapack::mmax

int PLMD::lapack::mn = (*m < *n) ? *m : *n

int PLMD::lapack::mnthr = (int) (minmn * 11. / 6.)

void int int int int int float float float float float float int float float int * PLMD::lapack::mout = kl

void int int int int int int * PLMD::lapack::msub

Initial value:

{

int maxn = (*n > 1) ? *n : 1

PLMD::lapack::n

void const char int * n

Definition: lapack.cpp:73

float PLMD::lapack::mu

float PLMD::lapack::mul

float PLMD::lapack::mult

void int * PLMD::lapack::n

Initial value:

{
        if (icompq == 1) {
          q[1] = (d__[1]>0) ? 1.0 : -1.0;
          q[smlsiz * *n + 1] = 1.;
        } else if (icompq == 2) {
          u[u_dim1 + 1] = (d__[1]>0) ? 1.0 : -1.0;
          vt[vt_dim1 + 1] = 1.;
        }
        d__[1] = fabs(d__[1])

PLMD::lapack::N

void int * PLMD::lapack::n0 = *n

void int float int int * PLMD::lapack::n0in = *n0

int PLMD::lapack::n1 = k

void int * PLMD::lapack::n2 = n - k

int PLMD::lapack::n2sv = *n2

PLMD::lapack::n32 = *n / 32

void int int int int int float float float float float float int float float int int * PLMD::lapack::nab = nab_offset

PLMD::lapack::nab_dim1 = *mmax

PLMD::lapack::nab_offset = 1 + nab_dim1

void int int * PLMD::lapack::nb = DGEBRD_BLOCKSIZE

int PLMD::lapack::nbig

int PLMD::lapack::nblk

void int int int int int * PLMD::lapack::nbmin = 2

void int int int int int * PLMD::lapack::ncc

Initial value:

{

*info = -5

PLMD::lapack::info

* info

Definition: lapack.cpp:124

int PLMD::lapack::nclus

int PLMD::lapack::ncnvrg = 0

int PLMD::lapack::ncrnt

void int int int * PLMD::lapack::ncvt

Initial value:

{

*info = -3

PLMD::lapack::info

* info

Definition: lapack.cpp:124

void int int * PLMD::lapack::nd = llst*2 - 1

int PLMD::lapack::ndb1 = (nd + 1) / 2

int PLMD::lapack::ndepth

void int int int int * PLMD::lapack::ndiml = inode + *n

void int int int int int * PLMD::lapack::ndimr = ndiml + *n

void int float int float float float float int int int * PLMD::lapack::ndiv = 2*(n0 - i0)

int PLMD::lapack::ndone

float PLMD::lapack::neginf = -one/zero

float PLMD::lapack::negzro = one/(neginf+one)

int PLMD::lapack::newcls

int PLMD::lapack::newfrs

int PLMD::lapack::newftt

int PLMD::lapack::newlst

int PLMD::lapack::newsiz

float PLMD::lapack::newzro = negzro + zero

int PLMD::lapack::next

void int float int float float float float int * PLMD::lapack::nfail = 0

& PLMD::lapack::ni = *n - 1

int PLMD::lapack::nint = 0

int PLMD::lapack::niter = 1

void int * PLMD::lapack::nitmax

void int * PLMD::lapack::nl

Initial value:

{

*info = -1

PLMD::lapack::info

* info

Definition: lapack.cpp:124

int PLMD::lapack::nleft

int PLMD::lapack::nlf

int PLMD::lapack::nlp1 = *nl + 1

int PLMD::lapack::nlp2 = *nl + 2

int PLMD::lapack::nlvl

int PLMD::lapack::nm1 = *n - 1

int PLMD::lapack::nm12 = nm1 + nm1

int PLMD::lapack::nm13 = nm12 + nm1

int PLMD::lapack::nmaxit = *n * 30

int PLMD::lapack::nn = (*n0 << 2) + *pp

int PLMD::lapack::nomgs

else if PLMD::lapack::norm

Initial value:

{
        value = 0.

int PLMD::lapack::notran = (*trans=='N' || *trans=='n')

int PLMD::lapack::nounit = (*diag=='N' || *diag=='n')

int PLMD::lapack::np

int PLMD::lapack::np1 = *n + 1

int PLMD::lapack::nq

void int int * PLMD::lapack::nr

Initial value:

{

*info = -2

PLMD::lapack::info

* info

Definition: lapack.cpp:124

int PLMD::lapack::nrf

void int int * PLMD::lapack::nrhs

int PLMD::lapack::nright

float PLMD::lapack::nrm

int PLMD::lapack::nrmchk

float PLMD::lapack::nrminv

int PLMD::lapack::nrp1 = *nr + *sqre

void int int int int * PLMD::lapack::nru

Initial value:

{

*info = -4

PLMD::lapack::info

* info

Definition: lapack.cpp:124

int PLMD::lapack::nsize

void const char int float float int int float float float int int * PLMD::lapack::nsplit = 1

void int int int int int float float float float float float int * PLMD::lapack::nval

int PLMD::lapack::nw = *m

int PLMD::lapack::nwl = 0

int PLMD::lapack::nwork

int PLMD::lapack::nwork1 = vl + m

int PLMD::lapack::nwork2 = nwork1 + smlszp * smlszp

int PLMD::lapack::nwu = 0

int PLMD::lapack::nx = 0

float PLMD::lapack::offd

void float float float float int int float float int * PLMD::lapack::offset

float PLMD::lapack::oldc

int PLMD::lapack::oldcls

float PLMD::lapack::oldcs

float PLMD::lapack::oldemn

int PLMD::lapack::oldfst

float PLMD::lapack::oldgam

int PLMD::lapack::oldien

int PLMD::lapack::oldll = -1

int PLMD::lapack::oldlst

int PLMD::lapack::oldm = -1

int PLMD::lapack::oldncl

float PLMD::lapack::oldsn

int PLMD::lapack::olnint = nint

float PLMD::lapack::one = 1.0

float PLMD::lapack::onenrm

void const char * PLMD::lapack::order

Initial value:

{

iorder = 2

PLMD::lapack::iorder

int iorder

Definition: lapack.cpp:15817

void int * PLMD::lapack::orgati

Initial value:

{
        r__3 = (r__1 = d__[2] - *tau, fabs(r__1)), r__4 = (r__2 = d__[3] - *
                tau, fabs(r__2))

& PLMD::lapack::orgnrm = PLUMED_BLAS_F77_FUNC(dlanst,DLANST)("M", n, &d__[1], &e[1])

float PLMD::lapack::ortol

float PLMD::lapack::p = d__[l]

float * PLMD::lapack::p1 = &t1

float * PLMD::lapack::p2 = &t2

int PLMD::lapack::parity

void int int int int float float float float float float float float float float int int int int * PLMD::lapack::perm = perm_offset

PLMD::lapack::perm_dim1 = *ldgcol

PLMD::lapack::perm_offset = 1 + perm_dim1

float PLMD::lapack::pert

float PLMD::lapack::pertol

float PLMD::lapack::phi = z__[*n] * temp

float PLMD::lapack::piv1

float PLMD::lapack::piv2

void int int int int int float float float * PLMD::lapack::pivmin = 1.

void const char * PLMD::lapack::pivot

int PLMD::lapack::pmax = 1

void int int int float float float float float int int int int int float int float * PLMD::lapack::poles = givnum = givptr = givcol = 0

PLMD::lapack::poles_dim1 = *ldgnum

PLMD::lapack::poles_offset = 1 + poles_dim1

float PLMD::lapack::posinf = one/zero

void int float int * PLMD::lapack::pp = 0

int PLMD::lapack::prev = 0

float PLMD::lapack::prew = w

float PLMD::lapack::psi = 0.

int PLMD::lapack::psm

void int int int float float * PLMD::lapack::q = q_offset

PLMD::lapack::q_dim1 = *ldq

PLMD::lapack::q_offset = 1 + q_dim1

void int float int float float float float * PLMD::lapack::qmax = 0.

float PLMD::lapack::qmin

int PLMD::lapack::qstart = 3

void float float float float * PLMD::lapack::r

Initial value:

{

double minval,safemin, safemin2, safemx2, eps

PLMD::lapack::safemx2

safemx2

Definition: lapack.cpp:7352

PLMD::lapack::safemin2

safemin2

Definition: lapack.cpp:7350

PLMD::lapack::safemin

double safemin

Definition: lapack.cpp:1743

PLMD::lapack::minval

double minval

Definition: lapack.cpp:1743

PLMD::lapack::eps

double eps

Definition: lapack.cpp:95

int PLMD::lapack::r1

int PLMD::lapack::r2 = *bn

float PLMD::lapack::r__

Initial value:

{
        r1 = *b1

float PLMD::lapack::r__1 = 10.f

float PLMD::lapack::r__2 = (r__3<r__4) ? r__3 : r__4

float PLMD::lapack::r__3 = 100.f

float PLMD::lapack::r__4 = pow(PLUMED_GMX_DOUBLE_EPS,c_b15)

GMX_LIBGMX_EXPORT void const char * PLMD::lapack::range

Initial value:

{

irange = 1

PLMD::lapack::irange

int irange

Definition: lapack.cpp:6408

float PLMD::lapack::relgap

void int int int int int float float * PLMD::lapack::reltol

float PLMD::lapack::resid

return PLMD::lapack::ret_val = value

else PLMD::lapack::return

void int float * PLMD::lapack::rho = PLUMED_BLAS_F77_FUNC(dnrm2,DNRM2)(k, &z__[1], &c__1)

float PLMD::lapack::rhoinv = 1. / *rho

float PLMD::lapack::right = 0.0

float PLMD::lapack::rmax = (d__1<d__2) ? d__1 : d__2

float PLMD::lapack::rmin = sqrt(smlnum)

int PLMD::lapack::rotate = *ncvt > 0 || *nru > 0 || *ncc > 0

float PLMD::lapack::rqcorr

float PLMD::lapack::rsafmn

float PLMD::lapack::rt

void float float float * PLMD::lapack::rt1

void float float float float * PLMD::lapack::rt2

Initial value:

{

double d__1

PLMD::lapack::d__1

double d__1

Definition: lapack.cpp:3129

float PLMD::lapack::rte = sqrt(e[l - 1])

float PLMD::lapack::rtol

void float float float float int int float * PLMD::lapack::rtol1

void float float float float int int float float * PLMD::lapack::rtol2

float PLMD::lapack::rtoli = ulp * 2.

void int int int int float float float float float float float float float float int int int int int int int float int float float * PLMD::lapack::s = work[inds] - *sigma

const float PLMD::lapack::safemin = minval / eps

PLMD::lapack::safemin2 = pow(2,n)

const float PLMD::lapack::safemn = PLUMED_GMX_DOUBLE_MIN*(1.0+PLUMED_GMX_DOUBLE_EPS)

PLMD::lapack::safemx2 = 1.0 / safemin2

float PLMD::lapack::safmax = 1. / safmin

float PLMD::lapack::safmin = minval*(1.0+PLUMED_GMX_DOUBLE_EPS) / PLUMED_GMX_DOUBLE_EPS

int PLMD::lapack::sawnan = 0

void float int float * PLMD::lapack::scale = 0

float PLMD::lapack::scale1 = fabs(a[1]) + fabs(b[1])

float PLMD::lapack::scale2

float PLMD::lapack::scl

float PLMD::lapack::sclfac

float PLMD::lapack::sclinv = 0

float PLMD::lapack::sep

float PLMD::lapack::sfmin = minval / eps

float PLMD::lapack::sg2lb = -delsq2

float PLMD::lapack::sg2ub = 0.

int PLMD::lapack::sgn1 = 1

int PLMD::lapack::sgn2 = -1

float PLMD::lapack::sgndef = 0

float PLMD::lapack::shift

void const char * PLMD::lapack::side

void int float int float float * PLMD::lapack::sigma = 0

float PLMD::lapack::sigmn

& PLMD::lapack::sigmx

float PLMD::lapack::sinl

float PLMD::lapack::sinr

float PLMD::lapack::sll

float PLMD::lapack::slt

float PLMD::lapack::sm = *a + *c__

float PLMD::lapack::small1 = pow(base, i__1)

float PLMD::lapack::small2 = small1 * small1

float PLMD::lapack::smax = 0.f

float PLMD::lapack::smin = smax

float PLMD::lapack::sminl = 0.f

float PLMD::lapack::sminlo

float PLMD::lapack::sminoa

float PLMD::lapack::sminv1 = 1.f / small1

float PLMD::lapack::sminv2 = sminv1 * sminv1

float PLMD::lapack::smlnum = sqrt(safemin) / eps

void int * PLMD::lapack::smlsiz = DBDSDC_SMALLSIZE

int PLMD::lapack::smlszp = smlsiz + 1

void float float float * PLMD::lapack::sn = g1 / *r

void float float float float float float * PLMD::lapack::sn1

Initial value:

{

double d__1

PLMD::lapack::d__1

double d__1

Definition: lapack.cpp:3129

void float float float float float float float * PLMD::lapack::snl = slt

void float float float float float * PLMD::lapack::snr = srt

int PLMD::lapack::splt

void int int int * PLMD::lapack::sqre = 0

int PLMD::lapack::sqre1 = *sqre

int PLMD::lapack::sqrei

float PLMD::lapack::srt

& PLMD::lapack::ssfmax = sqrt(safmax) / 3.

float PLMD::lapack::ssfmin = sqrt(safmin) / eps2

void float float float float * PLMD::lapack::ssmax

Initial value:

{

double fa = fabs(*f)

PLMD::lapack::f

double f

Definition: lapack.cpp:411

PLMD::lapack::fa

double fa

Definition: lapack.cpp:13414

void float float float * PLMD::lapack::ssmin

int PLMD::lapack::stack = 1

int PLMD::lapack::start = 1

float PLMD::lapack::stemp

int PLMD::lapack::stkpnt = 1

void const char * PLMD::lapack::storev

& PLMD::lapack::sum = 1.

void float int float float * PLMD::lapack::sumsq

Initial value:

{

int ix

PLMD::lapack::ix

int ix

Definition: lapack.cpp:13592

int PLMD::lapack::swap = ha > fa

int PLMD::lapack::swtch = 0

int PLMD::lapack::swtch3 = 0

void const char int int float int float float * PLMD::lapack::t = t_offset

float PLMD::lapack::t1

float PLMD::lapack::t2

PLMD::lapack::t_dim1 = *ldt

PLMD::lapack::t_offset = 1 + t_dim1

void int float int float * PLMD::lapack::tau = 0.f

float PLMD::lapack::taui

void int float int float float float float * PLMD::lapack::taup

void int float int float float float * PLMD::lapack::tauq

float PLMD::lapack::tb = *b + *b

float PLMD::lapack::temp = (r__1>r__2) ? r__1 : r__2

float PLMD::lapack::temp1 = temp / (d__[*n] + sqrt(d__[*n] * d__[*n] + temp))

float PLMD::lapack::temp2

float PLMD::lapack::temp3

float PLMD::lapack::temp4

& PLMD::lapack::thresh = (r__1>r__2) ? r__1 : r__2

int PLMD::lapack::ti1 = *n-1

int PLMD::lapack::ti2

int PLMD::lapack::ti3

int PLMD::lapack::till

float PLMD::lapack::tl = (*tol>eps) ? *tol : eps

float PLMD::lapack::tmax

float PLMD::lapack::tmin

float PLMD::lapack::tmp = work[indp + r1 - 1]

float PLMD::lapack::tmp1

float PLMD::lapack::tmp2

int PLMD::lapack::tmpkey

float PLMD::lapack::tn

float PLMD::lapack::tnorm = (d__3>d__4) ? d__3 : d__4

float PLMD::lapack::tnrm = PLUMED_BLAS_F77_FUNC(dlanst,DLANST)("M", n, &d__[1], &e[1])

int PLMD::lapack::to

void float float float float float * PLMD::lapack::tol = tolmul * eps

float PLMD::lapack::tol2 = d__1 * d__1

float PLMD::lapack::tolmul = (r__1>r__2) ? r__1 : r__2

int PLMD::lapack::toofew = 0

float PLMD::lapack::trace = d__ + e

void const char * PLMD::lapack::trans

Initial value:

{

*(unsigned char *)transt = 'T'

PLMD::lapack::transt

char transt[1]

Definition: lapack.cpp:5182

PLMD::lapack::Transpose

char PLMD::lapack::transt

float PLMD::lapack::tsign =1.0

float PLMD::lapack::tst

float PLMD::lapack::tt

void int float int int float float float float float float float int * PLMD::lapack::ttype = -12

void int int float int float float * PLMD::lapack::u = u_offset

void int int int float float int float float int float * PLMD::lapack::u2 = u2_offset

PLMD::lapack::u2_dim1 = *ldu2

PLMD::lapack::u2_offset = 1 + u2_dim1

int PLMD::lapack::u_dim1 = *ldu

int PLMD::lapack::u_offset = 1 + u_dim1

float PLMD::lapack::ulp = 2*PLUMED_GMX_DOUBLE_EPS

float PLMD::lapack::unfl = PLUMED_GMX_DOUBLE_MIN/PLUMED_GMX_DOUBLE_EPS

Non PLMD::lapack::unit

PLMD::lapack::Unit

GMX_LIBGMX_EXPORT void const char const char * PLMD::lapack::uplo

Initial value:

{

i__1 = *n

PLMD::lapack::i__1

void const char int double double double int double int double int double int int *info int i__1

Definition: lapack.cpp:73

PLMD::lapack::n

void const char int * n

Definition: lapack.cpp:73

int PLMD::lapack::upper = (*uplo=='U' || *uplo=='u')

void const char int int float * PLMD::lapack::v = v_offset

PLMD::lapack::v_dim1 = *ldv

PLMD::lapack::v_offset = 1 + v_dim1

return PLMD::lapack::val

int PLMD::lapack::valeig = (*range=='V' || *range=='v')

float PLMD::lapack::value =0.0

void int int int int float float float float * PLMD::lapack::vf = tau

int PLMD::lapack::vfi

void int int int int float float float float float * PLMD::lapack::vfw

float PLMD::lapack::vii

void int int int int float float float float float float * PLMD::lapack::vl = 0.

int PLMD::lapack::vli

float PLMD::lapack::vll = *vl

void int int int int float float float float float float float * PLMD::lapack::vlw

void int int float int float float int float * PLMD::lapack::vt = vt_offset

void int int int float float int float float int float int float int float * PLMD::lapack::vt2 = vt2_offset

int PLMD::lapack::vt2_dim1 = *ldvt2

int PLMD::lapack::vt2_offset = 1 + vt2_dim1

int PLMD::lapack::vt_dim1 = *ldvt

int PLMD::lapack::vt_offset = 1 + vt_dim1

GMX_LIBGMX_EXPORT void const char const char int float int float float * PLMD::lapack::vu

float PLMD::lapack::vuu = *vu

float PLMD::lapack::vvl

float PLMD::lapack::vvu

GMX_LIBGMX_EXPORT void const char const char int float int float float int int float int float * PLMD::lapack::w

Initial value:

= c__ + z__[ii] * z__[ii] / (delta[ii] * work[ii]) + z__[*n] * z__[*

n] / (delta[*n] * work[*n])

PLMD::lapack::work

void const char int double double double int double int double int double * work

Definition: lapack.cpp:73

PLMD::lapack::delta

double delta

Definition: lapack.cpp:6404

PLMD::lapack::ii

int ii

Definition: lapack.cpp:90

PLMD::lapack::n

void const char int * n

Definition: lapack.cpp:73

PLMD::lapack::c__

void int int int int double double double int double int double * c__

Definition: lapack.cpp:386

PLMD::lapack::z__

int z__

Definition: lapack.cpp:90

PLMD::lapack::wantq = (*vect=='Q' || *vect=='q')

int PLMD::lapack::wantz = (*jobz=='V' || *jobz=='v')

int PLMD::lapack::wbegin = 1

int PLMD::lapack::wend

void float float float float int int float float int float float float * PLMD::lapack::werr

void float float float float int int float float int float float * PLMD::lapack::wgap

float PLMD::lapack::width

float PLMD::lapack::wkill

float PLMD::lapack::wl

float PLMD::lapack::wlu

int PLMD::lapack::wntqa = (*jobz=='a' || *jobz=='A')

int PLMD::lapack::wntqas = wntqa || wntqs

int PLMD::lapack::wntqn = (*jobz=='o' || *jobz=='O')

int PLMD::lapack::wntqo = (*jobz=='n' || *jobz=='N')

int PLMD::lapack::wntqs = (*jobz=='s' || *jobz=='S')

void int float int float float * PLMD::lapack::work = ws

PLMD::lapack::work_dim1 = *ldwork

PLMD::lapack::work_offset = 1 + work_dim1

int PLMD::lapack::wrkbl

PLMD::lapack::wrksz = mn*DORGBR_BLOCKSIZE

float PLMD::lapack::ws = (*m > *n) ? *m : *n

int PLMD::lapack::wstart = 1

float PLMD::lapack::wu = 0.

float PLMD::lapack::wul

void float float * PLMD::lapack::x = x_offset

PLMD::lapack::x_dim1 = *ldx

PLMD::lapack::x_offset = 1 + x_dim1

PLMD::lapack::xabs = fabs(*x)

float PLMD::lapack::xj

float PLMD::lapack::xjm = 0.0

PLMD::lapack::xnorm = PLUMED_BLAS_F77_FUNC(dnrm2,DNRM2)(&ti1,x,incx)

const char PLMD::lapack::xtrans =toupper(*trans)

void int float float float float int float * PLMD::lapack::y = y_offset

PLMD::lapack::y_dim1 = *ldy

PLMD::lapack::y_offset = 1 + y_dim1

PLMD::lapack::yabs = fabs(*y)

void int int int int float float * PLMD::lapack::z = xabs

float PLMD::lapack::z1 = *alpha * vt[nlp1 + nlp1 * vt_dim1]

GMX_LIBGMX_EXPORT void const char const char int float int float float int int float int float float * PLMD::lapack::z__ = 1.

int PLMD::lapack::z_dim1 = *ldz

int PLMD::lapack::z_offset = 1 + z_dim1

float PLMD::lapack::zero = 0.0

int PLMD::lapack::zfrom

float PLMD::lapack::zmax = 0.

float PLMD::lapack::zscale

int PLMD::lapack::zto

float PLMD::lapack::ztr

void int int float float float float float float float float float * PLMD::lapack::ztz = 1.

void int int int int float float float * PLMD::lapack::zw = z__[jprev]

float PLMD::lapack::zz = z__[iip1] * z__[iip1]

Functions

Variables

Function Documentation

Variable Documentation