Lines Matching refs:npro
54 dimension yl(npro,nshl,ndof), iBCB(npro,ndiBCB),
55 & BCB(npro,nshlb,ndBCB), shpb(nshl,ngaussb),
57 & xlb(npro,nenl,nsd), ul(npro,nshl,nsd),
58 & acl(npro,nshl,ndof),
59 & rl(npro,nshl,nflow)
61 dimension g1yi(npro,ndof), g2yi(npro,ndof),
62 & g3yi(npro,ndof), WdetJb(npro),
63 & bnorm(npro,nsd)
65 dimension u1(npro), u2(npro),
66 & u3(npro), rho(npro),
67 & unm(npro), pres(npro),
68 & vdot(npro,nsd), rlKwall(npro,nshlb,nsd)
70 dimension rou(npro), rmu(npro)
72 dimension tau1n(npro),
73 & tau2n(npro), tau3n(npro)
75 dimension lnode(27), sgn(npro,nshl),
76 & shape(npro,nshl), shdrv(npro,nsd,nshl),
77 & rNa(npro,4)
79 real*8 xmudmi(npro,ngauss), dwl(npro,nshl)
81 dimension xKebe(npro,9,nshl,nshl), rKwall_glob(npro,9,nshl,nshl)
139 do iel = 1, npro
235 do iel = 1, npro
378 dimension yl(npro,nshl,ndof), iBCB(npro,ndiBCB),
379 & BCB(npro,nshlb,ndBCB), shpb(nshl,*),
381 & xlb(npro,nenl,nsd),
382 & rl(npro,nshl)
384 real*8 WdetJb(npro), bnorm(npro,nsd)
386 dimension lnode(27), sgn(npro,nshl),
387 & shape(npro,nshl), shdrv(npro,nsd,nshl),
388 & rNa(npro), flux(npro)
389 real*8 dwl(npro,nshl)
429 do iel=1, npro