Lines Matching defs:SolFlow
1 subroutine SolFlow(y, ac, u, subroutine
75 REAL*8 rdtmp
78 TYPE(svLS_lhsType), INTENT(INOUT) :: svLS_lhs
79 TYPE(svLS_lsType), INTENT(INOUT) :: svLS_ls
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)
91 real*8 shp(MAXTOP,maxsh,MAXQPT),
92 & shgl(MAXTOP,nsd,maxsh,MAXQPT),
93 & shpb(MAXTOP,maxsh,MAXQPT),
94 & shglb(MAXTOP,nsd,maxsh,MAXQPT)
96 integer usr(100), eqnType,temp,
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)
106 real*8 tcorecp(2)
108 real*8 rerr(nshg,10), rtmp(nshg,4),rtemp
110 real*8 msum(4),mval(4),cpusec(10)
111 REAL*8 sumtime
113 INTEGER svLS_nFaces
115 INTEGER dof, i, j, k, l local
116 INTEGER, ALLOCATABLE :: incL(:)
117 REAL*8, ALLOCATABLE :: faceRes(:), Res4(:,:), Val4(:,:)