;|-----------------------------------------------------------------|
;|                                                                 |
;|    Subroutine HDFREAD                                           |
;|                                                                 |
;|    reads DUCT and IDM data from UTD HDF files.                  |
;|                                                                 |
;|-----------------------------------------------------------------|

pro hdfread

@gia_var.inc

filename=' '
name=' '
 readf,1,name

 name=strmid(name,1,7) 

 filename='/usr35/dynexp/hdf/duct/DE2HDF'+strtrim(number,2)+'/D'+strtrim(name,2)+'.HDF'
 print,filename

 HDF_DFSD_GETINFO, filename, dims = ddimsizes
 print,'data dimensions are ',ddimsizes
 ddata  = fltarr(ddimsizes(0),ddimsizes(1))
 HDF_DFSD_GETDATA, filename, ddata
 

 filename='/usr35/dynexp/hdf/drift/DE2HDF'+strtrim(number,2)+'/I'+strtrim(name,2)+'.HDF'
 print,filename

 HDF_DFSD_GETINFO, filename, dims = idimsizes
 print,'data dimensions are ',idimsizes
 idata  = fltarr(idimsizes(0),idimsizes(1))
 HDF_DFSD_GETDATA, filename, idata

 end;---------------------------------------------------------------------------------------