pro violetsfromDSsummary

;This program extracts the Violet Photometer data from the Data Set summary (DS_summary).

cd,'',current=cdir & cd,cdir	    ;establishes cdir as current directory

close,1
openr,1,"DS_Summary"

close,2
openw,2,"VioletData.out"
printf,2,cdir

line=''
readf,1,line & printf,2,line 	;first line contains original log address
printf,2						;blank line
readf,1,line & printf,2,line	;second line is column header

while not eof(1) do begin
 readf,1,line
 ;stop
 if strpos(line,'ULV ') eq -1 and strpos(line,'DLV ') eq -1 then goto,nextline
  printf,2,line
 nextline:
endwhile

close,/all
print,'Done!'
end