Lines Matching refs:n

95         do n = 1, nshlb
96           nodlcl = lnode(n)
114            do n = 1, nshlb
115               temp = temp + shpb(:,n) * ycl(:,n,isc)
133         do n = 1, nenl
134            dxdxib(:,1,1) = dxdxib(:,1,1) + xlb(:,n,1) * shglb(:,1,n)
135            dxdxib(:,1,2) = dxdxib(:,1,2) + xlb(:,n,1) * shglb(:,2,n)
136            dxdxib(:,1,3) = dxdxib(:,1,3) + xlb(:,n,1) * shglb(:,3,n)
137            dxdxib(:,2,1) = dxdxib(:,2,1) + xlb(:,n,2) * shglb(:,1,n)
138            dxdxib(:,2,2) = dxdxib(:,2,2) + xlb(:,n,2) * shglb(:,2,n)
139            dxdxib(:,2,3) = dxdxib(:,2,3) + xlb(:,n,2) * shglb(:,3,n)
140            dxdxib(:,3,1) = dxdxib(:,3,1) + xlb(:,n,3) * shglb(:,1,n)
141            dxdxib(:,3,2) = dxdxib(:,3,2) + xlb(:,n,3) * shglb(:,2,n)
142            dxdxib(:,3,3) = dxdxib(:,3,3) + xlb(:,n,3) * shglb(:,3,n)
234           do n = 1, nshl
235             gl1yi(:,1) = gl1yi(:,1) + shglb(:,1,n) * yl(:,n,1)
236             gl1yi(:,2) = gl1yi(:,2) + shglb(:,1,n) * yl(:,n,2)
237             gl1yi(:,3) = gl1yi(:,3) + shglb(:,1,n) * yl(:,n,3)
238             gl1yi(:,4) = gl1yi(:,4) + shglb(:,1,n) * yl(:,n,4)
239             gl1yi(:,5) = gl1yi(:,5) + shglb(:,1,n) * yl(:,n,5)
241             gl2yi(:,1) = gl2yi(:,1) + shglb(:,2,n) * yl(:,n,1)
242             gl2yi(:,2) = gl2yi(:,2) + shglb(:,2,n) * yl(:,n,2)
243             gl2yi(:,3) = gl2yi(:,3) + shglb(:,2,n) * yl(:,n,3)
244             gl2yi(:,4) = gl2yi(:,4) + shglb(:,2,n) * yl(:,n,4)
245             gl2yi(:,5) = gl2yi(:,5) + shglb(:,2,n) * yl(:,n,5)
247             gl3yi(:,1) = gl3yi(:,1) + shglb(:,3,n) * yl(:,n,1)
248             gl3yi(:,2) = gl3yi(:,2) + shglb(:,3,n) * yl(:,n,2)
249             gl3yi(:,3) = gl3yi(:,3) + shglb(:,3,n) * yl(:,n,3)
250             gl3yi(:,4) = gl3yi(:,4) + shglb(:,3,n) * yl(:,n,4)
251             gl3yi(:,5) = gl3yi(:,5) + shglb(:,3,n) * yl(:,n,5)
334         do n = 1, nshlb
335           nodlcl = lnode(n)
337           rou = rou + shpb(:,nodlcl) * BCB(:,n,1)
338           p   = p   + shpb(:,nodlcl) * BCB(:,n,2)
350           do n = 1, nshlb
351             nodlcl = lnode(n)
353             tau1n = tau1n + shpb(:,nodlcl) * BCB(:,n,3)
354             tau2n = tau2n + shpb(:,nodlcl) * BCB(:,n,4)
355             tau3n = tau3n + shpb(:,nodlcl) * BCB(:,n,5)
356             heat  = heat  + shpb(:,nodlcl) * BCB(:,n,6)
455         do n = 1, nshlb
456           nodlcl = lnode(n)
488         do n = 1, nshl
489            dxdxib(:,1,1) = dxdxib(:,1,1) + xlb(:,n,1) * shglb(:,1,n)
490            dxdxib(:,1,2) = dxdxib(:,1,2) + xlb(:,n,1) * shglb(:,2,n)
491            dxdxib(:,1,3) = dxdxib(:,1,3) + xlb(:,n,1) * shglb(:,3,n)
492            dxdxib(:,2,1) = dxdxib(:,2,1) + xlb(:,n,2) * shglb(:,1,n)
493            dxdxib(:,2,2) = dxdxib(:,2,2) + xlb(:,n,2) * shglb(:,2,n)
494            dxdxib(:,2,3) = dxdxib(:,2,3) + xlb(:,n,2) * shglb(:,3,n)
495            dxdxib(:,3,1) = dxdxib(:,3,1) + xlb(:,n,3) * shglb(:,1,n)
496            dxdxib(:,3,2) = dxdxib(:,3,2) + xlb(:,n,3) * shglb(:,2,n)
497            dxdxib(:,3,3) = dxdxib(:,3,3) + xlb(:,n,3) * shglb(:,3,n)
586           do n = 1, nshl
587             gl1yti(:) = gl1yti(:) + shglb(:,1,n) * ycl(:,n,id)
588             gl2yti(:) = gl2yti(:) + shglb(:,2,n) * ycl(:,n,id)
589             gl3yti(:) = gl3yti(:) + shglb(:,3,n) * ycl(:,n,id)
613         do n = 1, nshlb
614           nodlcl = lnode(n)
615           rou = rou + shpb(:,nodlcl) * BCB(:,n,1)
620         do n=1,nshlb
621           nodlcl = lnode(n)
622           SclrF = SclrF + shpb(:,nodlcl) * BCB(:,n,ibb)