Commit bbfbad18 authored by Ian Boyd's avatar Ian Boyd

Replace cds_convert.pro

parent 603c31f8
......@@ -81,6 +81,7 @@
; latest idlcr8hdf that allows for HDF5 compression
; 2019-05-06, v2.0b58 Ian Boyd Update due to fix in idlcr8hdf
; 2019-05-14, v2.0b59 Ian Boyd Update due to fix in idlcr8ascii
; 2019-08-07, v2.0b60 Ian Boyd Update due to modifications to idlcr8ascii and idlcr8hdf
;---------------------------------------------------------------------------------------------------
PRO cds_convert_common
;Procedure to define the COMMON blocks for this program
......@@ -149,7 +150,7 @@ PRO intro
;Subroutines Called: INTRO_EVENT (via XMANAGER)
nhdr=22 & errtxt=STRARR(nhdr)
vertxt=['cds_convert_Readme.pdf',' Release v2.0b59, May 2019']
vertxt=['cds_convert_Readme.pdf',' Release v2.0b60, August 2019']
errtxt[1]='Conversion Data Suite (CDS): cds_convert'
errtxt[2]=vertxt[1]
errtxt[3]=' Converts supported original data into GEOMS compliant HDF data.'
......@@ -165,7 +166,7 @@ errtxt[14]='1 (M): CDSMATCHINPUT is the path to the output of cds_match with a l
errtxt[15]='2 (S): TRANSFILE is the path to the CDS compliant translation file'
errtxt[16]='3: TAVFILE is the path of the TAV file, you want to convert with'
errtxt[17]='4: OUTPUTDIR is the path of the output directory of the converted file'
errtxt[18]='5: DATAFORMAT: 0: HDF4; 1: HDF5; 2: netCDF'
errtxt[18]='5: DATAFORMAT: 0: HDF4; 1: HDF5; 2: netCDF3; 3: netCDF4'
errtxt[19]='6 (S): ORIGFILE is the path to the original file, you want to convert'
errtxt[21]='To continue, please choose from the options below (Note: HDF5 only available on IDL6.2 or greater).'
errtxt=' '+errtxt
......@@ -178,12 +179,12 @@ b1=WIDGET_BUTTON(base2,value='HDF4 (Single)',uvalue='S',frame=3) ;,Tooltip=Tip)
IF FLOAT(!Version.Release) GE 6.2 THEN $
b2=WIDGET_BUTTON(base2,value='HDF5 (Single)',uvalue='h5S',frame=3) $;,Tooltip=Tip) $
ELSE b2=WIDGET_BUTTON(base2,value='HDF5 (Single)',Sensitive=0,frame=3)
b4=WIDGET_BUTTON(base2,value='netCDF (Single)',uvalue='ncS',frame=3)
b4=WIDGET_BUTTON(base2,value='netCDF3 (Single)',uvalue='ncS',frame=3)
b5=WIDGET_BUTTON(base2,value='HDF4 (Multiple)',uvalue='M',frame=3) ;,Tooltip=Tip)
IF FLOAT(!Version.Release) GE 6.2 THEN $
b6=WIDGET_BUTTON(base2,value='HDF5 (Multiple)',uvalue='h5M',frame=3) $;,Tooltip=Tip) $
ELSE b6=WIDGET_BUTTON(base2,value='HDF5 (Multiple)',Sensitive=0,frame=3)
b7=WIDGET_BUTTON(base2,value='netCDF (Multiple)',uvalue='ncM',frame=3)
b7=WIDGET_BUTTON(base2,value='netCDF3 (Multiple)',uvalue='ncM',frame=3)
b3=WIDGET_BUTTON(base2,value='Stop',uvalue='CANCEL',frame=3) ;,ToolTip=Tip)
WIDGET_CONTROL,base,/Realize
......
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