Lines Matching refs:tmp
28 dimension tmp(npro)
38 tmp=shp(:,j)*WdetJ
40 & + tmp * (
46 & + tmp * (
52 & + tmp * (
58 & + tmp * (
64 & + tmp * (
70 & + tmp * (
76 & + tmp * (
82 & + tmp * (
88 & + tmp * (
94 & + tmp * (
100 & + tmp * (
106 & + tmp * (
112 & + tmp * (
118 & + tmp * (
124 & + tmp * (
130 & + tmp * (
136 & + tmp * (
142 & + tmp * (
148 & + tmp * (
154 & + tmp * (
160 & + tmp * (
166 & + tmp * (
172 & + tmp * (
178 & + tmp * (
184 & + tmp * (
197 tmp = 0.4d0 * WdetJ * Dtgl/Qwt(lcsyst,intp)/three*almi/gami/alfi
200 BDiagl(:,j,2,2) = BDiagl(:,j,2,2) + tmp * A0(:,2,2)
201 BDiagl(:,j,3,3) = BDiagl(:,j,3,3) + tmp * A0(:,3,3)
202 BDiagl(:,j,4,4) = BDiagl(:,j,4,4) + tmp * A0(:,4,4)
203 BDiagl(:,j,1,5) = BDiagl(:,j,1,5) + tmp * A0(:,1,5)
204 BDiagl(:,j,2,5) = BDiagl(:,j,2,5) + tmp * A0(:,2,5)
205 BDiagl(:,j,3,5) = BDiagl(:,j,3,5) + tmp * A0(:,3,5)
206 BDiagl(:,j,4,5) = BDiagl(:,j,4,5) + tmp * A0(:,4,5)
207 BDiagl(:,j,1,1) = BDiagl(:,j,1,1) + tmp * A0(:,1,1)
208 BDiagl(:,j,2,1) = BDiagl(:,j,2,1) + tmp * A0(:,2,1)
209 BDiagl(:,j,3,1) = BDiagl(:,j,3,1) + tmp * A0(:,3,1)
210 BDiagl(:,j,4,1) = BDiagl(:,j,4,1) + tmp * A0(:,4,1)
211 BDiagl(:,j,5,1) = BDiagl(:,j,5,1) + tmp * A0(:,5,1)
212 BDiagl(:,j,5,2) = BDiagl(:,j,5,2) + tmp * A0(:,5,2)
213 BDiagl(:,j,5,3) = BDiagl(:,j,5,3) + tmp * A0(:,5,3)
214 BDiagl(:,j,5,4) = BDiagl(:,j,5,4) + tmp * A0(:,5,4)
215 BDiagl(:,j,5,5) = BDiagl(:,j,5,5) + tmp * A0(:,5,5)
223 tmp = WdetJ * (Dtgl * ff + bcool)
227 tmp2 = (shp(:,j)*shp(:,j)) * tmp
612 tmp = WdetJ * shg(:,j,1) * shg(:,j,1)
615 BDiagl(:,j,i,k) = BDiagl(:,j,i,k) + tmp * A0(:,i,k)
873 tmp = WdetJ * shg(:,j,2) * shg(:,j,2)
876 BDiagl(:,j,i,k) = BDiagl(:,j,i,k) + tmp * A0(:,i,k)
1134 tmp = WdetJ * shg(:,j,3) * shg(:,j,3)
1137 BDiagl(:,j,i,k) = BDiagl(:,j,i,k) + tmp * A0(:,i,k)
1617 tmp = WdetJ * shg(:,j,1) * shg(:,j,2)
1620 BDiagl(:,j,i,k) = BDiagl(:,j,i,k) + tmp * A0(:,i,k)
2100 tmp = WdetJ * shg(:,j,1) * shg(:,j,3)
2103 BDiagl(:,j,i,k) = BDiagl(:,j,i,k) + tmp * A0(:,i,k)
2583 tmp = WdetJ * shg(:,j,2) * shg(:,j,3)
2586 BDiagl(:,j,i,k) = BDiagl(:,j,i,k) + tmp * A0(:,i,k)
2624 dimension tmp(npro)
2634 tmp=shp(:,j)*WdetJ
2636 & + tmp * (
2650 tmp = 0.4d0 * WdetJ * Dtgl/Qwt(lcsyst,intp)/three*almi/gami/alfi
2653 BDiagtl(:,j) = BDiagtl(:,j) + tmp * A0t(:)
2661 tmp = WdetJ * Dtgl * ff
2665 tmp2 = (shp(:,j)*shp(:,j)) * tmp
2760 tmp = WdetJ * shg(:,j,1) * shg(:,j,1)
2762 BDiagtl(:,j) = BDiagtl(:,j) + tmp * A0t(:)
2782 tmp = WdetJ * shg(:,j,2) * shg(:,j,2)
2784 BDiagtl(:,j) = BDiagtl(:,j) + tmp * A0t(:)
2805 tmp = WdetJ * shg(:,j,3) * shg(:,j,3)
2807 BDiagtl(:,j) = BDiagtl(:,j) + tmp * A0t(:)
2824 tmp = WdetJ * shg(:,j,1) * shg(:,j,2)
2826 BDiagtl(:,j) = BDiagtl(:,j) + tmp * A0t(:)
2839 tmp = WdetJ * shg(:,j,1) * shg(:,j,3)
2841 BDiagtl(:,j) = BDiagtl(:,j) + tmp * A0t(:)
2855 tmp = WdetJ * shg(:,j,2) * shg(:,j,3)
2857 BDiagtl(:,j) = BDiagtl(:,j) + tmp * A0t(:)