;+ ; READ_UNIQ ; ; Read the allinfo.dat to a structure ; ;- function read_uniq, alluniq ;-Read Classified File readfmt, alluniq, $ 'I6,1x,A15,1x,A3,3x,'+$ 'F8.5,1x,F8.5,1x,F8.5,1x,F8.5,1x,F8.5,1x,'+$ 'F8.5,1x,F8.5,1x,F8.5,1x,F8.5,1x,F8.5,4x,'+$ 'F8.5,1x,F8.5,3x,F9.5,2x,F8.6,2x,F6.2,1x,'+$ '34x,'+$ 'F5.2,3x,I2,1x,I2,1x,I2,3x,I1', $ num, desig, class, $ refl_U, uncU, $ refl_g, uncG, $ refl_r, uncR, $ refl_i, uncI, $ refl_z, uncZ, $ sl, zi, $ a, e, i,$ hmag, tot1, tot2, tot3, stat, $ /SILENT ;-Organise the Data classified={num: num, $ ;-Asteroid IAU Number desig: desig, $ class: class, $ refl_u: refl_u, $ refl_g: refl_g, $ refl_r: refl_r, $ refl_i: refl_i, $ refl_z: refl_z, $ uncU: uncU, $ uncG: uncG, $ uncR: uncR, $ uncI: uncI, $ uncZ: uncZ, $ sl: sl, $ zi: zi, $ a: a, $ e: e, $ i: i, $ h: hmag, $ tot: [[tot1],[tot2],[tot3]], $ status: stat} ;-Return the Structure return, classified end