c$Id: pltet4.f,v 1.1 2000/08/24 20:49:58 rlt Exp $
      subroutine pltet4(iel)

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 3-D Plot Sequence for 4-node tetrahedra

c      Inputs:
c         iel       - Element number: > 0 for user    elements
c                                     < 0 for program elements

c      Outputs:
c         none      - Sequesnce returned in common /pdata6/
c-----[--.----+----.----+----.-----------------------------------------]

      implicit  none

      include  'pdata5.h'
      include  'pdata6.h'

      integer   iel

      save

c     Set number of points

      if(iel.gt.0) then

        inord(iel)    = 9

c       Set plot sequence

        ipord( 1,iel) = 1
        ipord( 2,iel) = 2
        ipord( 3,iel) = 3
        ipord( 4,iel) = 1
        ipord( 5,iel) = 4
        ipord( 6,iel) = 2
        ipord( 7,iel) = 3
        ipord( 8,iel) = 4
        ipord( 9,iel) = 1

      elseif(iel.lt.0) then

        exord(-iel)    = 9

c       Set plot sequence

        epord( 1,-iel) = 1
        epord( 2,-iel) = 2
        epord( 3,-iel) = 3
        epord( 4,-iel) = 1
        epord( 5,-iel) = 4
        epord( 6,-iel) = 2
        epord( 7,-iel) = 3
        epord( 8,-iel) = 4
        epord( 9,-iel) = 1

      endif

      end