108 SUBROUTINE zlag2c( M, N, A, LDA, SA, LDSA, INFO )
116 INTEGER info, lda, ldsa, m, n
119 COMPLEX sa( ldsa, * )
120 COMPLEX*16 a( lda, * )
127 DOUBLE PRECISION rmax
130 INTRINSIC dble, dimag
141 IF( ( dble( a( i,
j ) ).LT.-rmax ) .OR.
142 $ ( dble( a( i,
j ) ).GT.rmax ) .OR.
143 $ ( dimag( a( i,
j ) ).LT.-rmax ) .OR.
144 $ ( dimag( a( i,
j ) ).GT.rmax ) )
THEN
148 sa( i,
j ) = a( i,
j )
REAL function slamch(CMACH)
SLAMCH
set ue cd $ADTTMP cat<< EOF > tmp f Program LinearEquations Implicit none Real j
subroutine zlag2c(M, N, A, LDA, SA, LDSA, INFO)
ZLAG2C converts a complex double precision matrix to a complex single precision matrix.