PRO drop_10s,year,month,day,ndropped

date=STRING(year MOD 100,month,day,FORMAT='(3I2.2)')
filename='/jasper/cnsr3_data1/ql/'+date+'02.ql'
in=getfile(filename,error=flag)
IF NOT flag THEN BEGIN
    n=N_ELEMENTS(in)
    times=FLTARR(n)
    FOR i=0,n-1 DO BEGIN
        READS,in(i),t
        times(i)=t
        ENDFOR
    dt=ABS(SHIFT(times,-1)-times)
    sixties=WHERE(dt GT 50,nsixties)
    out=in(sixties)
    IF (N_PARAMS() EQ 4) THEN ndropped=n-nsixties
    putfile,filename,out
    ENDIF ELSE MESSAGE,'No data in '+filename,/INFORMATIONAL
RETURN
END