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 )
subroutine zlag2c(M, N, A, LDA, SA, LDSA, INFO)
ZLAG2C converts a complex double precision matrix to a complex single precision matrix.