112 SUBROUTINE dlat2s( UPLO, N, A, LDA, SA, LDSA, INFO )
121 INTEGER info, lda, ldsa, n
125 DOUBLE PRECISION a( lda, * )
132 DOUBLE PRECISION rmax
143 upper =
lsame( uplo,
'U' )
147 IF( ( a( i,
j ).LT.-rmax ) .OR. ( a( i,
j ).GT.rmax ) )
152 sa( i,
j ) = a( i,
j )
158 IF( ( a( i,
j ).LT.-rmax ) .OR. ( a( i,
j ).GT.rmax ) )
163 sa( i,
j ) = a( i,
j )
logical function lsame(CA, CB)
LSAME
real function slamch(CMACH)
SLAMCH
set ue cd $ADTTMP cat<< EOF > tmp f Program LinearEquations Implicit none Real j
subroutine dlat2s(UPLO, N, A, LDA, SA, LDSA, INFO)
DLAT2S converts a double-precision triangular matrix to a single-precision triangular matrix...