1!$Id:$
2      subroutine pfacex(il,ix,ixf,nen,nen1,nf,n)
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 up nodes for faces
11
12!      Inputs:
13!         il(*)   - Location of face nodes on element
14!         ix(*)   - Node numbers on elements
15!         nen     - Number of nodes on element
16!         nen1    - Location of material set number on element
17!         n       - Element number
18
19!      Outputs:
20!         ixf(*)  - Face nodes
21!         nf      - Face number
22!-----[--.----+----.----+----.-----------------------------------------]
23      implicit  none
24
25      integer   nen,nen1,nf,n, j
26      integer   il(4),ix(nen1)
27      integer   ixf(7)
28
29      save
30
31!     Set face nodes
32
33      do j = 1,min(4,nen)
34        ixf(j) = ix(il(j))
35      end do
36
37!     Set region and material number
38
39      ixf(5) = n
40      ixf(6) = ix(nen1-1)
41      ixf(7) = ix(nen1)
42      nf = nf + 1
43
44      end
45