Lines Matching refs:nshg
82 real*8 y(nshg,ndof), ac(nshg,ndof),
83 & yold(nshg,ndof), acold(nshg,ndof),
84 & u(nshg,nsd), uold(nshg,nsd),
85 & x(numnp,nsd), BC(nshg,ndofBC),
86 & res(nshg,nflow), tmpres(nshg,nflow),
87 & flowDiag(nshg,4),
88 & sclrDiag(nshg,1),
89 & GradV(nshg,nsdsq)
97 & rowp(nshg*nnz), colm(nshg+1),
98 & iBC(nshg), ilwork(nlwork),
99 & iper(nshg)
101 real*8 yAlpha(nshg,ndof), acAlpha(nshg,ndof),
102 & uAlpha(nshg,nsd),
103 & lesP(nshg,4), lesQ(nshg,4),
104 & solinc(nshg,ndof), CGsol(nshg)
108 real*8 rerr(nshg,10), rtmp(nshg,4),rtemp
170 ALLOCATE (Res4(dof,nshg), Val4(dof*dof,nnz_tot))
173 DO i=1, nshg
186 DO i=1, nshg
203 DO i=1, nshg
250 & nshg, nshl, nPermDims,
276 & nshg, nshl, nPermDims,
391 real*8 y(nshg,ndof), ac(nshg,ndof),
392 & yold(nshg,ndof), acold(nshg,ndof),
393 & u(nshg,nsd), uold(nshg,nsd),
394 & x(numnp,nsd), BC(nshg,ndofBC),
395 & res(nshg,1),
396 & flowDiag(nshg,4),
397 & sclrDiag(nshg,1)
405 & rowp(nshg*nnz), colm(nshg+1),
406 & iBC(nshg), ilwork(nlwork),
407 & iper(nshg)
409 real*8 yAlpha(nshg,ndof), acAlpha(nshg,ndof),
410 & uAlpha(nshg,nsd),
411 & lesP(nshg,1), lesQ(nshg,1),
412 & solinc(nshg,1), CGsol(nshg),
459 ALLOCATE (Res1(dof,nshg), Val1(dof*dof,nnz_tot))
462 DO i=1, nshg
473 DO i=1, nshg
497 & nshg, nshl, nPermDimsS,