pro plt0625,dt121,dt122,dt1220,dt123,dt124,dt1240,crl2

    scrl2=strmid(strtrim(crl2,2),0,7)
print,'crl2,scrl2:',crl2,' ',scrl2
    ttl='crl1=150.550, crl2='+scrl2
    ofl='p1test14_0625_2075_150.550_'+scrl2+'.ps'
    dt121=dt121*24
    dt122=dt122*24
    dt1220=dt1220*24
;   dt123=dt123*24
    dt124=dt124*24
    dt1240=dt1240*24
    
    tek_color
    psout,011,ofl
    mx=MAX(dt121) & mn=MIN(dt121)
    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 hrs',/nodata
    dy=(mx-mn)/18.
    yy=indgen(18)*dy+mn
    oplot,dt1240,line=0,color=4,thick=3
    oplot,[0.5,1.5],[yy(15),yy(15)],line=0,color=4,thick=3
    xyouts,2.0,yy(15),'Roger'
    oplot,dt121,color=2,thick=3
    oplot,[0.5,1.5],[yy(13),yy(13)],color=2,thick=3
    xyouts,2.0,yy(13),'Xuepu'
    oplot,dt1220,line=2,color=2
    oplot,[0.5,1.5],[yy(11),yy(11)],line=2,color=2
    xyouts,2.0,yy(11),'times' 
    oplot,dt122,color=3,line=2,thick=3
    oplot,[0.5,1.5],[yy(9),yy(9)],color=3,line=2,thick=3
    xyouts,2.0,yy(9),'Phil' 
    ddt=(dt121-dt1240)
    mx=STRMID(STRTRIM(MAX(ddt),2),0,5) & mn=STRMID(STRTRIM(MIN(ddt),2),0,6)
    xyouts,5.5,yy(2),'Difference between red solid and blue solid:'
    xyouts,5.5,yy(1),'Maximum='+mx+' hrs, Minimum='+mn+' hrs'
   ;oplot,dt1240,line=0,color=4,thick=3
   ;oplot,[0.5,1.5],[-3.02,-3.02],line=0,color=4,thick=3
   ;xyouts,2.0,-3.02,'Roger'
   ;oplot,dt121,color=2,thick=3
   ;oplot,[0.5,1.5],[-3.022,-3.022],color=2,thick=3
   ;xyouts,2.0,-3.022,'Xuepu'
   ;oplot,dt1220,line=2,color=2
   ;oplot,[0.5,1.5],[-3.024,-3.024],line=2,color=2
   ;xyouts,2.0,-3.024,'times' 
   ;oplot,dt122,color=3,line=2,thick=3
   ;oplot,[0.5,1.5],[-3.026,-3.026],color=3,line=2,thick=3
   ;xyouts,2.0,-3.026,'Phil' 
   ;ddt=(dt121-dt1240)*86400
   ;mx=STRTRIM(MAX(ddt),2) & mn=STRTRIM(MIN(ddt),2)
   ;xyouts,5.5,-3.033,'Difference between red solid and blue solid:'
   ;xyouts,5.5,-3.034,'Maximum='+mx+'sec, Minimum='+mn+'sec'
    psdone
    print,ofl

end