up = 'UP*'
up = file_search(up)

for i = 0, n_elements(up)-1 do begin
        dir_star = file_search(up[i]+'/HD_136351')
        for j = 0, n_elements(dir_star)-1 do begin
;                print, dir_star[i]
;                dexp = file_search(dir_star[j]+'/*')

;                IF total(file_test(dexp)) ne 0 then begin
	        if total(file_test(dir_star[j]+'/one_exp/UVES-POP_science*.fits')) ne 0 then begin
				f = file_search(dir_star[j]+'/one_exp/UVES-POP_science*.fits')
				for k = 0, n_elements(f)-1 do file_delete, f[k]
			endif
			if total(file_test(dir_star[j]+'/one_exp/UVES-POP_sp*')) ne 0 then begin
                f = file_search(dir_star[j]+'/one_exp/UVES-POP_sp*')
                for k = 0, n_elements(f)-1 do file_delete, f[k]
            endif
			if total(file_test(dir_star[j]+'/one_exp/*R_CURVE.fits')) ne 0 then begin
                f = file_search(dir_star[j]+'/one_exp/*R_CURVE.fits')
                for k = 0, n_elements(f)-1 do file_delete, f[k]
            endif
			if total(file_test(dir_star[j]+'/one_exp/*png')) ne 0 then begin
	            f = file_search(dir_star[j]+'/one_exp/*png')
	            for k = 0, n_elements(f)-1 do file_delete, f[k]
	        endif
        endfor
endfor



END