function units,q

unitarray=[' ','[km/s]',' ',' ','[km/s]',' ',' ',' ',$
'[K]','[km/s]','[km/s]','[K km/s]','[K]',' ','[km/s]','[km/s]']

return,unitarray(q)
end