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

n=(ncdf_inquire(ncid)).nvars

names=strarr(n)

for i=0,n-1 do begin
    names[i]=(ncdf_varinq(ncid,i)).name
endfor

return,names

end