;+
; @file_comments
;
;
; @categories
;
;
; @param NCID
;
;
; @restrictions
;
;
; @examples
; 
; 
; @history
;
;
; @version
; $Id$
;
;-
FUNCTION ncdf_listdims,ncid
;
  compile_opt idl2, strictarrsubs
;

n=(ncdf_inquire(ncid)).ndims

names=strarr(n)

for i=0,n-1 do begin
    ncdf_diminq,ncid,i,name,size
    names[i]=name
endfor

return,names

end