1 subroutine gensav (ientmp, mattmp, ien, 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 include "common.h" 20c 21 dimension ientmp(npro,nshl), 22 & mattmp(npro), ien(npro,nshl), 23 & mater(npro) 24c 25c.... save the element data 26c 27 do i = 1, nshl 28 ien(:,i) = ientmp(:,i) 29 enddo 30c 31 mater = mattmp 32c 33c.... end 34c 35 return 36 end 37