Lines Matching refs:WdetJ
1 subroutine e3bdg (shp, shg, WdetJ, argument
14 & shg(npro,nshl,nsd), WdetJ(npro),
38 tmp=shp(:,j)*WdetJ
197 tmp = 0.4d0 * WdetJ * Dtgl/Qwt(lcsyst,intp)/three*almi/gami/alfi
223 tmp = WdetJ * (Dtgl * ff + bcool)
331 tmp1 = shp(:,i) * WdetJ * almi/gami/alfi*dtgl
612 tmp = WdetJ * shg(:,j,1) * shg(:,j,1)
873 tmp = WdetJ * shg(:,j,2) * shg(:,j,2)
1134 tmp = WdetJ * shg(:,j,3) * shg(:,j,3)
1617 tmp = WdetJ * shg(:,j,1) * shg(:,j,2)
2100 tmp = WdetJ * shg(:,j,1) * shg(:,j,3)
2583 tmp = WdetJ * shg(:,j,2) * shg(:,j,3)
2597 subroutine e3bdgSclr ( shp, shg, WdetJ, argument
2611 & shg(npro,nshl,nsd), WdetJ(npro),
2634 tmp=shp(:,j)*WdetJ
2650 tmp = 0.4d0 * WdetJ * Dtgl/Qwt(lcsyst,intp)/three*almi/gami/alfi
2661 tmp = WdetJ * Dtgl * ff
2718 tmp1 = shp(:,i) * WdetJ * almi/gami/alfi*dtgl
2760 tmp = WdetJ * shg(:,j,1) * shg(:,j,1)
2782 tmp = WdetJ * shg(:,j,2) * shg(:,j,2)
2805 tmp = WdetJ * shg(:,j,3) * shg(:,j,3)
2824 tmp = WdetJ * shg(:,j,1) * shg(:,j,2)
2839 tmp = WdetJ * shg(:,j,1) * shg(:,j,3)
2855 tmp = WdetJ * shg(:,j,2) * shg(:,j,3)