Changeset 338 for trunk/SRC/ReadWrite/ncdf_getatt.pro

Timestamp:

03/20/08 23:06:02 (16 years ago)

Author:

smasson

Message:

update documentation

File:

• trunk/SRC/ReadWrite/ncdf_getatt.pro (modified) (3 diffs)

trunk/SRC/ReadWrite/ncdf_getatt.pro

@@ -49 +49 @@
 ; does not exist.
 ;
+; @keyword DOUBLE {default=0} {type=1 or 0}
+; activate to force double-precision floating-point value of
+; add_offset and scale_factor
+;
 ; @keyword standard_name
 ; Set this keyword to a named variable in which the value of
 ; standard_name (CF convention) is returned. Return empty string 
 ; if this attribute does not exist.
+;
+; @keyword _EXTRA
+; defined only to be able to call ncdf_getatt with the _extra keyword
 ;
 ; @examples
@@ -64 +71 @@
 ;
 ;-
-PRO ncdf_getatt, fileid, varid, add_offset = add_offset, scale_factor = scale_factor $
-                 , missing_value = missing_value, units = units, calendar = calendar $
-                 , long_name = long_name, standard_name = standard_name
+PRO ncdf_getatt, fileid, varid, ADD_OFFSET = add_offset, SCALE_FACTOR = scale_factor $
+                 , MISSING_VALUE = missing_value, UNITS = units, CALENDAR = calendar $
+                 , LONG_NAME = long_name, STANDARD_NAME = standard_name, DOUBLE = double $
+                 , _extra = ex
 ;
   compile_opt idl2, strictarrsubs
@@ -131 +139 @@
     ENDELSE
   ENDIF
-
+;
+  IF keyword_set(double) THEN BEGIN
+    add_offset = double(add_offset)
+    scale_factor = double(scale_factor)
+  ENDIF ELSE BEGIN 
+    add_offset = float(add_offset)
+    scale_factor = float(scale_factor)
+  ENDELSE
+;
   IF size(fileid, /type) EQ 7 THEN ncdf_close, cdfid