Lines Matching refs:tF
50 INTEGER i, j, k, s, e, ierr, nTasks, tF, stat(MPI_STATUS_SIZE) local
57 tF = commu%tF
60 IF (tF .NE. 1) THEN
61 i = tF - 1
70 IF (i .LT. tF) THEN
81 DO i=1, tF - 1
94 DO i=1, tF - 1
107 IF (i .GT. tF) THEN
138 INTEGER i, j, k, s, e, ierr, nTasks, tF, stat(MPI_STATUS_SIZE) local
145 tF = commu%tF
148 IF (tF .NE. 1) THEN
149 i = tF - 1
158 IF (i .LT. tF) THEN
169 DO i=1, tF - 1
182 DO i=1, tF - 1
195 IF (i .GT. tF) THEN