74 DOUBLE PRECISION zero, one
75 parameter( zero = 0.0d+0, one = 1.0d+0 )
77 parameter( czero = ( 0.0d+0, 0.0d+0 ) )
83 INTRINSIC abs, dble, dimag, max, sign
88 zlctes = ( dble( z ).LT.zero )
90 IF( dble( z ).EQ.zero .OR. dble( d ).EQ.zero )
THEN
91 zlctes = ( sign( one, dimag( z ) ).NE.
92 $ sign( one, dimag( d ) ) )
93 ELSE IF( dimag( z ).EQ.zero .OR. dimag( d ).EQ.zero )
THEN
94 zlctes = ( sign( one, dble( z ) ).NE.
95 $ sign( one, dble( d ) ) )
97 zmax = max( abs( dble( z ) ), abs( dimag( z ) ) )
98 zlctes = ( ( dble( z ) / zmax )*dble( d )+
99 $ ( dimag( z ) / zmax )*dimag( d ).LT.zero )