Home
last modified time | relevance | path

Searched refs:myrank2 (Results 1 – 5 of 5) sorted by relevance

/dports/science/siesta/siesta-4.1.5/Src/
H A Dm_redist_spmatrix.F9046 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 Dredist-spmatrix.lit113 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 Ddist.F9025 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 Dm_transfers.F9037 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 Dm_redist.F9023 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