Lines Matching refs:u1
13 & u1(npro), u2(npro),
106 u1 = zero
116 u1 = u1 + shp(i,intp)*yl(:,i,2)
136 fresli(:,1) = WdetJ * u1 !G * u1 * WdetJ
140 fresli(:,4) = WdetJ * u1 * u1 ! G*u1*u1*WdetJ
143 fresli(:,7) = WdetJ * u1 * u2 ! G*u1*u2*WdetJ
144 fresli(:,8) = WdetJ * u1 * u3 ! G*u1*u3*WdetJ
186 & u1(npro), u2(npro),
412 & u1(npro), u2(npro),
506 u1 = zero
516 u1 = u1 + shp(i,intp)*yl(:,i,2)
543 fresli(:,1) = WdetJ * u1 !G * u1 * WdetJ
547 fresli(:,4) = WdetJ * u1 * u1 ! G*u1*u1*WdetJ
550 fresli(:,7) = WdetJ * u1 * u2 ! G*u1*u2*WdetJ
551 fresli(:,8) = WdetJ * u1 * u3 ! G*u1*u3*WdetJ
602 & u1(npro), u2(npro),
790 & u1(npro), u2(npro),
885 u1 = zero
895 u1 = u1 + shp(i,intp)*yl(:,i,2)
926 fresli(:,i,1) = WdetJ * u1 * shp(i,intp) !G * u1 * WdetJ
930 fresli(:,i,4) = WdetJ * u1 * u1 * shp(i,intp) ! G*u1*u1*WdetJ
933 fresli(:,i,7) = WdetJ * u1 * u2 * shp(i,intp) ! G*u1*u2*WdetJ
934 fresli(:,i,8) = WdetJ * u1 * u3 * shp(i,intp) ! G*u1*u3*WdetJ
1244 & u1(npro), u2(npro),
1339 u1 = zero
1349 u1 = u1 + shp(i,intp)*yl(:,i,2)
1380 fresli(:,i,1) = WdetJ * u1 * shp(i,intp) !G * u1 * WdetJ
1384 fresli(:,i,4) = WdetJ * u1 * u1 * shp(i,intp) ! G*u1*u1*WdetJ
1387 fresli(:,i,7) = WdetJ * u1 * u2 * shp(i,intp) ! G*u1*u2*WdetJ
1388 fresli(:,i,8) = WdetJ * u1 * u3 * shp(i,intp) ! G*u1*u3*WdetJ
2065 u1 = uir(32,1)
2194 write(*,*)'uit uic=', ucomp(32,1),u1
2807 u1 = uir(32,1)
2873 u1 = ui(32,1)
2941 write(*,*)'uit uic=', ucomp(32,1),u1