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 )
REAL function slamch(CMACH)
SLAMCH
subroutine dlag2s(M, N, A, LDA, SA, LDSA, INFO)
DLAG2S converts a double precision matrix to a single precision matrix.
set ue cd $ADTTMP cat<< EOF > tmp f Program LinearEquations Implicit none Real j