c$Id: plline.f,v 1.1 2000/08/24 20:49:59 rlt Exp $
      subroutine plline(iln)

c      * * F E A P * * A Finite Element Analysis Program

c....  Copyright (c) 1984-2005: Robert L. Taylor
c                               All rights reserved

c-----[--+---------+---------+---------+---------+---------+---------+-]
c      Purpose: Set line style and type

c      Inputs:
c         iln(2)    - Line style: 1 = type; 2 = width

c      Outputs:
c         none      - Set output data through commons
c-----[--+---------+---------+---------+---------+---------+---------+-]

      implicit  none

      include  'pdata2.h'
      include  'pdatps.h'
      include  'plflag.h'
      include  'psdat5.h'

      character cvar*4
      integer   iln(2)
      real*8    wid

      save

c     Save line type

      ilno(1) = iln(1)
      ilno(2) = iln(2)

c     Change PostScript line attributes

      if (hdcpy) then

c        Change line type (corresponding to old Tek terminal defns)
c             iln(1) = 0   solid
c             iln(1) = 1   dotted
c             iln(1) = 2   dash-dot
c             iln(1) = 3   short dash
c             iln(1) = 4   long dash
c             iln(1) = 5   dot-dot-dash
c             iln(1) = 6   short dash-long dash
c             iln(1) = 7   wide dash

c       Close out a line before changing the line attributes
        if(lstrk .and.
     +    ((iln(1) .ne. dold) .or. (iln(2) .ne. lwold))) then
          call fppsin('s')
          call fppsdu()
          lstrk = .false.
        endif

        if (iln(1) .eq. dold) then
c         Do nothing
          continue
        elseif (iln(1) .eq. 0) then
          call fppsin(' l1 ')
c         call fppsin(' [] 0 d ')
        elseif (iln(1) .eq. 1) then
          call fppsin(' l2 ')
c         call fppsin(' [5 30] 0 d ')
        elseif (iln(1) .eq. 2) then
          call fppsin(' l3 ')
c         call fppsin(' [40 20 5 20] 0 d ')
        elseif (iln(1) .eq. 3) then
          call fppsin(' l4 ')
c         call fppsin(' [40] 0 d ')
        elseif (iln(1) .eq. 4) then
          call fppsin(' l5 ')
c         call fppsin(' [60] 0 d ')
        elseif (iln(1) .eq. 5) then
          call fppsin(' l6 ')
c         call fppsin(' [5 20 5 40 40 40] 0 d ')
        elseif (iln(1) .eq. 6) then
          call fppsin(' l7 ')
c         call fppsin(' [40 60 80 60] 0 d ')
        else
          call fppsin(' l8 ')
c         call fppsin(' [80] 0 d ')
        endif

c       Force a 'moveto' for next line

        lfill = .true.
        if (iln(1) .ne. dold) then
          call fppsdu()
          dold = iln(1)
        endif

c       Change line width

        if(iln(2) .ne. lwold) then
          wid = float(iln(2))
          if( wid .eq. 0.0 ) wid = 1.0
          write(cvar,'(f4.1)') wid*4.0
          call fppsin(' '//cvar//' lw ')
          call fppsdu()
          lwold = wid
        endif
      endif

c     Set line type

      if(iln(1).ge.0) then
         iln(1) = max(0,min(7,iln(1)))
      else
         iln(1) = mod(iln(1)+1, 8)
      endif

      end