Lines Matching refs:tmp
29 dimension tmp(npro)
39 tmp=shp(:,j)*WdetJ
41 & + tmp * (
47 & + tmp * (
53 & + tmp * (
59 & + tmp * (
65 & + tmp * (
71 & + tmp * (
77 & + tmp * (
83 & + tmp * (
89 & + tmp * (
95 & + tmp * (
101 & + tmp * (
107 & + tmp * (
113 & + tmp * (
119 & + tmp * (
125 & + tmp * (
131 & + tmp * (
137 & + tmp * (
143 & + tmp * (
149 & + tmp * (
155 & + tmp * (
161 & + tmp * (
167 & + tmp * (
173 & + tmp * (
179 & + tmp * (
185 & + tmp * (
198 tmp = 0.4d0 * WdetJ * Dtgl/Qwt(lcsyst,intp)/three*almi/gami/alfi
201 BDiagl(:,j,2,2) = BDiagl(:,j,2,2) + tmp * A0(:,2,2)
202 BDiagl(:,j,3,3) = BDiagl(:,j,3,3) + tmp * A0(:,3,3)
203 BDiagl(:,j,4,4) = BDiagl(:,j,4,4) + tmp * A0(:,4,4)
204 BDiagl(:,j,1,5) = BDiagl(:,j,1,5) + tmp * A0(:,1,5)
205 BDiagl(:,j,2,5) = BDiagl(:,j,2,5) + tmp * A0(:,2,5)
206 BDiagl(:,j,3,5) = BDiagl(:,j,3,5) + tmp * A0(:,3,5)
207 BDiagl(:,j,4,5) = BDiagl(:,j,4,5) + tmp * A0(:,4,5)
208 BDiagl(:,j,1,1) = BDiagl(:,j,1,1) + tmp * A0(:,1,1)
209 BDiagl(:,j,2,1) = BDiagl(:,j,2,1) + tmp * A0(:,2,1)
210 BDiagl(:,j,3,1) = BDiagl(:,j,3,1) + tmp * A0(:,3,1)
211 BDiagl(:,j,4,1) = BDiagl(:,j,4,1) + tmp * A0(:,4,1)
212 BDiagl(:,j,5,1) = BDiagl(:,j,5,1) + tmp * A0(:,5,1)
213 BDiagl(:,j,5,2) = BDiagl(:,j,5,2) + tmp * A0(:,5,2)
214 BDiagl(:,j,5,3) = BDiagl(:,j,5,3) + tmp * A0(:,5,3)
215 BDiagl(:,j,5,4) = BDiagl(:,j,5,4) + tmp * A0(:,5,4)
216 BDiagl(:,j,5,5) = BDiagl(:,j,5,5) + tmp * A0(:,5,5)
224 tmp = WdetJ * (Dtgl * ff + bcool)
228 tmp2 = (shp(:,j)*shp(:,j)) * tmp
575 tmp = WdetJ * shg(:,j,1) * shg(:,j,1)
578 BDiagl(:,j,i,k) = BDiagl(:,j,i,k) + tmp * A0(:,i,k)
792 tmp = WdetJ * shg(:,j,2) * shg(:,j,2)
795 BDiagl(:,j,i,k) = BDiagl(:,j,i,k) + tmp * A0(:,i,k)
1009 tmp = WdetJ * shg(:,j,3) * shg(:,j,3)
1012 BDiagl(:,j,i,k) = BDiagl(:,j,i,k) + tmp * A0(:,i,k)
1349 tmp = WdetJ * shg(:,j,1) * shg(:,j,2)
1352 BDiagl(:,j,i,k) = BDiagl(:,j,i,k) + tmp * A0(:,i,k)
1692 tmp = WdetJ * shg(:,j,1) * shg(:,j,3)
1695 BDiagl(:,j,i,k) = BDiagl(:,j,i,k) + tmp * A0(:,i,k)
2035 tmp = WdetJ * shg(:,j,2) * shg(:,j,3)
2038 BDiagl(:,j,i,k) = BDiagl(:,j,i,k) + tmp * A0(:,i,k)