;+
;FUNCTION spec2cube,spec,ydim,zdim
; Converts a 1D spectrum into a 3D cube with the spec at each (y,z) point
; for use making OSIRIS cubes
; Written by Conor Laver 22/6/2006
;-
FUNCTION spec2cube,spec,ydim,zdim
mid=fan(spec,ydim)
cube=dblarr(n_elements(spec),ydim,zdim)
for i=0,zdim-1 do cube[*,*,i]=mid
return,cube
end