From 504cc76c0b2cdce952d479367c3380200f2656f7 Mon Sep 17 00:00:00 2001
From: Ian Boyd <iboyd@astro.umass.edu>
Date: Wed, 27 Nov 2024 00:38:11 +0000
Subject: [PATCH] Replace idlcr8hdf.pro
---
idlcr8hdf.pro | 10 +++++++---
1 file changed, 7 insertions(+), 3 deletions(-)
diff --git a/idlcr8hdf.pro b/idlcr8hdf.pro
index 9b0eee7..0ab1c94 100644
--- a/idlcr8hdf.pro
+++ b/idlcr8hdf.pro
@@ -1,4 +1,4 @@
-;Main Program Version: idlcr8hdf.pro v4.0b66, 20241111
+;Main Program Version: idlcr8hdf.pro v4.0b66, 20241126
; Written by Ian Boyd for the EVDC/AVDC - iboyd@bryanscientific.org
;
;Sub-versions (refer to idlcr8hdf-v4.0_Readme.pdf for full history)
@@ -3016,6 +3016,9 @@ PRO check_metadata
; GEOMS_RULE_CHANGES to do checks on the value - Version 4.0b53
; 20240912: Allow for VAR_SI_CONVERSION to have two possible values depending on the ordering of units
; that have the same power value e.g. m-1 sr-1 or sr-1 m-1 - Version 4.0b64
+; 20241126: Ensure the number of sub-values present in the file match the expected number by, if
+; necessary, adding dummy values to the arttribute entry e.g. For DATA_DISCIPLINE ensure
+; there are 3 entries - Version 4.0b66
;
; Inputs: meta_arr - a string array containing the Global and Variable Attributes
; tab_arr - a string array containing the TAV or table.dat file attributes
@@ -3297,6 +3300,7 @@ FOR i=0,N_ELEMENTS(meta_arr)-1 DO BEGIN
IF mcnt GT 1 THEN itxt='sub-' ELSE itxt=''
infotxt='3 Number of '+itxt+'values for attribute '+meta_arr[i]+' should be '+STRTRIM(mcnt,2)
INFOTXT_OUTPUT,infotxt
+ IF nel LT mcnt THEN FOR j=nel,mcnt-1 DO achk=[achk,' ']
;STOP_WITH_ERROR,o3[3]+proname+meta_arr[i]+': ',errtxt[1]+STRTRIM(mcnt,2)+'.',lu
;RETURN
ENDIF
@@ -6162,7 +6166,7 @@ PRO idlcr8hdf, ga, sds, tav, odir, reterr, H5=o1, AVK=o2, LOG=o4, POPUP=o5, QA=o
;
;Program documentation, idlcr8hdf-v4.0_Readme.pdf, available from http://avdc.gsfc.nasa.gov.
;
-;Program sub-version 4.0b66 (20241111)
+;Program sub-version 4.0b66 (20241126)
; ----------
;Written by Ian Boyd for the EVDC/AVDC - iboyd@bryanscientific.org
;
@@ -6213,7 +6217,7 @@ PRO idlcr8hdf, ga, sds, tav, odir, reterr, H5=o1, AVK=o2, LOG=o4, POPUP=o5, QA=o
; 20180218: Ensure variable attribute value (vav) is only a single variable when calling
; PRE_DEFINED_ATT_CHECKS - Version 4.0b45
; 20181221: Allow compression and shuffle options when creating HDF5 files - Version 4.0b49
-; 20241111: Fix bug to treat BYTE metadata entries the same as other numeric datatypes when
+; 20241126: Fix bug to treat BYTE metadata entries the same as other numeric datatypes when
; writing metafile array from session memory input. Previously STRING(FIX(vav[k])) and
; changed to STRTRIM(FIX(vav[k]),2) - Version 4.0b66
;
--
GitLab