dir = '/data/binary/matisse/'

  readcol, dir+'bins.csv', delimiter=',', /Silent, $
           num, name, des, sat, dyn, format='(L,A,A,A,A)'
  nbBin=n_elements(num)
  dyn=strTrim(dyn,2)


  print, dyn[ uniq(dyn,sort(dyn)) ]

  ast = where( strCmp(dyn,'AMO') or $
               strCmp(dyn,'APO') or $
               strCmp(dyn,'ATE') or $
               strCmp(dyn,'ATI') or $
               strCmp(dyn,'MC') or $
               strCmp(dyn,'MB') or $
               strCmp(dyn,'JL4') or $
               strCmp(dyn,'JL5') or $
               strCmp(dyn,'ML5'), nbAST )


  iso =  '2019-10-01T00:00:00'
  step= '1d'
  nbd = 13


  for kA=0, nbAst-1 do begin
     print, kA, num[ast[kA]], name[ast[kA]], format='(I3,2x,I6,2x,A-20)'

     AA = sspEphemCC()

  endfor



end