3 #include "gmx_lapack.h"
7 F77_FUNC(dlanst,DLANST)(const char *norm,
12 const char ch=toupper(*norm);
13 double dtemp,max,val,scale,sum;
23 for(i=0;i<(*n-1);i++) {
41 max = fabs(d[0]) + fabs(e[0]);
42 dtemp = fabs(e[*n-2]) + fabs(d[*n-1]);
45 for(i=1;i<(*n-1);i++) {
46 dtemp = fabs(d[i]) + fabs(e[i]) + fabs(e[i-1]);
61 F77_FUNC(dlassq,DLASSQ)(&i,e,&j,&scale,&sum);
64 F77_FUNC(dlassq,DLASSQ)(n,d,&j,&scale,&sum);
65 val = scale * sqrt(sum);