pro plt0624,dt121,dt122,dt123,dt124,dt1240

    ttl='crl1=150.550, crl2=190.505'
    ofl='test14_0624_2075_150.550_190.505.ps'
    tek_color
    psout,011,ofl
  ; mx=MAX(dt121) & mn=MIN(dt123)
    mx=MAX(dt121) & mn=MIN(dt121)
  ; plot,dt121,xrange=[0,14],yrange=[mn-0.07,mx+0.08],xsty=1,ysty=1,title=ttl,xtitle='CR Number from 2075 to 2089',ytitle='Time difference from crl1 to crl2 in days'
    plot,dt121,xrange=[0,14],yrange=[mn,mx],xsty=1,ysty=1,title=ttl,xtitle='CR Number from 2075 to 2089',ytitle='Time difference from crl1 to crl2 in days'
    oplot,dt122,line=2,color=2
    oplot,dt123,line=3,color=3
  ; dt124=fltarr(15)
  ; for i=0,14 do dt124(i)=-3.02718
    oplot,dt1240,line=4,color=4
    oplot,dt124,color=4
    oplot,[0.5,1.5],[-3.02,-3.02],color=0
    xyouts,2.0,-3.02,'Xuepu'
    oplot,[0.5,1.5],[-3.022,-3.022],line=4,color=4
    xyouts,2.0,-3.022,'Roger'
    oplot,[0.5,1.5],[-3.024,-3.024],color=4
    xyouts,2.0,-3.024,'Improved Roger'
    oplot,[0.5,1.5],[-3.026,-3.026],line=2,color=2
    xyouts,2.0,-3.026,'times only' 
    ddt=(dt124-dt1240)*86400
    mx=STRTRIM(MAX(ddt),2) & mn=STRTRIM(MIN(ddt),2)
    xyouts,5.5,-3.033,'Difference between blue solid and blue dashed:'
    xyouts,5.5,-3.034,'Maximum='+mx+'sec, Minimum='+mn+'sec'
    psdone
    print,ofl

end