Lines Matching defs:e3Sclr
163 subroutine e3Sclr (yl, acl, shp, subroutine
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),
188 & Sdot(npro), Sclr(npro),
189 & dxidx(npro,nsd,nsd), WdetJ(npro),
190 & u1(npro), u2(npro), u3(npro),
191 & sgn(npro,nshl), shpfun(npro,nshl),
192 & shdrv(npro,nsd,nshl), rLS(npro),
193 & tauS(npro), diffus(npro),
194 & srcL(npro), srcR(npro),
195 & gGradS(npro,nsd), dcFct(npro),
196 & giju(npro,6)
204 real*8 uMod(npro,nsd), srcRat(npro), xmudmi(npro,ngauss)
206 integer aa, b local