pro test,crn,crl1,crl2

    if n_params( ) lt 1 then begin
       print,'test,crn,crl1,crl2'
       print,'crn=2081 & crl1=150.550 & crl2=190.505'
       return
    endif
    date_crncrlz1,crn,crl1,date1
    date_crncrlz1,crn,crl2,date2
    fday_date,date1,fday1,year,month1
    fday_date,date2,fday2,year,month2
    dt1=fday2-fday1
    print,date1,' ',date2
    print,'z1-dt1:',dt1
;
    CASE 1 OF
     crl1 lt 10: scrl1='00'+STRTRIM(crl1,2)
     crl1 lt 100: scrl1='0'+STRTRIM(crl1,2)
     else: scrl1=STRTRIM(crl1,2)
    ENDCASE
    scrncl0=STRTRIM(crn,2)+':'+scrl1
    time_crncl0,scrncl0,date1
    CASE 1 OF
     crl2 lt 10: scrl2='00'+STRTRIM(crl2,2)
     crl2 lt 100: scrl2='0'+STRTRIM(crl2,2)
     else: scrl2=STRTRIM(crl2,2)
    ENDCASE
    scrncl0=STRTRIM(crn,2)+':'+scrl2
    time_crncl0,scrncl0,date2
    fday_date,date1,fday1,year,month1
    fday_date,date2,fday2,year,month2
    dt2=fday2-fday1
    print,date1,' ',date2
    print,'z2-dt2:',dt2
;   
    dct=(1-crl2/360.) - (1-crl1/360.)
    dt4=dct*27.2753
    print,'z4-dt4:',dt4
;
    date_crncrlz3,crn,crl1,date1
    date_crncrlz3,crn,crl2,date2
    fday_date,date1,fday1,year,month1
    fday_date,date2,fday2,year,month2
    print,date1,' ',date2
    dt3=fday2-fday1
    print,'z3-dt3:',dt3

end