;********************************************************************
;This procedure isolates the number of lines from the 
;output from wc-l (contained in word_count.dat) and
;writes it to num_lines.dat
;*******************************************************************
pro get_num_lines

;open the file containing the output from wc -l and read
;in the number of lines
openr,10,'word_count.dat'
readf,10,contents
close,10

;change the number to and integer
contents=fix(contents)

;Write this number to a new file, num_lines.dat
openw,20,'num_lines.dat'
;printf,20,10
printf,20,contents
close,20
;The line at which to start reading the file
openw,30,'start.dat'
printf,30,5
close,30
print,'done with get_num_lines'

end