Lines Matching refs:nelblk
34 itpblk=nelblk
36 nelblk=0
58 nelblk=nelblk+1
61 lcblk(1,nelblk) = iel
63 lcblk(3,nelblk) = lcsyst
64 lcblk(4,nelblk) = ipordl
65 lcblk(5,nelblk) = nenl
66 lcblk(6,nelblk) = nfacel
67 lcblk(7,nelblk) = mattyp
68 lcblk(8,nelblk) = ndofl
69 lcblk(9,nelblk) = nsymdl
70 lcblk(10,nelblk) = nshl ! # of shape functions per elt
74 allocate (mmat(nelblk)%p(npro))
76 allocate (mien(nelblk)%p(npro,nshl))
77 allocate (mxmudmi(nelblk)%p(npro,maxsh))
79 allocate (mienG(nelblk)%p(1,1))
81 allocate (mienG(nelblk)%p(npro,nshl))
92 & mater, mien(nelblk)%p,
93 & mienG(nelblk)%p,
94 & mmat(nelblk)%p)
99 lcblk(1,nelblk+1) = iel