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