72 parameter( zero = 0.0e0 )
79 INTEGER seldim, selopt
83 REAL selwi( 20 ), selwr( 20 )
86 common / sslct / selopt, seldim, selval, selwr, selwi
89 INTRINSIC abs, cmplx, real
93 IF( selopt.EQ.0 )
THEN
94 cslect = (
REAL( z ).LT.zero )
96 rmin = abs( z-cmplx( selwr( 1 ), selwi( 1 ) ) )
99 x = abs( z-cmplx( selwr( i ), selwi( i ) ) )