78 REAL selwi( 20 ), selwr( 20 )
81 INTEGER seldim, selopt
84 common / sslct / selopt, seldim, selval, selwr, selwi
92 parameter( zero = 0.0e0 )
100 IF( selopt.EQ.0 )
THEN
103 rmin =
slapy2( zr-selwr( 1 ), zi-selwi( 1 ) )
106 x =
slapy2( zr-selwr( i ), zi-selwi( i ) )