Lines Matching refs:npes
55 peinf%nkpe=xct%nkpt_fi/peinf%npes
56 if(xct%nkpt_fi-peinf%npes*peinf%nkpe.gt.0) peinf%nkpe=peinf%nkpe+1
61 if (peinf%npes .le. xct%nkpt_fi) then
62 peinf%nblocks=xct%nkpt_fi/peinf%npes
66 if(xct%nkpt_fi-peinf%npes*peinf%nblocks.gt.0) &
72 else if (peinf%npes .le. xct%nkpt_fi * xct%ncb_fi) then
73 peinf%nblocks=xct%nkpt_fi*xct%ncb_fi/peinf%npes
77 if(xct%nkpt_fi*xct%ncb_fi-peinf%npes*peinf%nblocks.gt.0) &
84 peinf%nblocks=xct%nkpt_fi*xct%nvb_fi*xct%ncb_fi/peinf%npes
88 if(xct%nkpt_fi*xct%nvb_fi*xct%ncb_fi-peinf%npes*peinf%nblocks.gt.0) &
96 SAFE_ALLOCATE(peinf%ik, (peinf%npes,peinf%nkpe))
100 SAFE_ALLOCATE(peinf%ikt, (peinf%npes))
101 SAFE_ALLOCATE(peinf%ibt, (peinf%npes))
113 ipe = mod(ipe,peinf%npes) + 1
129 ipe = mod(ipe,peinf%npes) + 1
187 if (mod(dNfft(3),peinf%npes) == 0) then
188 Nplane = dNfft(3)/peinf%npes
190 Nplane = dNfft(3)/peinf%npes+1
192 if (mod(dNfft(1)*dNfft(2),peinf%npes) == 0) then
193 Nrod = (dNfft(1)*dNfft(2))/peinf%npes
195 Nrod = (dNfft(1)*dNfft(2))/peinf%npes+1
204 rmem2=rmem2+dble(Nrod)*dble(peinf%npes+1)*16.0d0
253 if (peinf%npes.eq.1) then
271 call layout_scalapack(nmat, scal%nbl, peinf%npes, scal%nprow, scal%npcol)
298 lwork+(dble(nmat)*dble(nmat)/dble(peinf%npes)))
333 do irank = 1, peinf%npes-1
340 write(6,70) rank_last, peinf%npes-1, ibt_last
341 if (peinf%nblocks*peinf%npes.ne.nblockstotal) then