Lines Matching refs:tmp
46 real*8 tmp(npro) local
144 tmp = Qwt(lcsyst,intp)
146 tmp = tmp*(three/four)
150 qrl(:,i,1 ) = qrl(:,i,1 )+ shape(:,i)*tmp*qdi(:,1 )
151 qrl(:,i,2 ) = qrl(:,i,2 )+ shape(:,i)*tmp*qdi(:,2 )
152 qrl(:,i,3 ) = qrl(:,i,3 )+ shape(:,i)*tmp*qdi(:,3 )
153 qrl(:,i,4 ) = qrl(:,i,4 )+ shape(:,i)*tmp*qdi(:,4 )
154 qrl(:,i,5 ) = qrl(:,i,5 )+ shape(:,i)*tmp*qdi(:,5 )
155 qrl(:,i,6 ) = qrl(:,i,6 )+ shape(:,i)*tmp*qdi(:,6 )
156 qrl(:,i,7 ) = qrl(:,i,7 )+ shape(:,i)*tmp*qdi(:,7 )
157 qrl(:,i,8 ) = qrl(:,i,8 )+ shape(:,i)*tmp*qdi(:,8 )
158 qrl(:,i,9 ) = qrl(:,i,9 )+ shape(:,i)*tmp*qdi(:,9 )
159 qrl(:,i,10) = qrl(:,i,10)+ shape(:,i)*tmp*qdi(:,10)
160 qrl(:,i,11) = qrl(:,i,11)+ shape(:,i)*tmp*qdi(:,11)
161 qrl(:,i,12) = qrl(:,i,12)+ shape(:,i)*tmp*qdi(:,12)
168 rmass(:,i,j) = rmass(:,i,j)+shape(:,i)*shape(:,j)*tmp