Commit 43ce5656 authored by Ian Boyd's avatar Ian Boyd

Replace idlcr8ascii.pro

parent 85aedb6d
;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
;
......
Markdown is supported
0%
or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment