Lines Matching refs:n
103 do n = 1, nenbl
104 lnode(n) = n
108 do n=1,3*nem
109 lnode(nenbl+n) = nenbl+1+n
114 do n=1,nfm
115 lnode(3+3*nem+n) = 4+6*nem+n
122 do n = 1, nenbl
123 lnode(n) = n
127 do n=1,4*nem
128 lnode(nenbl+n) = 8+n
134 do n=1,nfm
135 lnode(4+4*nem+n) = 8+12*nem+n
145 do n = 1, nenbl
146 lnode(n) = n
153 do n=1,3*nem
154 lnode(nenbl+n) = 6+n
355 do n = 1, nshl
356 gradV(:,1,1) = gradV(:,1,1) + shg(:,n,1) * ycl(:,n,2)
357 gradV(:,2,1) = gradV(:,2,1) + shg(:,n,1) * ycl(:,n,3)
358 gradV(:,3,1) = gradV(:,3,1) + shg(:,n,1) * ycl(:,n,4)
360 gradV(:,1,2) = gradV(:,1,2) + shg(:,n,2) * ycl(:,n,2)
361 gradV(:,2,2) = gradV(:,2,2) + shg(:,n,2) * ycl(:,n,3)
362 gradV(:,3,2) = gradV(:,3,2) + shg(:,n,2) * ycl(:,n,4)
364 gradV(:,1,3) = gradV(:,1,3) + shg(:,n,3) * ycl(:,n,2)
365 gradV(:,2,3) = gradV(:,2,3) + shg(:,n,3) * ycl(:,n,3)
366 gradV(:,3,3) = gradV(:,3,3) + shg(:,n,3) * ycl(:,n,4)