Lines Matching refs:faIn
52 INTEGER faIn, i, a, Ac, nsd local
67 DO faIn=1, nFaces
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)
79 S = coef(faIn)*DOTV(dof, mynNo, commu, v, X)
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)
94 S = coef(faIn)*S
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