Lines Matching refs:prow
44 integer :: prow, pcol ! Coord. de mon proc. logique variable
91 nprow, npcol, prow, pcol) ! de processeurs logiques.
105 call distribue(icntxt, a, n, dist_a, n_max, prow, pcol)
109 if ((prow==0).and.(pcol==0)) then
115 if ((prow==1).and.(pcol==0)) then
132 if ((prow==1).and.(pcol==0)) then
136 if ((prow==0).and.(pcol==0)) then
145 if ((prow==0).and.(pcol==0)) then
162 integer :: prow, pcol ! Coord. de mon proc. logique local
164 if ((prow == 0) .and. (pcol == 0)) then ! Emission par le
173 if ((prow == 0) .and. (pcol == 0)) then ! Copie des blocs
180 if ((prow == 0) .and. (pcol == 1)) then ! autres processeurs.
184 if ((prow == 1) .and. (pcol == 0)) then
188 if ((prow == 1) .and. (pcol == 1)) then