Lines Matching refs:face
42 2 cS, face, ls, rowPtr, colPtr, Val, Ri) argument
50 TYPE(svLS_faceType), INTENT(INOUT) :: face(nFaces) local
95 CALL GMRES(nFaces, nsd, nNo, nnz, mynNo, commu, cS, face,
102 CALL CGRAD(nFaces, nsd, nNo, nnz, mynNo, commu, cS, face,
109 CALL GMRES(nFaces, nsd, nNo, nnz, mynNo, commu, cS, face,
116 2 face, U(:,:,i), MU(:,:,iBB))
273 IF (face(faIn)%coupledFlag) THEN
274 IF (face(faIn)%sharedFlag) THEN
277 DO a=1, face(faIn)%nNo
278 Ac = face(faIn)%glob(a)
280 v(i,Ac) = face(faIn)%valM(i,a)
283 face(faIn)%nS = NORMV(nsd, mynNo, commu, v)**2D0
285 face(faIn)%nS = 0D0
286 DO a=1, face(faIn)%nNo
287 Ac = face(faIn)%glob(a)
289 face(faIn)%nS = face(faIn)%nS +
290 2 face(faIn)%valM(i,a)**2D0
318 IF (face(j)%coupledFlag) i = i + 1