Lines Matching refs:jcur
67 integer iwrk,jcur,ierr,bshift,iwrk2
91 do jcur=0,np_j-1
92 iwrk = na(jcur+1)
119 jcur = taskid_j
120 iwrk = na(jcur+1)
128 > Bwork(bshift2(jcur)), iwrk,
136 jcur = mod(jcur-1+np_j,np_j)
137 iwrk = na(jcur+1)
149 > Bwork(bshift2(jcur)), iwrk,
155 jcur = mod(jcur-1+np_j,np_j)
156 iwrk = na(jcur+1)
169 > Bwork(bshift2(jcur)), iwrk,
176 jcur = mod(jcur-1+np_j,np_j)
177 iwrk = na(jcur+1)
185 > Bwork(bshift2(jcur)), iwrk,
190 jcur = mod(jcur-1+np_j,np_j)
191 iwrk = na(jcur+1)
199 > Bwork(bshift2(jcur)), iwrk,
258 integer iwrk,jcur,ierr,bshift,iwrk2
304 do jcur=0,np_j-1
305 iwrk = na(jcur+1)
320 do jcur=0,np_j-1
321 iwrk = na(jcur+1)
350 jcur = taskid_j
351 iwrk = na(jcur+1)
359 > Bwork(bshift2(jcur)), iwrk,
367 jcur = mod(jcur-1+np_j,np_j)
368 iwrk = na(jcur+1)
380 > Bwork(bshift2(jcur)), iwrk,
386 jcur = mod(jcur-1+np_j,np_j)
387 iwrk = na(jcur+1)
400 > Bwork(bshift2(jcur)), iwrk,
407 jcur = mod(jcur-1+np_j,np_j)
408 iwrk = na(jcur+1)
416 > Bwork(bshift2(jcur)), iwrk,
421 jcur = mod(jcur-1+np_j,np_j)
422 iwrk = na(jcur+1)
430 > Bwork(bshift2(jcur)), iwrk,
631 integer kk,iwrk,icur,jcur,ierr,shift
646 jcur = 0
650 iwrk = min(iwrk, na(jcur+1)-jj)
655 if (taskid_j.eq.jcur) then
671 stupid_taskid = jcur
683 > jcur,comm_j,ierr)
708 if (jj.ge.na(jcur+1)) then
709 jcur = jcur + 1
770 integer kk,iwrk,icur,jcur,ierr,shift
784 jcur = 0
788 iwrk = min(iwrk, na(jcur+1)-jj)
796 if (taskid_j.eq.jcur) then
805 stupid_taskid = jcur
811 > MPI_DOUBLE_PRECISION,jcur,comm_j,ierr)
867 if (jj.ge.na(jcur+1)) then
868 jcur = jcur + 1
925 integer kk,iwrk,icur,jcur,ierr,shift
940 jcur = 0
944 iwrk = min(iwrk, na(jcur+1)-jj)
954 if (taskid_j.eq.jcur) then
963 stupid_taskid = jcur
969 > MPI_DOUBLE_PRECISION,jcur,comm_j,ierr)
1011 if (jj.ge.na(jcur+1)) then
1012 jcur = jcur + 1
1076 integer kk,iwrk,icur,jcur,ierr,shift
1090 jcur = 0
1094 iwrk = min(iwrk, na(jcur+1)-jj)
1102 if (taskid_j.eq.jcur) then
1111 stupid_taskid = jcur
1117 > MPI_DOUBLE_PRECISION,jcur,comm_j,ierr)
1173 if (jj.ge.na(jcur+1)) then
1174 jcur = jcur + 1
1237 integer kk,iwrk,icur,jcur,ierr,shift
1251 jcur = 0
1254 iwrk = min(iwrk, nc(jcur+1)-jj)
1289 stupid_taskid = jcur
1295 > MPI_DOUBLE_PRECISION,MPI_SUM,jcur,comm_j,ierr)
1301 if (taskid_j.eq.jcur) then
1316 if (jj.ge.nc(jcur+1)) then
1317 jcur = jcur + 1
1533 integer kk,iwrk,icur,jcur,ierr,shift
1845 integer icur,jcur,ierr
1855 do jcur = 0,taskid_j-1
1856 js = js + na(jcur+1)
1858 jcur = taskid_j
1859 je = js-1 + na(jcur+1)
1884 if (jj.gt.na(jcur+1)) then
1885 jcur = jcur + 1
1918 jcur=0
1922 if (jj.gt.na(jcur+1)) then
1923 jcur = jcur + 1
1930 stupid_taskid = jcur
1935 > jcur,comm_j,ierr)
2071 integer icur,jcur,rcur,scur
2092 jcur = 0
2103 psend = Parallel2d_convert_taskid_ij(icur,jcur)
2164 if (jj.gt.nq(jcur+1)) then
2165 jcur = jcur + 1
2236 integer kk,iwrk,icur,jcur,ierr,shift,shft,shft2,shft3
2257 jcur = 0
2261 iwrk = min(iwrk, na(jcur+1)-jj)
2272 if (taskid_j.eq.jcur) then
2285 stupid_taskid = jcur
2291 > MPI_DOUBLE_PRECISION,jcur,comm_j,ierr)
2366 if (jj.ge.na(jcur+1)) then
2367 jcur = jcur + 1
2424 integer kk,iwrk,icur,jcur,ierr,shift,shft,shft2,shft3
2452 jcur = 0
2456 iwrk = min(iwrk, na(jcur+1)-jj)
2472 if (taskid_j.eq.jcur) then
2485 stupid_taskid = jcur
2491 > MPI_DOUBLE_PRECISION,jcur,comm_j,ierr)
2561 if (jj.ge.na(jcur+1)) then
2562 jcur = jcur + 1
2617 integer kk,iwrk,icur,jcur,ierr,shift
2786 jcur = 0
2788 if ((icur.eq.taskid_i).and.(jcur.eq.taskid_j)) then
2793 if ((ii.ge.ma(icur+1)).or.(jj.ge.na(jcur+1))) crossing=.true.
2796 if (jcur.eq.taskid_j) then
2822 if (jj.gt.na(jcur+1)) then
2823 jcur = jcur + 1