;+
; Programme de determination des dimension d'un cube
;
; INPUTs :
;  image : le cube dont on desire les dimensions
;
; OUTPUTs :
;  dim   : dimensions x,y,z... du cube
;  nbdim : nombre de dimension du cube
;
; AUTHOR
;  Christophe DUMAS
;
; LAST UPDATE
; 2006-Apr-12
;
;-
pro iminfo,image,dim,nbim

  siz=size(image)

  nbdim=fix(siz(0))
  dim=intarr(nbdim)
  for i=0,nbdim-1 do dim(i)=fix(siz(i+1))
  if (nbdim gt 2) then nbim=fix(siz(nbdim)) else nbim=1

  return

end