PLMD::blas Namespace Reference

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

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

Function Documentation

for() [1/3]

PLMD::blas::for

(

i__

= mp1; i__ <= i__2; i__ += 6

)

for() [2/3]

PLMD::blas::for

(

)

Initial value:

=  t1 + dx[i] * dy[i]   
                +    dx[i+1] * dy[i+1] 
                +    dx[i+2] * dy[i+2] 
                +    dx[i+3] * dy[i+3]   
                +    dx[i+4] * dy[i+4]

for() [3/3]

PLMD::blas::for

(

ix

= 1;ix<=max_ix;ix+=incx

)

if() [1/23]

PLMD::blas::if

(

n<=0||incx<=

0

)

if() [2/23]

PLMD::blas::if

(

incx !

= 1

)

if() [3/23]

PLMD::blas::if

(

m !

= 0

)

if() [4/23]

PLMD::blas::if

(

n<=

0

)

if() [5/23]

PLMD::blas::if

(

incx!

= 1 || incy!=1

)

if() [6/23]

PLMD::blas::if

(

tra

= ='N'

)

if() [7/23]

PLMD::blas::if

(

trb

= ='N'

)

= k

if() [8/23]

PLMD::blas::if

(

m

= =0||n==0||((fabs(alpha)< PLUMED_GMX_DOUBLE_MIN||k==0) &&fabs(beta-1.0)< PLUMED_GMX_DOUBLE_EPS)

)

if() [9/23]

PLMD::blas::if

(

)

= incx * (1 - n)

if() [10/23]

PLMD::blas::if

(

n<=0||m<=0||

fabs(alpha)< PLUMED_GMX_DOUBLE_MIN &&fabs(beta-1.0)< PLUMED_GMX_DOUBLE_EPS

)

if() [11/23]

PLMD::blas::if

(

ch

= ='N'

)

if() [12/23]

PLMD::blas::if	(	incx	,
		0
	)		= 1

if() [13/23]

PLMD::blas::if	(	incy	,
		0
	)		= 1

if() [14/23]

PLMD::blas::if	(	fabs(beta-1.0)	,
		PLUMED_GMX_DOUBLE_EPS
	)

if() [15/23]

PLMD::blas::if

(

incx

= =1

)

if() [16/23]

PLMD::blas::if

(

n

= =1

)

if() [17/23]

PLMD::blas::if

(

n<=0||

incx = =0||incy==0

)

if() [18/23]

PLMD::blas::if

(

ch2

= = 'N'

)

= n

if() [19/23]

PLMD::blas::if

(

lside

)

if() [20/23]

PLMD::blas::if

(

incx<=

0

)

if() [21/23]

PLMD::blas::if

(

xside

= ='L'

)

if() [22/23]

PLMD::blas::if

(

n<=0||m<=0||

fabs(alpha)< PLUMED_GMX_FLOAT_MIN &&fabs(beta-1.0)< PLUMED_GMX_FLOAT_EPS

)

if() [23/23]

PLMD::blas::if	(	fabs(beta-1.0)	,
		PLUMED_GMX_FLOAT_EPS
	)

PLUMED_BLAS_F77_FUNC() [1/36]

double PLMD::blas::PLUMED_BLAS_F77_FUNC	(	dasum	,
		DASUM
	)

PLUMED_BLAS_F77_FUNC() [2/36]

void PLMD::blas::PLUMED_BLAS_F77_FUNC	(	daxpy	,
		DAXPY
	)

PLUMED_BLAS_F77_FUNC() [3/36]

void PLMD::blas::PLUMED_BLAS_F77_FUNC	(	dcopy	,
		DCOPY
	)

PLUMED_BLAS_F77_FUNC() [4/36]

double PLMD::blas::PLUMED_BLAS_F77_FUNC	(	ddot	,
		DDOT
	)

PLUMED_BLAS_F77_FUNC() [5/36]

void PLMD::blas::PLUMED_BLAS_F77_FUNC	(	dgemm	,
		DGEMM
	)		const

