1!$Id:$
2      subroutine pangl(ix,nen,angl,angg,nrot)
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 value of angle for each element node
11
12!      Inputs:
13!         ix(nen) - Element nodal connection list
14!         nen     - Number of nodes connected to element
15!         angg(*) - Nodal angle array
16
17!      Outputs:
18!         angl(*) - Element angle array
19!         nrot    - Number of nodes needing modification
20!-----[--.----+----.----+----.-----------------------------------------]
21      implicit  none
22
23      integer   nen,nrot,ii,n
24      integer   ix(nen)
25      real*8    angl(nen),angg(*)
26
27      save
28
29!     Set up table of rotation angles
30
31      nrot = 0
32      do n = 1,nen
33         angl(n) = 0.0d0
34         ii = ix(n)
35         if (ii.gt.0) then
36            if (angg(ii).ne.0.0d0) then
37               angl(n) = angg(ii)
38               nrot = nrot + 1
39            endif
40         endif
41      end do
42
43      end
44