Skip to content
GitLab
Projects
Groups
Snippets
/
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in
Toggle navigation
Menu
Open sidebar
geoms
idlcr8
Commits
05d749f2
Commit
05d749f2
authored
May 14, 2019
by
Ian Boyd
Browse files
Replace idlcr8ascii.pro
parent
46192cf0
Changes
1
Hide whitespace changes
Inline
Side-by-side
idlcr8ascii.pro
View file @
05d749f2
;
Main
Program
Version
:
idlcr8ascii
.
pro
v4
.
0
b2
0
,
201
81116
;
Main
Program
Version
:
idlcr8ascii
.
pro
v4
.
0
b2
1
,
201
90514
;
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
.
0
b2
0
November
201
8
']
vertxt=['idlcr8ascii
-
v4
.
0
_Readme
.
pdf','v4
.
0
b2
1
May
201
9
']
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.0
b2
0
(
201
81116
)
;
Program
sub
-
version
4.0
b2
1
(
201
90514
)
;
----------
;
Written
by
Ian
Boyd
for
the
AVDC
-
iboyd
@
astro
.
umass
.
edu
;
...
...
Write
Preview
Supports
Markdown
0%
Try again
or
attach a new file
.
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment