LOGICAL32 lsame(byte,byte);
void sgemv(byte,long,long,float,float*,long,float[],
	long,float,float[],long);
void xerbla(STRING,long);