1!$Id:$
2      subroutine pelnum(tx,iel,errck)
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: Get material set numbers for FEAPpv elements
11
12!              Current FEAPpv Element Types
13!                 Name     |     iel
14!              ------------+-------------
15!               Solid      |     -1
16!               Truss      |     -2
17!               Frame      |     -3
18!               Plate      |     -4
19!               Shell      |     -5
20!               Membrane   |     -6
21!               Thermal    |     -7
22!               Convection |     -8
23!               Point      |     -9
24
25!      Inputs:
26!         tx     - Name of element type requested
27
28!      Outputs:
29!         iel    - Element type for request
30!         errck  - Flag, true if request found
31!-----[--.----+----.----+----.-----------------------------------------]
32
33      implicit  none
34
35      logical   pcomp, errck
36      character tx*15
37      integer   iel
38
39      save
40
41      errck = .false.
42
43!     Register program element type names
44
45      if    (pcomp(tx,'soli',4)) then
46        iel = -1
47      elseif(pcomp(tx,'trus',4)) then
48        iel = -2
49      elseif(pcomp(tx,'fram',4)) then
50        iel = -3
51      elseif(pcomp(tx,'plat',4)) then
52        iel = -4
53      elseif(pcomp(tx,'shel',4)) then
54        iel = -5
55      elseif(pcomp(tx,'memb',4)) then
56        iel = -6
57      elseif(pcomp(tx,'ther',4)) then
58        iel = -7
59      elseif(pcomp(tx,'conv',4)) then
60        iel = -8
61      elseif(pcomp(tx,'poin',4)) then
62        iel = -9
63      else
64        errck = .true.
65      endif
66
67      end
68