Lines Matching refs:faIn

268       INTEGER faIn, i, a, Ac  local
272       DO faIn=1, nFaces
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