phSolver/incompressible/e3sts.f

208             lDir(e,5,1) = pt25*(-(y13*z12) + y14*z12 + y12*(z13-z14))
209             lDir(e,5,2) = pt25*(x13*z12 - x14*z12 + x12*(-z13 + z14))
210             lDir(e,5,3) = pt25*(-(x13*y12) + x14*y12 + x12*(y13 - y14))
212             lDir(e,6,1) = pt25*(-(y13*z12) + y12*z13 + y24*z23-y23*z24)
213             lDir(e,6,2) = pt25*(x13*z12 - x12*z13 - x24*z23 + x23*z24)
214             lDir(e,6,3) = pt25*(-(x13*y12) + x12*y13 + x24*y23-x23*y24)
216             lDir(e,7,1) = pt25*((y12 - y14)*z13 + y13*(-z12 + z14))
217             lDir(e,7,2) = pt25*((-x12 + x14)*z13 + x13*(z12 - z14))
218             lDir(e,7,3) = pt25*((x12 - x14)*y13 + x13*(-y12 + y14))
220             lDir(e,8,1) = pt25*(y14*(z12 - z13) + (-y12 + y13)*z14)
221             lDir(e,8,2) = pt25*(x14*(-z12 + z13) + (x12 - x13)*z14)
222             lDir(e,8,3) = pt25*(x14*(y12 - y13) + (-x12 + x13)*y14)
224             lDir(e,9,1) = pt25*(y14*z12 - y12*z14 + y24*z23 - y23*z24)
225             lDir(e,9,2) = pt25*(-(x14*z12) + x12*z14 - x24*z23+x23*z24)
226             lDir(e,9,3) = pt25*(x14*y12 - x12*y14 + x24*y23 - x23*y24)
228             lDir(e,10,1) = pt25*(-(y14*z13) + y13*z14+y24*z23-y23*z24)
229             lDir(e,10,2) = pt25*(x14*z13 - x13*z14-x24*z23 + x23*z24)
230             lDir(e,10,3) = pt25*(-(x14*y13) + x13*y14+x24*y23-x23*y24)
295             lDir(e,5,1) = pt25*(-(y13*z12) + y14*z12 + y12*(z13-z14))
296             lDir(e,5,2) = pt25*(x13*z12 - x14*z12 + x12*(-z13 + z14))
297             lDir(e,5,3) = pt25*(-(x13*y12) + x14*y12 + x12*(y13 - y14))
302             lDir(e,7,1) = pt25*(-(y13*z12) + y12*z13 + y24*z23-y23*z24)
303             lDir(e,7,2) = pt25*(x13*z12 - x12*z13 - x24*z23 + x23*z24)
304             lDir(e,7,3) = pt25*(-(x13*y12) + x12*y13 + x24*y23-x23*y24)
309             lDir(e,9,1) = pt25*((y12 - y14)*z13 + y13*(-z12 + z14))
310             lDir(e,9,2) = pt25*((-x12 + x14)*z13 + x13*(z12 - z14))
311             lDir(e,9,3) = pt25*((x12 - x14)*y13 + x13*(-y12 + y14))
316             lDir(e,11,1) = pt25*(y14*(z12 - z13) + (-y12 + y13)*z14)
317             lDir(e,11,2) = pt25*(x14*(-z12 + z13) + (x12 - x13)*z14)
318             lDir(e,11,3) = pt25*(x14*(y12 - y13) + (-x12 + x13)*y14)
324             lDir(e,13,1) = pt25*(y14*z12 - y12*z14 + y24*z23 - y23*z24)
325             lDir(e,13,2) = pt25*(-(x14*z12) + x12*z14-x24*z23+x23*z24)
326             lDir(e,13,3) = pt25*(x14*y12 - x12*y14 + x24*y23 - x23*y24)
331             lDir(e,15,1) = pt25*(-(y14*z13) + y13*z14+y24*z23-y23*z24)
332             lDir(e,15,2) = pt25*(x14*z13 - x13*z14-x24*z23 + x23*z24)
333             lDir(e,15,3) = pt25*(-(x14*y13) + x13*y14+x24*y23-x23*y24)