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