75 parameter( zero = 0.0e+0, one = 1.0e+0 )
77 parameter( czero = ( 0.0e+0, 0.0e+0 ) )
83 INTRINSIC abs, aimag, max,
REAL, sign
88 clctes = (
REAL( z ).LT.zero )
90 IF(
REAL( z ).EQ.zero .OR.
REAL( d ).EQ.zero ) then
91 clctes = ( sign( one, aimag( z ) ).NE.
92 $ sign( one, aimag( d ) ) )
93 ELSE IF( aimag( z ).EQ.zero .OR. aimag( d ).EQ.zero )
THEN
94 clctes = ( sign( one,
REAL( Z ) ).NE.
95 $ sign( one,
REAL( D ) ) )
97 zmax = max( abs(
REAL( Z ) ), abs( aimag( z ) ) )
98 clctes = ( (
REAL( Z ) / zmax )*
REAL( d )+
99 $ ( aimag( z ) / zmax )*aimag( d ).LT.zero )