Lines Matching refs:npro
50 dimension yl(npro,nshl,nflow), ycl(npro,nshl,ndof),
51 & acl(npro,nshl,ndof), rmu(npro),
52 & shp(nshl,ngauss), rlm2mu(npro),
53 & shgl(nsd,nshl,ngauss), con(npro),
54 & xl(npro,nenl,nsd), rlm(npro),
55 & rl(npro,nshl,nflow), ql(npro,nshl,idflx),
56 & rml(npro,nshl,nflow), xmudmi(npro,ngauss),
57 & BDiagl(npro,nshl,nflow,nflow),
58 & EGmass(npro,nedof,nedof),cv(npro),
59 & ytargetl(npro,nshl,nflow)
61 dimension dui(npro,ndof), aci(npro,ndof)
63 dimension g1yi(npro,nflow), g2yi(npro,nflow),
64 & g3yi(npro,nflow), shg(npro,nshl,nsd),
65 & divqi(npro,nflow), tau(npro,5)
67 dimension dxidx(npro,nsd,nsd), WdetJ(npro)
69 dimension rho(npro), pres(npro),
70 & T(npro), ei(npro),
71 & h(npro), alfap(npro),
72 & betaT(npro), DC(npro,ngauss),
73 & cp(npro), rk(npro),
74 & u1(npro), u2(npro),
75 & u3(npro), A0DC(npro,4),
76 & Sclr(npro), dVdY(npro,15),
77 & giju(npro,6), rTLS(npro),
78 & raLS(npro), A0inv(npro,15)
80 dimension A0(npro,nflow,nflow), A1(npro,nflow,nflow),
81 & A2(npro,nflow,nflow), A3(npro,nflow,nflow)
83 dimension rLyi(npro,nflow), sgn(npro,nshl)
85 dimension ri(npro,nflow*(nsd+1)), rmi(npro,nflow*(nsd+1)),
86 & shape(npro,nshl), shdrv(npro,nsd,nshl),
87 & stiff(npro,nsd*nflow,nsd*nflow),
88 & PTau(npro,5,5),
89 & sforce(npro,3), compK(npro,10)
91 dimension x(npro,3), bcool(npro)
93 dimension rlsl(npro,nshl,6), rlsli(npro,6)
95 real*8 rerrl(npro,nshl,6)
227 do i=1,npro
359 dimension ycl(npro,nshl,ndof),
360 & acl(npro,nshl,ndof),
361 & dwl(npro,nenl),
363 & xl(npro,nenl,nsd),
364 & rtl(npro,nshl), qtl(npro,nshl),
365 & rmtl(npro,nshl), Diagl(npro,nshl),
366 & EGmasst(npro,nshape,nshape),
367 & dist2w(npro), sgn(npro,nshl),
368 & vort(npro), gVnrm(npro),
369 & rmu(npro), con(npro),
370 & T(npro), cp(npro),
371 & g1yti(npro), acti(npro),
372 & g2yti(npro), g3yti(npro),
373 & Sclr(npro), srcp (npro)
376 dimension shg(npro,nshl,nsd)
378 dimension dxidx(npro,nsd,nsd), WdetJ(npro)
380 dimension rho(npro), rk(npro),
381 & u1(npro), u2(npro),
382 & u3(npro)
384 dimension A0t(npro), A1t(npro),
385 & A2t(npro), A3t(npro)
387 dimension rLyti(npro), raLSt(npro),
388 & rTLSt(npro), giju(npro,6),
389 & DCt(npro, ngauss)
391 dimension rti(npro,nsd+1), rmti(npro,nsd+1),
392 & stifft(npro,nsd,nsd),
393 & shape(npro,nshl), shdrv(npro,nsd,nshl)
394 real*8 elDwl(npro)