Lines Matching refs:face
41 SUBROUTINE PRECOND(nFaces, dof, nNo, nnz, commu, cS, face, argument
49 TYPE(svLS_faceType), INTENT(INOUT) :: face(nFaces) local
105 IF (.NOT.face(faIn)%incFlag) CYCLE
106 i = MIN(face(faIn)%dof,dof)
107 IF (face(faIn)%bGrp .EQ. BC_TYPE_Dir) THEN
108 DO a=1, face(faIn)%nNo
109 Ac = face(faIn)%glob(a)
110 W(1:i,Ac) = W(1:i,Ac)*face(faIn)%val(1:i,a)
213 IF (face(faIn)%coupledFlag) THEN
214 DO a=1, face(faIn)%nNo
215 Ac = face(faIn)%glob(a)
216 DO i=1, MIN(face(faIn)%dof,dof)
217 face(faIn)%valM(i,a) = face(faIn)%val(i,a)*W(i,Ac)