Lines Matching refs:nelblk
34 itpblk=nelblk
75 nelblk=0
112 nelblk=nelblk+1
114 lcblk(1,nelblk) = iel
115 lcblk(3,nelblk) = lcsyst
116 lcblk(4,nelblk) = ipordl
117 lcblk(5,nelblk) = nenl
118 lcblk(6,nelblk) = nfacel
119 lcblk(7,nelblk) = mattyp
120 lcblk(8,nelblk) = ndofl
121 lcblk(9,nelblk) = nsymdl
122 lcblk(10,nelblk) = nshl ! # of shape functions per elt
126 allocate (mmat(nelblk)%p(npro))
128 allocate (mien(nelblk)%p(npro,nshl))
129 allocate (mxmudmi(nelblk)%p(npro,maxsh))
131 allocate (mienG(nelblk)%p(1,1))
133 allocate (mienG(nelblk)%p(npro,nshl))
144 & mater, mien(nelblk)%p,
145 & mienG(nelblk)%p,
146 & mmat(nelblk)%p)
153 lcblk(1,nelblk+1) = iel