Lines Matching refs:WdetJ
41 & WdetJ(npro)
56 call e3metric( xl, shdrv,dxidx,shg,WdetJ)
62 em(iel,na,nb) = em(iel,na,nb) + shp2*WdetJ(iel)
95 & WdetJ(npro)
120 call e3metricf( xl, shdrv,dxidx,shg,WdetJ,Qwtf)
123 eml(:,i) = eml(:,i) + shape(:,i)*WdetJ(:)
135 WdetJ = zero
155 call e3metric( xl, shdrv,dxidx,shg,WdetJ)
162 em(iel,na,nb) = em(iel,na,nb) + shp2*WdetJ(iel)
218 & WdetJ(npro)
237 call e3metricf( xl, shdrv,dxidx,shg,WdetJ,Qwtf)
240 eml(:,i) = eml(:,i) + shape(:,i)*WdetJ(:)
252 WdetJ = zero
272 call e3metric( xl, shdrv,dxidx,shg,WdetJ)
279 em(iel,na,nb) = em(iel,na,nb) + shp2*WdetJ(iel)
317 & shg, WdetJ, Qwtf) argument
323 & WdetJ(npro), Qwtf(ngaussf) local
373 WdetJ = Qwtf(intp) / tmp