Lines Matching refs:nshl
34 & shp(nshl,MAXQPT), shgl(nsd,nshl,MAXQPT),
35 & em(npro,nshl,nshl),
38 dimension shape(npro,nshl), shdrv(npro,nsd,nshl),
39 & sgn(npro,nshl), dxidx(npro,nsd,nsd),
40 & shg(npro,nshl,nsd),
59 do na = 1, nshl
60 do nb = 1, nshl
87 & shp(nshl,MAXQPT), shgl(nsd,nshl,MAXQPT),
88 & shpf(nshl,MAXQPT), shglf(nsd,nshl,MAXQPT),
89 & em(npro,nshl,nshl), eml(npro,nshl),
92 dimension shape(npro,nshl), shdrv(npro,nsd,nshl),
93 & sgn(npro,nshl), dxidx(npro,nsd,nsd),
94 & shg(npro,nshl,nsd), Qwtf(ngaussf),
101 nods = nshl
210 & shp(nshl,MAXQPT), shgl(nsd,nshl,MAXQPT),
211 & shpf(nshl,MAXQPT), shglf(nsd,nshl,MAXQPT),
212 & em(npro,nshl,nshl), eml(npro,nshl),
215 dimension shape(npro,nshl), shdrv(npro,nsd,nshl),
216 & sgn(npro,nshl), dxidx(npro,nsd,nsd),
217 & shg(npro,nshl,nsd), Qwtf(ngaussf),
239 do i=1,nshl
276 do na = 1, nshl
277 do nb = 1, nshl
298 do na = 1, nshl
321 real*8 xl(npro,nenl,nsd), shgl(npro,nsd,nshl),
322 & dxidx(npro,nsd,nsd), shg(npro,nshl,nsd),
377 do n = 1, nshl