106 SUBROUTINE zlag2c( M, N, A, LDA, SA, LDSA, INFO )
113 INTEGER INFO, LDA, LDSA, M, N
116 COMPLEX SA( LDSA, * )
117 COMPLEX*16 A( LDA, * )
124 DOUBLE PRECISION RMAX
127 INTRINSIC dble, dimag
138 IF( ( dble( a( i, j ) ).LT.-rmax ) .OR.
139 $ ( dble( a( i, j ) ).GT.rmax ) .OR.
140 $ ( dimag( a( i, j ) ).LT.-rmax ) .OR.
141 $ ( dimag( a( i, j ) ).GT.rmax ) )
THEN
145 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.