Lines Matching refs:nshl
40 dimension yl(npro,nshl,ndof),
41 & acl(npro,nshl,ndof),
42 & shp(nshl,ngauss), shgl(nsd,nshl,ngauss),
44 & rl(npro,nshl,nflow), ql(npro,nshl,idflx)
47 dimension xKebe(npro,9,nshl,nshl), xGoC(npro,4,nshl,nshl)
52 & g3yi(npro,ndof), shg(npro,nshl,nsd),
58 & xmudmi(npro,ngauss), sgn(npro,nshl),
59 & shpfun(npro,nshl), shdrv(npro,nsd,nshl),
64 dimension rlsl(npro,nshl,6), rlsli(npro,6)
66 real*8 rerrl(npro,nshl,6)
146 do ib = 1, nshl
179 real*8 yl(npro,nshl,ndof), acl(npro,nshl,ndof),
180 & shp(nshl,ngauss), shgl(nsd,nshl,ngauss),
181 & xl(npro,nenl,nsd), rl(npro,nshl),
182 & ql(npro,nshl,nsd), xSebe(npro,nshl,nshl),
183 & dwl(npro,nshl)
187 real*8 gradS(npro,nsd), shg(npro,nshl,nsd),
191 & sgn(npro,nshl), shpfun(npro,nshl),
192 & shdrv(npro,nsd,nshl), rLS(npro),