Lines Matching refs:nshl
8 real*8 xKebe(npro,9,nshl,nshl), xGoC(npro,4,nshl,nshl)
9 integer ien(npro,nshl), col(nshg+1), row(nshg*nnz)
16 integer iens(npro,nshl)
27 do aa = 1, nshl ! loop over the local equation numbers
32 do b = 1, nshl ! local variable number tangent respect
82 integer ien(npro,nshl), col(nshg+1), row(nnz*nshg)
91 integer iens(npro,nshl)
102 do aa = 1, nshl !loop over matrix block column index
110 do b = 1, nshl
144 real*8 EGmass(npro, nshl, nshl) !only contains term (5,5)
145 integer ien(npro,nshl), col(nshg+1), row(nnz*nshg)
152 integer iens(npro,nshl)
162 do aa = 1, nshl !loop over matrix block column index
170 do b = 1, nshl
198 real*8 xSebe(npro,nshl,nshl)
199 integer ien(npro,nshl), col(nshg+1), row(nshg*nnz)
206 integer iens(npro,nshl)
217 do aa = 1, nshl
221 do b = 1, nshl