PLUMED_BLAS_F77_FUNC() [6/36]

void PLMD::blas::PLUMED_BLAS_F77_FUNC	(	dgemv	,
		DGEMV
	)		const

PLUMED_BLAS_F77_FUNC() [7/36]

void PLMD::blas::PLUMED_BLAS_F77_FUNC	(	dger	,
		DGER
	)

PLUMED_BLAS_F77_FUNC() [8/36]

double PLMD::blas::PLUMED_BLAS_F77_FUNC	(	dnrm2	,
		DNRM2
	)

PLUMED_BLAS_F77_FUNC() [9/36]

void PLMD::blas::PLUMED_BLAS_F77_FUNC	(	drot	,
		DROT
	)

PLUMED_BLAS_F77_FUNC() [10/36]

void PLMD::blas::PLUMED_BLAS_F77_FUNC	(	dscal	,
		DSCAL
	)

PLUMED_BLAS_F77_FUNC() [11/36]

void PLMD::blas::PLUMED_BLAS_F77_FUNC	(	dswap	,
		DSWAP
	)

PLUMED_BLAS_F77_FUNC() [12/36]

void PLMD::blas::PLUMED_BLAS_F77_FUNC	(	dsymv	,
		DSYMV
	)		const

PLUMED_BLAS_F77_FUNC() [13/36]

void PLMD::blas::PLUMED_BLAS_F77_FUNC	(	dsyr2	,
		DSYR2
	)		const

PLUMED_BLAS_F77_FUNC() [14/36]

void PLMD::blas::PLUMED_BLAS_F77_FUNC	(	dsyr2k	,
		DSYR2K
	)		const

PLUMED_BLAS_F77_FUNC() [15/36]

void PLMD::blas::PLUMED_BLAS_F77_FUNC	(	dtrmm	,
		DTRMM
	)		const

PLUMED_BLAS_F77_FUNC() [16/36]

void PLMD::blas::PLUMED_BLAS_F77_FUNC	(	dtrmv	,
		DTRMV
	)		const

PLUMED_BLAS_F77_FUNC() [17/36]

void PLMD::blas::PLUMED_BLAS_F77_FUNC	(	dtrsm	,
		DTRSM
	)		const

PLUMED_BLAS_F77_FUNC() [18/36]

int PLMD::blas::PLUMED_BLAS_F77_FUNC	(	idamax	,
		IDAMAX
	)

PLUMED_BLAS_F77_FUNC() [19/36]

int PLMD::blas::PLUMED_BLAS_F77_FUNC	(	isamax	,
		ISAMAX
	)

PLUMED_BLAS_F77_FUNC() [20/36]

float PLMD::blas::PLUMED_BLAS_F77_FUNC	(	sasum	,
		SASUM
	)

PLUMED_BLAS_F77_FUNC() [21/36]

void PLMD::blas::PLUMED_BLAS_F77_FUNC	(	saxpy	,
		SAXPY
	)

PLUMED_BLAS_F77_FUNC() [22/36]

void PLMD::blas::PLUMED_BLAS_F77_FUNC	(	scopy	,
		SCOPY
	)

PLUMED_BLAS_F77_FUNC() [23/36]

float PLMD::blas::PLUMED_BLAS_F77_FUNC	(	sdot	,
		SDOT
	)

PLUMED_BLAS_F77_FUNC() [24/36]

void PLMD::blas::PLUMED_BLAS_F77_FUNC	(	sgemm	,
		SGEMM
	)		const

PLUMED_BLAS_F77_FUNC() [25/36]

void PLMD::blas::PLUMED_BLAS_F77_FUNC	(	sgemv	,
		SGEMV
	)		const

PLUMED_BLAS_F77_FUNC() [26/36]

void PLMD::blas::PLUMED_BLAS_F77_FUNC	(	sger	,
		SGER
	)

PLUMED_BLAS_F77_FUNC() [27/36]

