Lines Matching refs:nshl
33 nshl = lcblk(10,iblk)
42 & shp(lcsyst,1:nshl,:),
43 & shgl(lcsyst,:,1:nshl,:),
62 nshl = lcblk(10,iblk)
72 & shp(lcsyst,1:nshl,:),
73 & shgl(lcsyst,:,1:nshl,:),
93 & shp(nshl,ngauss), shgl(nsd,nshl,ngauss),
94 & ien(npro,nshl), gradu(nshg,9),
95 & shdrv(npro,nsd,nshl), shape( npro, nshl ),
98 dimension yl(npro,nshl,ndof), xl(npro,nenl,nsd),
99 & ql(npro,nshl,9), dxidx(npro,nsd,nsd),
100 & WdetJ(npro), rmassl(npro,nshl)
103 dimension sgn(npro,nshl)
108 do i=1,nshl
139 do i=1,nshl
168 & shp(nshl,ngauss), shgl(nsd,nshl,ngauss),
169 & ien(npro,nshl), uhess(nshg,27),
170 & shdrv(npro,nsd,nshl), shape( npro, nshl ),
173 dimension gradul(npro,nshl,9), xl(npro,nenl,nsd),
174 & ql(npro,nshl,27), dxidx(npro,nsd,nsd),
175 & WdetJ(npro), rmassl(npro, nshl)
178 dimension sgn(npro,nshl)
183 do i=1,nshl
214 do i=1,nshl
298 dimension vector(npro,nshl,vsize),
299 & shgl(npro,nsd,nshl), xl(npro,nenl,nsd),
300 & gradient(npro,vsize*3), shg(npro,nshl,nsd),
359 do n = 1, nshl