1 subroutine gensav (ientmp, mattmp, ien, ienG, mater) 2c 3c---------------------------------------------------------------------- 4c 5c This routine saves the element block data. 6c 7c input: 8c ientmp (npro,nshl) : nodal connectivity 9c mattmp (npro) : material type flag 10c 11c output: 12c ien (npro,nshl) : nodal connectivity 13c mater (npro) : material type flag 14c 15c 16c Zdenek Johan, Winter 1992. 17c---------------------------------------------------------------------- 18c 19 use readarrays 20 use fncorpmod 21 include "common.h" 22c 23 dimension ientmp(npro,nshl), 24 & mattmp(npro), ien(npro,nshl), 25 & mater(npro) 26 integer*8 ienG(npro,nshl) 27c 28c.... save the element data 29c 30 do i = 1, nshl 31 ien(:,i) = ientmp(:,i) 32 enddo 33 if(usingpetsc.eq.1) then 34 do i = 1, nshl 35 if(numpe .ne. 1) then 36 ienG(:,i) = fncorp(abs(ientmp(:,i))) 37 else 38 ienG(:,i) = abs(ientmp(:,i)) 39 endif 40 enddo 41 endif 42c 43 mater = mattmp 44c 45c.... end 46c 47 return 48 end 49