Lines Matching refs:nelblk
34 itpblk=nelblk
71 nelblk=0
103 nelblk=nelblk+1
105 lcblk(1,nelblk) = iel
106 lcblk(3,nelblk) = lcsyst
107 lcblk(4,nelblk) = ipordl
108 lcblk(5,nelblk) = nenl
109 lcblk(6,nelblk) = nfacel
110 lcblk(7,nelblk) = mattyp
111 lcblk(8,nelblk) = ndofl
112 lcblk(9,nelblk) = nsymdl
113 lcblk(10,nelblk) = nshl ! # of shape functions per elt
117 allocate (mmat(nelblk)%p(npro))
119 allocate (mien(nelblk)%p(npro,nshl))
120 allocate (mxmudmi(nelblk)%p(npro,maxsh))
122 allocate (mienG(nelblk)%p(1,1))
124 allocate (mienG(nelblk)%p(npro,nshl))
135 & mater, mien(nelblk)%p,
136 & mienG(nelblk)%p,
137 & mmat(nelblk)%p)
144 lcblk(1,nelblk+1) = iel