Lines Matching refs:nshl
17 dimension ien(npro,nshl), sgn(npro,nshl)
19 do i=nenl+1,nshl
37 dimension shp(nshl,ngauss), shgl(nsd,nshl,ngauss),
38 & sgn(npro,nshl), shape(npro,nshl),
39 & shdrv(npro,nsd,nshl)
49 do i=nenl+1,nshl
67 dimension shp(nshl,ngaussb), shgl(nsd,nshl,ngaussb),
68 & sgn(npro,nshl), shape(npro,nshl),
69 & shdrv(npro,nsd,nshl)
79 do i=nenl+1,nshl
244 & shp(nshl,npts), shgl(nsd,nshl,npts),
268 nshl = lcblk(10,iblk)
272 allocate ( ycl(npro,nshl,ndof ) )
273 allocate ( yvl(npro,nshl,nvars) )
275 allocate ( sgn(npro,nshl) )
325 real*8 ycl(npro,nshl,ndof), yvl(npro,nshl,nvars),
326 & sgn(npro,nshl), shape(npro,nshl),
327 & shdrv(npro,nsd,nshl), shp(nshl,npts),
328 & shgl(nsd,nshl,npts), xl(npro,nenl,nsd),
329 & shg(npro,nshl,nsd), gradV(npro,nsd,nsd),
343 do i = 1, nshl
355 do n = 1, nshl