#!/bin/sh
#
# Usage : zhip [database] [alpha (deg. decinaux)] [delta (deg. decinaux)] [search radius (")]
# (C) 1999, J. Berthier, IMCCE.
#

FilRec=$1
posrac=$2
posdec=$3
raysea=$4

ramin=$posrac-$raysea/3600
ramax=$posrac+$raysea/3600
demin=$posdec-$raysea/3600
demax=$posdec+$raysea/3600

gawk -F "|" -v posrac="$posrac" -v posdec="$posdec" -v raysea="$raysea" '{
    ramin=posrac-raysea/3600
    ramax=posrac+raysea/3600
    demin=posdec-raysea/3600
    demax=posdec+raysea/3600           
    okira=0
    if ( $9 >= ramin && $9 <= ramax ) { okira = 1 }
    okide=0
    if ( $10 >= demin && $10 <= demax ) { okide = 1 }
    if ( okira != 0 && okide != 0 ) { print $0 }
    if ( $9 > ramax ) { exit }
}' $FilRec