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

pro asciiread

@gia_var.inc


tempdat=fltarr(11)
wdata=fltarr(22,10000)

j=0
while not eof(2) do begin

	readf, 2, tempdat, format ="(i6,i9,i4,i3,e12.5,f7.1,f7.1,f8.1,i6,i5,i7)"
	wdata(0:10,j)=tempdat(*)
	readf, 2, tempdat, format ="(f9.1,f8.1,i6,f7.1,f6.1,f7.1,f6.2,f6.2,f5.2,f6.1,f7.1)"
	wdata(11:21,j)=tempdat(*)
	j=j+1
endwhile
wcolumns=j

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