lderes()

logical function lderes	(	character*2	type,
		character*1	uplo,
		integer	m,
		integer	n,
		double precision, dimension( lda, * )	aa,
		double precision, dimension( lda, * )	as,
		integer	lda
	)