109 SUBROUTINE dlag2s( M, N, A, LDA, SA, LDSA, INFO )
117 INTEGER INFO, LDA, LDSA, M, N
121 DOUBLE PRECISION A( lda, * )
128 DOUBLE PRECISION RMAX
139 IF( ( a( i, j ).LT.-rmax ) .OR. ( a( i, j ).GT.rmax ) )
THEN
143 sa( i, j ) = a( i, j )
subroutine dlag2s(M, N, A, LDA, SA, LDSA, INFO)
DLAG2S converts a double precision matrix to a single precision matrix.