Lines Matching refs:a

52       INTEGER a, Ac, i  local
77       DO a=1, nNo
78          Ac = lhs%map(gNodes(a))
79          lhs%face(faIn)%glob(a) = Ac
83          DO a=1, nNo
84             lhs%face(faIn)%val(:,a) = Val(:,a)
91          a = 0
92          IF (lhs%face(faIn)%nNo .NE. 0) a = 1
93          CALL MPI_ALLREDUCE(a, Ac, 1, mpint, 
99             DO a=1, nNo
100                Ac = lhs%face(faIn)%glob(a)
101                v(:,Ac) = lhs%face(faIn)%val(:,a)
105             DO a=1, nNo
106                Ac = lhs%face(faIn)%glob(a)
107                lhs%face(faIn)%val(:,a) = v(:,Ac)