c
      subroutine pltslt(satut,satlon,npts,vp,chsize) 
c
c Make line plot with local time on y-axis, ut on x-axis
c On input 
c   satut(npts) is array of ut's
c   satlon(npts) is array of longitudes
c   vp(4) = normalized viewport
c
      dimension satut(npts),satlon(npts),slt(npts),vp(4)
      character*16 dashpat
      data dashpat/'$''$''$''$''$''$''$''$'''/
c
      do i=1,npts
        slt(i) = fslt(dum,satut(i),satlon(i),1)
      enddo
      call getset(pl,pr,pb,pt,wl,wr,wb,wt,lty)
      call agsetf("SET.",4.)
      call set(vp(1),vp(2),vp(3),vp(4),satut(1),satut(npts),0.,24.,1)
c
c x-axis:
      call agsetc("LABEL/NAME.","B")
      call agsetr("LABEL/DEF/SUPPRESSION.",1.)
c
c y-axis:
      call agsetc("LABEL/NAME.","L")
      call agseti("LINE/NUMBER.",100)
      call agsetf("LINE/CHARACTER.",.015)
      call agsetc("LINE/TEXT.",'SLT (HRS)')

      call agstup(satut,1,0,npts,1, slt,1,0,npts,1)
      call agback
      call agcurv(satut,1,slt,1,npts,1)
      call dashdc(dashpat,8,2)
      call lined(satut(1),12.,satut(npts),12.)
c
      call set(pl,pr,pb,pt,wl,wr,wb,wt,lty)
      call agsetc("LABEL/NAME.","B")
      call agsetr("LABEL/DEF/SUPPRESSION.",0.)
      return
      end