Lines Matching refs:a
52 INTEGER faIn, i, a, Ac, nsd local
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