float PLMD::blas::PLUMED_BLAS_F77_FUNC	(	snrm2	,
		SNRM2
	)

PLUMED_BLAS_F77_FUNC() [28/36]

void PLMD::blas::PLUMED_BLAS_F77_FUNC	(	srot	,
		SROT
	)

PLUMED_BLAS_F77_FUNC() [29/36]

void PLMD::blas::PLUMED_BLAS_F77_FUNC	(	sscal	,
		SSCAL
	)

PLUMED_BLAS_F77_FUNC() [30/36]

void PLMD::blas::PLUMED_BLAS_F77_FUNC	(	sswap	,
		SSWAP
	)

PLUMED_BLAS_F77_FUNC() [31/36]

void PLMD::blas::PLUMED_BLAS_F77_FUNC	(	ssymv	,
		SSYMV
	)		const

PLUMED_BLAS_F77_FUNC() [32/36]

void PLMD::blas::PLUMED_BLAS_F77_FUNC	(	ssyr2	,
		SSYR2
	)		const

PLUMED_BLAS_F77_FUNC() [33/36]

void PLMD::blas::PLUMED_BLAS_F77_FUNC	(	ssyr2k	,
		SSYR2K
	)		const

PLUMED_BLAS_F77_FUNC() [34/36]

void PLMD::blas::PLUMED_BLAS_F77_FUNC	(	strmm	,
		STRMM
	)		const

PLUMED_BLAS_F77_FUNC() [35/36]

void PLMD::blas::PLUMED_BLAS_F77_FUNC	(	strmv	,
		STRMV
	)		const

PLUMED_BLAS_F77_FUNC() [36/36]

void PLMD::blas::PLUMED_BLAS_F77_FUNC	(	strsm	,
		STRSM
	)		const

sqrt()

return scale * PLMD::blas::sqrt

(

ssq

)

Variable Documentation

a

void const char const char const char int int float float * PLMD::blas::a = a_offset

a_dim1

PLMD::blas::a_dim1 = lda

a_offset

PLMD::blas::a_offset = 1 + a_dim1

absxi

float PLMD::blas::absxi

alpha

void const char const char const char int int float * PLMD::blas::alpha = *alpha__

alpha__

void const char const char const char int int float * PLMD::blas::alpha__

b

void const char const char const char int int float float int float * PLMD::blas::b = b_offset

b_dim1

PLMD::blas::b_dim1 = ldb

b_offset

PLMD::blas::b_offset = 1 + b_dim1

beta

void const char int int float float int float int float * PLMD::blas::beta = *beta__

beta__

void const char int int float float int float int float * PLMD::blas::beta__

c

void const char int int float float int float int float float * PLMD::blas::c = *c__

c__

void float int float int float * PLMD::blas::c__

ch

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

ch1

PLMD::blas::ch1 = toupper(*uplo)

ch2

PLMD::blas::ch2 = toupper(*trans)

d1

float PLMD::blas::d1

d2

float PLMD::blas::d2

d3

float PLMD::blas::d3

da

void float * PLMD::blas::da =*da_arg

da_arg

void float * PLMD::blas::da_arg

diag

void const char const char const char * PLMD::blas::diag

dmax

float PLMD::blas::dmax = fabs(dx[0])

dtemp

float PLMD::blas::dtemp = 0.

dx

int float * PLMD::blas::dx

dy

void float int float * PLMD::blas::dy

else

PLMD::blas::else

Initial value:

