stedc scales only if norm is tiny or huge (and not unconditionally)

[angsch]

Description

Replace unconditional scaling

lapack/SRC/dstedc.f

Lines 380 to 387 in 2cbabee

	ORGNRM = DLANST( 'M', M, D( START ), E( START ) )
	CALL DLASCL( 'G', 0, 0, ORGNRM, ONE, M, 1, D( START ),
	$ M,
	$ INFO )
	CALL DLASCL( 'G', 0, 0, ORGNRM, ONE, M-1, 1,
	$ E( START ),
	$ M-1, INFO )
	*

with conditional scaling as done in, for example, steqr.