blas.cpp File Reference

#include <cmath>
#include "blas.h"
#include <cctype>
#include "real.h"

Namespaces
	PLMD
	PLMD::blas

Functions
	PLMD::blas::for (i__=mp1;i__<=i__2;i__+=6)
	PLMD::blas::for (i=0;i< m;i++) t1+
	PLMD::blas::for (ix=1;ix<=max_ix;ix+=incx)
	PLMD::blas::if (n<=0||incx<=0)
	PLMD::blas::if (incx !=1)
	PLMD::blas::if (m !=0)
	PLMD::blas::if (n<=0) return
	PLMD::blas::if (incx!=1||incy!=1)
	PLMD::blas::if (m==0||n==0||((std::abs(alpha)< PLUMED_GMX_DOUBLE_MIN||k==0) &&std::abs(beta-1.0)< PLUMED_GMX_DOUBLE_EPS)) return
	PLMD::blas::if (std::abs(alpha)< PLUMED_GMX_DOUBLE_MIN) = incx * (1 - n)
	PLMD::blas::if (trb=='N')
	PLMD::blas::if (n<=0||m<=0||(std::abs(alpha)< PLUMED_GMX_DOUBLE_MIN &&std::abs(beta-1.0)< PLUMED_GMX_DOUBLE_EPS)) return
	PLMD::blas::if (ch=='N')
	PLMD::blas::if (incx >0) kx = 1
	PLMD::blas::if (incy >0) ky = 1
	PLMD::blas::if (std::abs(beta-1.0)>PLUMED_GMX_DOUBLE_EPS)
	PLMD::blas::if (incx==1)
else	PLMD::blas::if (n==1)
	PLMD::blas::if (n<=0||incx==0||incy==0) return
	PLMD::blas::if (ch2=='N')
	PLMD::blas::if (lside)
	PLMD::blas::if (incx<=0)
	PLMD::blas::if (xside=='L')
	PLMD::blas::if (n<=0||m<=0||(std::abs(alpha)< PLUMED_GMX_FLOAT_MIN &&std::abs(beta-1.0)< PLUMED_GMX_FLOAT_EPS)) return
	PLMD::blas::if (std::abs(beta-1.0)>PLUMED_GMX_FLOAT_EPS)
