Lines Matching refs:tF
52 INTEGER i, j, k, a, Ac, ai, s, e, nTasks, tF, maxnNo, ierr, local
73 tF = commu%tF
126 IF (i .EQ. tF) CYCLE
133 IF (aNodes(ai,tF) .NE. 0) THEN
134 IF (i .GT. tF) aNodes(ai,tF) = 0
149 IF (i.NE.tF .AND. i.NE.1) THEN
158 IF (i.GT.tF .OR. aNodes(ai,tF).NE.0) THEN
161 aNodes(ai,tF) = 0
166 IF (i .LT. tF) THEN
167 lhs%cS(i)%tag = nTasks*i + tF
169 lhs%cS(i)%tag = nTasks*tF + i
174 lhs%cS(tF)%tag = 0
175 lhs%mynNo = lhs%cS(tF)%ptr + lhs%cS(tF)%n - 1
209 IF (tF .NE. 1) THEN
210 i = tF - 1
220 IF (i .LT. tF) THEN
229 DO k=1, lhs%cS(tF)%ptr
244 DO k=1, lhs%cS(tF)%ptr