opt=$2
case $opt in
  -i) sup=$4 ; shift ;;
esac

ac=`echo $4 $5 $6 | awk ' {printf"%9.5f",(($1 * 60.) + $2 + ($3 / 60.))} '`
dc=`echo $7 $8 |\
awk ' { 
if((n=substr($1,1,1)) == "-") 
  printf"%9.5f",(($1 * 60.) - $2 - ($3 / 60.))
else 
  printf"%9.5f",(($1 * 60.) + $2) } '`

echo ' '
case $LNG in
  fr) echo "Centre donne:  RA = $4h $5m $6s ; Dec = $7d $8m" ;;
 eng) echo "Given center:  RA = $4h $5m $6s ; Dec = $7d $8m" ;;
esac

cat $ENT/pos.ent

case $opt in
  -lt) zex adel.pos | awkltrpos $ac $dc $3 | sort -n +7 ;;
  -gt) zex adel.pos | awkgtrpos $ac $dc $3 | sort -n +7 ;;
   -i) zex adel.pos | awkirpos $ac $dc $2 $sup | sort -n +7 ;;
esac
echo ' '