{

    
    
    for(i=0;i<(n-4);i+=4) {
      dy[i]   += da*dx[i];
      dy[i+1] += da*dx[i+1];
      dy[i+2] += da*dx[i+2];
      dy[i+3] += da*dx[i+3];
    }
    
    for(;i<n;i++)
      dy[i]   += da*dx[i]

fact

void float * PLMD::blas::fact = *fact__

fact__

void float * PLMD::blas::fact__

i

int PLMD::blas::i

i__

int PLMD::blas::i__

i__2

PLMD::blas::i__2 = n

idxmax

return PLMD::blas::idxmax = 1

incx

int float int * PLMD::blas::incx = *incx__

incx__

void const char const char int float int float int * PLMD::blas::incx__

Initial value:

{
    int i__1, i__2

incx_arg

float float int * PLMD::blas::incx_arg

incy

void int float float int float int * PLMD::blas::incy = *incy_arg

incy__

void int float float int float int * PLMD::blas::incy__

Initial value:

{
    int i,ix,iy

incy_arg

float float int float int * PLMD::blas::incy_arg

Initial value:

{
  int i,ix,iy

info

int PLMD::blas::info = 0

ix

int PLMD::blas::ix

iy

int PLMD::blas::iy = 0

j

int PLMD::blas::j

jx

int PLMD::blas::jx = jy = kx = ky = 0

jy

int PLMD::blas::jy = incy * (1 - n)

k

void const char int int * PLMD::blas::k = *k__

k__

void const char int int * PLMD::blas::k__

kx

int PLMD::blas::kx = 1 - (lenx -1)*(incx)

ky

else PLMD::blas::ky = 1 - (leny -1)*(incy)

l

int PLMD::blas::l

lda

void const char const char const char int int float float int * PLMD::blas::lda = *lda__

lda__

void const char const char const char int int float float int * PLMD::blas::lda__

Initial value:

{
    int ix,kx,jy

ldb

void const char const char const char int int float float int float int * PLMD::blas::ldb = *ldb__

ldb__

void const char const char const char int int float float int float int * PLMD::blas::ldb__

Initial value:

{
    int a_dim1, a_offset, b_dim1, b_offset, i__1, i__2, i__3

ldc

void const char int int float float int float int float float int * PLMD::blas::ldc = *ldc__

ldc__

void const char int int float float int float int float float int * PLMD::blas::ldc__

Initial value:

{
  const char tra=toupper(*transa)

lenx

int PLMD::blas::lenx

leny

int PLMD::blas::leny = n

lside

int PLMD::blas::lside = (*side=='L' || *side=='l')

m

void const char const char const char int * PLMD::blas::m = n % 6

m__

void const char const char const char int * PLMD::blas::m__

max_ix

PLMD::blas::max_ix = 1+(n-1)*(incx)

mp1

int PLMD::blas::mp1 = m + 1

n

void const char const char const char int int * PLMD::blas::n = *n__

n__

void const char const char const char int int * PLMD::blas::n__

ncola

int PLMD::blas::ncola = m

nincx

int PLMD::blas::nincx

nounit

int PLMD::blas::nounit = (*diag=='N' || *diag=='n')

nrowa

int PLMD::blas::nrowa = k

nrowb

else PLMD::blas::nrowb = n

return

PLMD::blas::return

s

void float int float int float float * PLMD::blas::s = *s__

s__

void float int float int float float * PLMD::blas::s__

Initial value:

{
  int i,ix,iy

scale

float PLMD::blas::scale = 0.0

ssq

float PLMD::blas::ssq = 1.0

t

float PLMD::blas::t

t1

return PLMD::blas::t1 = 0.0

temp

float PLMD::blas::temp

temp1

float PLMD::blas::temp1

temp2

float PLMD::blas::temp2

tmp

float PLMD::blas::tmp

trans

void const char * PLMD::blas::trans

transa

void const char const char * PLMD::blas::transa

transb

void const char * PLMD::blas::transb

trb

const char PLMD::blas::trb =toupper(*transb)

uplo

void const char * PLMD::blas::uplo

upper

int PLMD::blas::upper = (*uplo=='U' || *uplo=='u')

x

void const char const char int float int float * PLMD::blas::x

xdiag

const char PLMD::blas::xdiag = toupper(*diag)

xtrans

const char PLMD::blas::xtrans = toupper(*transa)

xuplo

const char PLMD::blas::xuplo = toupper(*uplo)

y

void int float float int float * PLMD::blas::y