Changeset 70 for trunk/ReadWrite/idl-NetCDF/ncdf_listdims.pro

Timestamp:

05/16/06 14:41:08 (18 years ago)

Author:

pinsard

Message:

update according to idl-NetCDF-v04.tar.gz available via ​http://www.ittvis.com/codebank/search.asp?FID=418; side effects are not tested

File:

• trunk/ReadWrite/idl-NetCDF/ncdf_listdims.pro (modified) (1 diff)

trunk/ReadWrite/idl-NetCDF/ncdf_listdims.pro

@@ -1 @@
-FUNCTION ncdf_listdims, ncid, sizes = sizes
+FUNCTION ncdf_listdims,ncid
 
-  n = (ncdf_inquire(ncid)).ndims
+n=(ncdf_inquire(ncid)).ndims
 
-  sizes = lonarr(n)
-  names = strarr(n)
+names=strarr(n)
 
-  for i = 0, n-1 do begin
-    ncdf_diminq, ncid, i, name, size
-    names[i] = name
-    sizes[i] = size
-  endfor
+for i=0,n-1 do begin
+    ncdf_diminq,ncid,i,name,size
+    names[i]=name
+endfor
 
-  return, names
+return,names
 
 end