Lines Matching defs:SolSclr
341 subroutine SolSclr(y, ac, u, subroutine
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)
399 real*8 shp(MAXTOP,maxsh,MAXQPT),
400 & shgl(MAXTOP,nsd,maxsh,MAXQPT),
401 & shpb(MAXTOP,maxsh,MAXQPT),
402 & shglb(MAXTOP,nsd,maxsh,MAXQPT)
404 integer usr(100), eqnType,
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),
413 & tcorecpscal(2)
415 TYPE(svLS_lhsType), INTENT(INOUT) :: svLS_lhs
416 TYPE(svLS_lsType), INTENT(INOUT) :: svLS_ls
417 INTEGER svLS_nFaces
419 REAL*8 sumtime
420 INTEGER dof, i, j, k, l local
421 INTEGER, ALLOCATABLE :: incL(:)
422 REAL*8, ALLOCATABLE :: faceRes(:), Res1(:,:), Val1(:,:)