void dgemv(byte,long,long,double,double*,long,double[],
	long,double,double[],long);
LOGICAL32 lsame(byte,byte);
void xerbla(STRING,long);