Searched refs:myrank2 (Results 1 – 5 of 5) sorted by relevance
/dports/science/siesta/siesta-4.1.5/Src/ |
H A D | m_redist_spmatrix.F90 | 46 integer :: myrank1, myrank2, myid, gg local 107 call mpi_group_rank(g2,myrank2,ierr) 110 proc_in_set2 = (myrank2 /= MPI_UNDEFINED) 183 if (myrank2 == c%dst) then 347 integer :: myrank1, myrank2, myrank local 371 call mpi_group_rank(g2,myrank2,ierr) 387 if (myrank2 == c%dst) then 402 if (myrank2 == c%dst) then 460 integer :: myrank1, myrank2, myid local 496 if (myrank2 == c%dst) then [all …]
|
H A D | redist-spmatrix.lit | 113 integer :: myrank1, myrank2, myid, gg 174 call mpi_group_rank(g2,myrank2,ierr) 250 if (myrank2 == c%dst) then 265 !!$ if (myrank2 == c%dst) then 428 integer :: myrank1, myrank2, myrank 452 call mpi_group_rank(g2,myrank2,ierr) 468 if (myrank2 == c%dst) then 483 if (myrank2 == c%dst) then 541 integer :: myrank1, myrank2, myid 577 if (myrank2 == c%dst) then [all …]
|
/dports/science/siesta/siesta-4.1.5/Util/MPI_test/ |
H A D | dist.F90 | 25 integer :: myrank1, myrank2, myid variable 79 call mpi_group_rank(group(dist2),myrank2,ierr) 81 proc_in_set2 = (myrank2 /= MPI_UNDEFINED) 121 ig = index_local_to_global(dist2,io,myrank2) 122 print "(a,i4,a,2i5,2x,i5,2x,10i3)", "Dst: ", myrank2, &
|
H A D | m_transfers.F90 | 37 integer :: myrank1, myrank2 local 57 call mpi_group_rank(g2,myrank2,ierr) 69 if (myrank2 == c%dst) then 84 if (myrank2 == c%dst) then
|
H A D | m_redist.F90 | 23 integer :: myrank1, myrank2, myid local 32 call mpi_group_rank(g2,myrank2,ierr) 34 proc_in_set2 = (myrank2 /= MPI_UNDEFINED) 48 m2%no_l = num_local_elements(dist2,norbs,myrank2) 77 if (myrank2 == c%dst) then
|