double	PLMD::blas::PLUMED_BLAS_F77_FUNC (dasum, DASUM)(int *n__
void	PLMD::blas::PLUMED_BLAS_F77_FUNC (daxpy, DAXPY)(int *n_arg
void	PLMD::blas::PLUMED_BLAS_F77_FUNC (dcopy, DCOPY)(int *n__
double	PLMD::blas::PLUMED_BLAS_F77_FUNC (ddot, DDOT)(int *n_arg
void	PLMD::blas::PLUMED_BLAS_F77_FUNC (dgemm, DGEMM)(const char *transa
void	PLMD::blas::PLUMED_BLAS_F77_FUNC (dgemv, DGEMV)(const char *trans
void	PLMD::blas::PLUMED_BLAS_F77_FUNC (dger, DGER)(int *m__
double	PLMD::blas::PLUMED_BLAS_F77_FUNC (dnrm2, DNRM2)(int *n__
void	PLMD::blas::PLUMED_BLAS_F77_FUNC (drot, DROT)(int *n__
void	PLMD::blas::PLUMED_BLAS_F77_FUNC (dscal, DSCAL)(int *n__
void	PLMD::blas::PLUMED_BLAS_F77_FUNC (dswap, DSWAP)(int *n__
void	PLMD::blas::PLUMED_BLAS_F77_FUNC (dsymv, DSYMV)(const char *uplo
void	PLMD::blas::PLUMED_BLAS_F77_FUNC (dsyr2, DSYR2)(const char *uplo
void	PLMD::blas::PLUMED_BLAS_F77_FUNC (dsyr2k, DSYR2K)(const char *uplo
void	PLMD::blas::PLUMED_BLAS_F77_FUNC (dtrmm, DTRMM)(const char *side
void	PLMD::blas::PLUMED_BLAS_F77_FUNC (dtrmv, DTRMV)(const char *uplo
void	PLMD::blas::PLUMED_BLAS_F77_FUNC (dtrsm, DTRSM)(const char *side
int	PLMD::blas::PLUMED_BLAS_F77_FUNC (idamax, IDAMAX)(int *n__
int	PLMD::blas::PLUMED_BLAS_F77_FUNC (isamax, ISAMAX)(int *n__
float	PLMD::blas::PLUMED_BLAS_F77_FUNC (sasum, SASUM)(int *n__
void	PLMD::blas::PLUMED_BLAS_F77_FUNC (saxpy, SAXPY)(int *n_arg
void	PLMD::blas::PLUMED_BLAS_F77_FUNC (scopy, SCOPY)(int *n__
float	PLMD::blas::PLUMED_BLAS_F77_FUNC (sdot, SDOT)(int *n_arg
void	PLMD::blas::PLUMED_BLAS_F77_FUNC (sgemm, SGEMM)(const char *transa
void	PLMD::blas::PLUMED_BLAS_F77_FUNC (sgemv, SGEMV)(const char *trans
void	PLMD::blas::PLUMED_BLAS_F77_FUNC (sger, SGER)(int *m__
float	PLMD::blas::PLUMED_BLAS_F77_FUNC (snrm2, SNRM2)(int *n__
void	PLMD::blas::PLUMED_BLAS_F77_FUNC (srot, SROT)(int *n__
void	PLMD::blas::PLUMED_BLAS_F77_FUNC (sscal, SSCAL)(int *n__
void	PLMD::blas::PLUMED_BLAS_F77_FUNC (sswap, SSWAP)(int *n__
void	PLMD::blas::PLUMED_BLAS_F77_FUNC (ssymv, SSYMV)(const char *uplo
void	PLMD::blas::PLUMED_BLAS_F77_FUNC (ssyr2, SSYR2)(const char *uplo
void	PLMD::blas::PLUMED_BLAS_F77_FUNC (ssyr2k, SSYR2K)(const char *uplo
void	PLMD::blas::PLUMED_BLAS_F77_FUNC (strmm, STRMM)(const char *side
void	PLMD::blas::PLUMED_BLAS_F77_FUNC (strmv, STRMV)(const char *uplo
void	PLMD::blas::PLUMED_BLAS_F77_FUNC (strsm, STRSM)(const char *side

Variables
void const char int int int double double *	PLMD::blas::a = a_offset
	PLMD::blas::a_dim1 = lda
	PLMD::blas::a_offset = 1 + a_dim1
double	PLMD::blas::absxi
double	PLMD::blas::alpha = *alpha__
void const char int int int double *	PLMD::blas::alpha__
void const char int int int double double int double *	PLMD::blas::b = b_offset
	PLMD::blas::b_dim1 = ldb
	PLMD::blas::b_offset = 1 + b_dim1
double	PLMD::blas::beta = *beta__
void const char int int int double double int double int double *	PLMD::blas::beta__
void const char int int int double double int double int double double *	PLMD::blas::c = *c__
void double int double int double *	PLMD::blas::c__
const char	PLMD::blas::ch =std::toupper(*uplo)
	PLMD::blas::ch1 = std::toupper(*uplo)
	PLMD::blas::ch2 = std::toupper(*trans)
double	PLMD::blas::d1
double	PLMD::blas::d2
double	PLMD::blas::d3
double	PLMD::blas::da =*da_arg
void double *	PLMD::blas::da_arg
void const char const char const char *	PLMD::blas::diag
double	PLMD::blas::dmax = std::abs(dx[0])
double	PLMD::blas::dtemp = 0.
double double *	PLMD::blas::dx
void double double int double *	PLMD::blas::dy
	PLMD::blas::else
double	PLMD::blas::fact = *fact__
void double *	PLMD::blas::fact__
int	PLMD::blas::i
int	PLMD::blas::i__
	PLMD::blas::i__2 = n
	PLMD::blas::idxmax = 1
int	PLMD::blas::incx = *incx__
double double int *	PLMD::blas::incx__
void double double int *	PLMD::blas::incx_arg
int	PLMD::blas::incy = *incy_arg
void double int double int *	PLMD::blas::incy__
void double double int double int *	PLMD::blas::incy_arg
int	PLMD::blas::ix
int	PLMD::blas::iy = 0
int	PLMD::blas::j
int	PLMD::blas::jx = jy = kx = ky = 0
int	PLMD::blas::jy = incy * (1 - n)
int	PLMD::blas::k = *k__
void const char int int int *	PLMD::blas::k__
int	PLMD::blas::kx = 1 - (lenx -1)*(incx)
int	PLMD::blas::ky = 1 - (leny -1)*(incy)
int	PLMD::blas::l
int	PLMD::blas::lda = *lda__
void const char int int int double double int *	PLMD::blas::lda__
int	PLMD::blas::ldb = *ldb__
void const char int int int double double int double int *	PLMD::blas::ldb__
int	PLMD::blas::ldc = *ldc__
void const char int int int double double int double int double double int *	PLMD::blas::ldc__
int	PLMD::blas::lenx
int	PLMD::blas::leny = n
int	PLMD::blas::lside = (*side=='L' || *side=='l')
int	PLMD::blas::m = n % 6
void const char int *	PLMD::blas::m__
	PLMD::blas::max_ix = 1+(n-1)*(incx)
int	PLMD::blas::mp1 = m + 1
int	PLMD::blas::n = *n__
void const char int int *	PLMD::blas::n__
int	PLMD::blas::nincx
int	PLMD::blas::nounit = (*diag=='N' || *diag=='n')
	PLMD::blas::return
double	PLMD::blas::s = *s__
void double int double int double double *	PLMD::blas::s__
double	PLMD::blas::scale = 0.0
double	PLMD::blas::ssq = 1.0
double	PLMD::blas::t
double	PLMD::blas::t1 = 0.0
double	PLMD::blas::temp
double	PLMD::blas::temp1
double	PLMD::blas::temp2
double	PLMD::blas::tmp
void const char *	PLMD::blas::trans
void const char const char *	PLMD::blas::transa
void const char *	PLMD::blas::transb
const char	PLMD::blas::trb =std::toupper(*transb)
void const char *	PLMD::blas::uplo
int	PLMD::blas::upper = (*uplo=='U' || *uplo=='u')
void int int double double int double *	PLMD::blas::x
const char	PLMD::blas::xdiag = std::toupper(*diag)
const char	PLMD::blas::xtrans = std::toupper(*transa)
const char	PLMD::blas::xuplo = std::toupper(*uplo)
void int int double double int double int double double *	PLMD::blas::y