lseres()

logical function lseres	(	character*2	type,
		character*1	uplo,
		integer	m,
		integer	n,
		real, dimension( lda, * )	aa,
		real, dimension( lda, * )	as,
		integer	lda
	)