dir = '/observ/euclid/rs/'
  file = 'calib.csv'

  cal = euclidReadRS( dir+file )
  nbCal = n_elements( cal.id )


  sel = where( abs(cal.dec) le 10, nbCal )
  print, nbcal




  ssoArr = intarr( nbCal )
  raArr  = fltarr( nbCal )
  deArr  = fltarr( nbCal )

  for i=0, nbCal-1 do begin

    k=sel[i]
    radec = framecoord_ec2eq( cal.lon[k], cal.lat[k] )

    raArr[i]=radec[0]
    deArr[i]=radec[1]

    sso = voSkyBoT_coneSearch(radec[0], radec[1],'30,m',cal.utc[k])
    ssoArr[i] = n_elements( sso )

    print, k, cal.lon[k], cal.lat[k], radec, ssoArr[i], format='(I,F,F,F,F,I)'
  endfor




end