1!$Id:$
2      subroutine pltpt1(iel)
3
4!      * * F E A P * * A Finite Element Analysis Program
5
6!....  Copyright (c) 1984-2017: Regents of the University of California
7!                               All rights reserved
8
9!-----[--.----+----.----+----.-----------------------------------------]
10!      Purpose: Set 3-d Plot Sequence for 1-node point elements
11
12!      Inputs:
13!         iel       - Element type number
14
15!      Outputs:
16!         none      - Output through common block data
17!-----[--.----+----.----+----.-----------------------------------------]
18
19      implicit  none
20
21      include  'pdata5.h'
22      include  'pdata6.h'
23
24      integer   iel
25
26      save
27
28!     Set number of points
29
30      if(iel.gt.0) then
31
32        inord(iel)    = -1
33
34      elseif(iel.lt.0) then
35
36        exord(-iel)    = -1
37
38      endif
39
40      end
41