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 )