PRO process,tape,set1,set2,year,month,day $
           ,nopause=nopause,noafter=noafter,nobefore=nobefore $
           ,noload=noload,nocheck=nocheck,noprocess=noprocess $
           ,noclean=noclean,nocal=nocal

IF N_PARAMS() LT 6 THEN BEGIN
    PRINT,"process,tape,set1,set2,year,month,day $ "
    PRINT,"       ,nopause=nopause,noafter=noafter,nobefore=nobefore $"
    PRINT,"       ,noload=noload,nocheck=nocheck,noprocess=noprocess $"
    Print,"       ,noclean=noclean,nocal=nocal"
    RETURN
    ENDIF

@isitdos

CD,!DIR,CURRENT=now

IF NOT KEYWORD_SET(nocheck) THEN BEGIN
    summary=qgetfile(tapeinforoot+dd+tape+'.sum')
    d=WHERE((STRPOS(summary,'Dataset') NE -1) AND $
            (STRPOS(summary,'Created') NE -1),nd)
    PRINT,summary(d(set1-1))
    PRINT,summary(d(set2-1))
    IF NOT KEYWORD_SET(nopause) THEN BEGIN
        k=GET_KBRD(1)
        IF STRUPCASE(k) EQ 'Q' THEN RETURN
        ENDIF
    ENDIF

IF NOT KEYWORD_SET(noload) THEN BEGIN

    IF NOT KEYWORD_SET(noafter) THEN BEGIN
        caldat,julday(month,day,year)-1,am,ad,ay
        after=STRING(am,ad,ay MOD 100 $
                    ,FORMAT='(I2.2,"/",I2.2,"/",I2.2,":23:50")')
        ENDIF

    IF NOT KEYWORD_SET(nobefore) THEN BEGIN
        caldat,julday(month,day,year)+1,bm,bd,by
        before=STRING(bm,bd,by MOD 100 $
                     ,FORMAT='(I2.2,"/",I2.2,"/",I2.2,":00:10")')
        ENDIF
    t0=SysTime(1)
    novastor,'RST',tape=tape,set=set1,after=after,before=before,log=2,unit=27 $
            ,/replace,/sub,/rewind,quick=-1,files='C:' $
            ,pause=(1-KEYWORD_SET(nopause))
    Print,SysTime(1)-t0,' sec elapsed...'
    WAIT,60
    t0=SysTime(1)
    novastor,'RST',tape=tape,set=set2,after=after,before=before,log=2,unit=27 $
            ,/replace,/sub,/rewind,quick=-1,files='C:' $
            ,pause=(1-KEYWORD_SET(nopause))
    Print,SysTime(1)-t0,' sec elapsed...'

    ENDIF

ucall,year,month,day,/script
IF NOT Keyword_Set(nocal) THEN reducaln,year,month,day,0,r0,/notv
IF NOT Keyword_Set(nocal) THEN reducaln,year,month,day,1,r1,/notv
IF NOT KEYWORD_SET(noprocess) THEN BEGIN
    newql,year,month,day,0,0,1,/batch,/intens,/diffbg,/save,/qlim $
         ,wlsave=[558,608,630,785,820,829,835]
    plot_ql,year,month,day,/ps
    ENDIF
storlogs,year,month,day
today=julday(month,day,year)
caldat,today-1,ymonth,yday,yyear
storlogs,yyear,ymonth,yday
plottlog,year,month,day,/ps
; datestr=STRING(year MOD 100,month,day,FORMAT='(3I2.2)')
; PRINT,rfindfile(ilist_root+dd+datestr+'_2'+ilist_suffix,count=nf),nf
IF NOT (KEYWORD_SET(noprocess) OR Keyword_Set(noclean)) THEN BEGIN
    cleanup,year,month,day,/force
    cleanup,yyear,ymonth,yday,/force
    ENDIF

RETURN
END