Lines Matching refs:WdetJb
40 dimension WdetJb(npro),
85 WdetJb = Qwtb(lcsyst,intp) / (four*temp)
87 WdetJb = Qwtb(lcsyst,intp) / (four*temp)
89 WdetJb = Qwtb(lcsyst,intp) / (two*temp)
91 WdetJb = Qwtb(lcsyst,intp) / (four*temp)
93 WdetJb = Qwtb(lcsyst,intp) / (four*temp)
95 WdetJb = Qwtb(lcsyst,intp) / (two*temp)
102 flhsl(:,n,1) = flhsl(:,n,1) + WdetJb * shape(:,n)
105 fnrml(:,n,1) = fnrml(:,n,1) + WdetJb * bnorm(:,1)
107 fnrml(:,n,2) = fnrml(:,n,2) + WdetJb * bnorm(:,2)
109 fnrml(:,n,3) = fnrml(:,n,3) + WdetJb * bnorm(:,3)
116 fmstot = fmstot + WdetJb