Lines Matching refs:temp
42 & temp(npro), temp1(npro),
70 temp = one / sqrt ( temp1**2 + temp2**2 + temp3**2 )
71 bnorm(:,1) = temp1 * temp
72 bnorm(:,2) = temp2 * temp
73 bnorm(:,3) = temp3 * temp
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)
127 temp = zero
129 temp = temp + flhsl(:,n,1)
133 flhsl(:,n,1) = flhsl(:,n,1) * fmstot / temp