subroutine pltline(toplab,xlab,x,mxx,nx,y,mxy,ny)
c
c     call pltline('Daily 10.7 cm Solar Flux',xlab,xdays,365,365,
c    +  f107g,mxngpi,ndas)
c
      character*(*) toplab,xlab
      dimension y(mxy),x(mxx)
c
      call displa(2,1,1)
      call anotat(xlab(1:lenstr(xlab)),' ',0,1,-1,l)
      call ezxy(x,y,ny,toplab(1:lenstr(toplab)))
      call frame
      return
      end       
c
      function lenstr(str)
      character*(*) str
c
c Return index to last non-blank char in str
c
      length = len(str)
      do i=length,1,-1
        if (str(i:i).ne.' ') then
          lenstr = i
          return
        endif
      enddo
      lenstr = 0
      return
      end