Replace idlcr8ascii.pro

idlcr8ascii.pro

-;Main Program Version: idlcr8ascii.pro v4.0b20, 20181116
+;Main Program Version: idlcr8ascii.pro v4.0b21, 20190514
 ;  Written by Ian Boyd for the AVDC - iboyd@astro.umass.edu
 ;
 ;Sub-versions:
@@ -73,6 +73,9 @@
 ;                    not consistent through the file i.e. rev_vd_vs eq 3. Now rev_vd_vs changes to 1 
 ;                    (VAR_SIZE, VAR_DEPEND and dataset ordering is reversed), but information message 
 ;                    advising of the issue is still reported.
+;  v4.0b21 20190514  - Fix bug that occurred when GEOMS variable attribute information is missing from an 
+;                    HDF4 file but written to the heap structure based on the contents of the file. Previously
+;                    the variable attribute label was not written correctly.
 
 PRO idlcr8ascii_common
 ;Procedure to define the data COMMON block WIDGET_WIN_A, containing common variables
@@ -192,7 +195,7 @@ COMMON WIDGET_WIN_A
 
 ;procedure which provides an introduction message before starting the program.
 nhdr=46 & errtxt=STRARR(nhdr)
-vertxt=['idlcr8ascii-v4.0_Readme.pdf','v4.0b20 November 2018']
+vertxt=['idlcr8ascii-v4.0_Readme.pdf','v4.0b21 May 2019']
 errtxt[1]='Welcome to IDLcr8ASCII.  This program reads GEOMS compliant HDF4, HDF5 and netCDF files and'
 errtxt[2]='saves contents to either session memory, an output window (summary only) or to ASCII or formatted'
 errtxt[3]='files (also refer to '+vertxt[0]+').'
@@ -887,6 +890,9 @@ PRO read_hdf_sds, ifile, ga, sds, catinfo
 ;              not consistent through the file i.e. rev_vd_vs eq 3. Now rev_vd_vs changes to 1
 ;              (VAR_SIZE, VAR_DEPEND and dataset ordering is reversed), but information message
 ;              advising of the issue is still reported - Version 4.0b20
+;    20190514  Fix bug that occurred when GEOMS variable attribute information is missing from an
+;              HDF4 file but written to the heap structure based on the contents of the file. Previously
+;              the variable attribute label was not written correctly - Version 4.0b21
 ;
 ;  Inputs: ifile - a string containing the name of the input file to be read in.
 ;          catinfo - a string array identifying the type of input file ('H4','H5','NC')
@@ -1222,7 +1228,7 @@ IF catinfo[0,0] EQ 'H4' THEN BEGIN
         ENDFOR
       ENDIF ELSE BEGIN ;No Variable Attributes found
         va_lab=['VAR_NAME','VAR_SIZE','VAR_DATA_TYPE']
-        FOR j=0,2 DO sds[oi[c_sds],j].va_l=PTR_NEW(va_lab)
+        FOR j=0,2 DO sds[oi[c_sds],j].va_l=PTR_NEW(va_lab[j])
         sds[oi[c_sds],0].va_v=PTR_NEW(sds_name)
         sds[oi[c_sds],1].va_v=PTR_NEW(sds_dim)
         ;Rename format to be compatible with the Metadata guidelines
@@ -1976,7 +1982,7 @@ PRO idlcr8ascii, ifile, ga, sds, reterr, $
 ;
 ;Program documentation, idlcr8ascii-v4.0_Readme.pdf, available on http://avdc.gsfc.nasa.gov.
 ;
-;Program sub-version 4.0b20 (20181116)
+;Program sub-version 4.0b21 (20190514)
 ; ----------
 ;Written by Ian Boyd for the AVDC - iboyd@astro.umass.edu
 ;