3 #include "gmx_lapack.h"
7 F77_FUNC(slange,SLANGE)(const char *norm,
14 const char ch=toupper(*norm);
15 float dtemp,sum,max,val,scale;
23 dtemp = fabs(a[j*(*lda)+i]);
36 sum += fabs(a[j*(*lda)+i]);
48 work[i] += fabs(a[j*(*lda)+i]);
62 F77_FUNC(slassq,SLASSQ)(m,&(a[j*(*lda)+0]),&i,&scale,&sum);
63 val = scale*sqrt(sum);