Lines Matching refs:face
41 SUBROUTINE ADDBCMUL(op_Type, nFaces, dof, nNo, mynNo, commu, face, argument
48 TYPE(svLS_faceType), INTENT(IN) :: face(nFaces) local
59 coef = face%res
61 coef = -face%res/(1D0 + face%res*face%nS)
68 nsd = MIN(face(faIn)%dof,dof)
69 IF (face(faIn)%coupledFlag) THEN
70 IF (face(faIn)%sharedFlag) THEN
73 DO a=1, face(faIn)%nNo
74 Ac = face(faIn)%glob(a)
76 v(i,Ac) = face(faIn)%valM(i,a)
80 DO a=1, face(faIn)%nNo
81 Ac = face(faIn)%glob(a)
88 DO a=1, face(faIn)%nNo
89 Ac = face(faIn)%glob(a)
91 S = S + face(faIn)%valM(i,a)*X(i,Ac)
95 DO a=1, face(faIn)%nNo
96 Ac = face(faIn)%glob(a)
98 Y(i,Ac) = Y(i,Ac) + face(faIn)%valM(i,a)*S