Home
last modified time | relevance | path

Searched refs:mycomm (Results 1 – 25 of 52) sorted by relevance

123

/dports/science/dftbplus/dftbplus-19.1/external/mpifx/origin/test/
H A Dtest_allgatherv.f905 type(mpifx_comm) :: mycomm variable
17 call mycomm%init()
20 if (mycomm%rank == mycomm%size - 1) then
26 nrecv = mycomm%size*(mycomm%size+1)/2
33 if (mycomm%rank == mycomm%size - 1) then
40 if (mycomm%rank == mycomm%size - 1) then
48 nrecv = mycomm%size*(mycomm%size+1)/2
56 if (mycomm%rank == mycomm%size - 1) then
66 if (mycomm%rank == mycomm%size - 1) then
71 nrecv = mycomm%size
[all …]
H A Dtest_gatherv.f905 type(mpifx_comm) :: mycomm variable
17 call mycomm%init()
20 if (mycomm%master) then
25 if (mycomm%master) then
27 nrecv = mycomm%size*(mycomm%size+1)/2
30 do ii = 1, mycomm%size
38 if (mycomm%master) then
45 if (mycomm%master) then
51 if (mycomm%master) then
53 nrecv = mycomm%size*(mycomm%size+1)/2
[all …]
H A Dtest_bcast.f908 type(mpifx_comm) :: mycomm variable
17 call mycomm%init()
20 if (mycomm%master) then
24 call mpifx_bcast(mycomm, buffer)
26 call mpifx_barrier(mycomm)
31 if (mycomm%master) then
37 call mpifx_barrier(mycomm)
42 if (mycomm%master) then
48 call mpifx_barrier(mycomm)
53 if (mycomm%master) then
[all …]
H A Dtest_gather.f905 type(mpifx_comm) :: mycomm variable
13 call mycomm%init()
17 if (mycomm%master) then
18 allocate(recv1(1 * mycomm%size))
26 if (mycomm%master) then
35 if (mycomm%master) then
41 send1(:) = [ mycomm%rank, mycomm%rank + 1 ] ! Arbitrary numbers to send
46 if (mycomm%master) then
53 if (mycomm%master) then
59 send1(:) = [ mycomm%rank, mycomm%rank + 1 ] ! Arbitrary numbers to send
[all …]
H A Dtest_allreduce.f907 type(mpifx_comm) :: mycomm variable
12 call mycomm%init()
15 vali0 = mycomm%rank * 2
16 write(*, "(I2.2,'-',I3.3,'|',1X,A,I0)") 1, mycomm%rank, &
18 call mpifx_allreduce(mycomm, vali0, resvali0, MPI_SUM)
23 valr(:) = [ real(mycomm%rank + 1, dp) * 1.2, &
24 & real(mycomm%rank + 1, dp) * 4.3, real(mycomm%rank + 1, dp) * 3.8 ]
27 call mpifx_allreduce(mycomm, valr, resvalr, MPI_PROD)
32 resvalr(:) = [ real(mycomm%rank + 1, dp) * 1.2, &
33 & real(mycomm%rank + 1, dp) * 4.3, real(mycomm%rank + 1, dp) * 3.8 ]
[all …]
H A Dtest_allgather.f905 type(mpifx_comm) :: mycomm variable
13 call mycomm%init()
16 send0 = mycomm%rank * 2
17 allocate(recv1(1 * mycomm%size))
21 call mpifx_allgather(mycomm, send0, recv1)
23 write(*, label // formstr) 2, mycomm%rank, &
29 allocate(recv1(size(send1) * mycomm%size))
31 send1(:) = [ mycomm%rank, mycomm%rank + 1 ]
35 call mpifx_allgather(mycomm, send1, recv1)
41 allocate(recv2(size(send1), mycomm%size))
[all …]
H A Dtest_reduce.f907 type(mpifx_comm) :: mycomm variable
12 call mycomm%init()
15 vali0 = mycomm%rank * 2
16 write(*, "(I2.2,'-',I3.3,'|',1X,A,I0)") 1, mycomm%rank, &
18 call mpifx_reduce(mycomm, vali0, resvali0, MPI_SUM)
23 valr(:) = [ real(mycomm%rank + 1, dp) * 1.2, &
24 & real(mycomm%rank + 1, dp) * 4.3, real(mycomm%rank + 1, dp) * 3.8 ]
28 call mpifx_reduce(mycomm, valr, resvalr, MPI_PROD)
33 resvalr(:) = [ real(mycomm%rank + 1, dp) * 1.2, &
34 & real(mycomm%rank + 1, dp) * 4.3, real(mycomm%rank + 1, dp) * 3.8 ]
[all …]
H A Dtest_scatter.f905 type(mpifx_comm) :: mycomm variable
14 call mycomm%init()
17 if (mycomm%master) then
18 allocate(send1(mycomm%size))
27 call mpifx_scatter(mycomm, send1, recv0)
33 if (mycomm%master) then
35 allocate(send1(2 * mycomm%size))
43 call mpifx_scatter(mycomm, send1, recv1)
49 if (mycomm%master) then
50 allocate(send2(2, mycomm%size))
[all …]
H A Dtest_send_recv.f906 type(mpifx_comm) :: mycomm variable
10 call mycomm%init()
11 if (.not. mycomm%master) then
12 write(msg, "(A,I0,A)") "Hello from process ", mycomm%rank, "!"
13 call mpifx_send(mycomm, msg, mycomm%masterrank)
16 do source = 1, mycomm%size - 1
17 call mpifx_recv(mycomm, msg, source)
/dports/science/dftbplus/dftbplus-19.1/external/mpifx/origin/src/
H A Dmpifx_gather.m417 !! \param mycomm MPI communicator.
24 type(mpifx_comm), intent(in) :: mycomm
32 _assert(.not. mycomm%master .or. size(recv) == size(send) * mycomm%size)
33 _assert(.not. mycomm%master .or. &
36 _handle_inoptflag(root0, root, mycomm%masterrank)
38 & $5, root0, mycomm%id, error0)
57 !! \param mycomm MPI communicator.
64 type(mpifx_comm), intent(in) :: mycomm
72 _assert(.not. mycomm%master .or. size(recv) == $4 * mycomm%size)
73 _assert(.not. mycomm%master .or. size(recv, dim=$6) == mycomm%size)
[all …]
H A Dmpifx_scatter.m417 !! \param mycomm MPI communicator.
24 type(mpifx_comm), intent(in) :: mycomm
32 _assert(.not. mycomm%master .or. size(send) == size(recv) * mycomm%size)
33 _assert(.not. mycomm%master .or. &
36 _handle_inoptflag(root0, root, mycomm%masterrank)
38 & $5, root0, mycomm%id, error0)
57 !! \param mycomm MPI communicator.
64 type(mpifx_comm), intent(in) :: mycomm
72 _assert(.not. mycomm%master .or. size(send) == $4 * mycomm%size)
73 _assert(.not. mycomm%master .or. size(send, dim=$6) == mycomm%size)
[all …]
H A Dmpifx_gatherv.m417 !! \param mycomm MPI communicator.
27 type(mpifx_comm), intent(in) :: mycomm
41 if (mycomm%rank == root0) then
43 allocate(displs0(mycomm%size))
49 do ii = 2, mycomm%size
56 & $5, root0, mycomm%id, error0)
76 !! \param mycomm MPI communicator.
99 if (mycomm%rank == root0) then
102 allocate(displs0(mycomm%size))
108 do ii = 2, mycomm%size
[all …]
H A Dmpifx_reduce.m415 !! \param mycomm MPI communicator.
19 !! \param root Root process for the result (default: mycomm%masterrank)
22 subroutine mpifx_reduce_$1(mycomm, operand, result, operator, root, error)
23 type(mpifx_comm), intent(in) :: mycomm
32 _handle_inoptflag(root0, root, mycomm%masterrank)
51 !! \param mycomm MPI communicator.
57 subroutine mpifx_reduceip_$1(mycomm, opres, operator, root, error)
58 type(mpifx_comm), intent(in) :: mycomm
67 _handle_inoptflag(root0, root, mycomm%masterrank)
68 if (mycomm%rank == root0) then
[all …]
H A Dmpifx_allgather.m417 !! \param mycomm MPI communicator.
22 subroutine mpifx_allgather_$1(mycomm, send, recv, error)
23 type(mpifx_comm), intent(in) :: mycomm
30 _assert(size(recv) == size(send) * mycomm%size)
34 & $5, mycomm%id, error0)
53 !! \param mycomm MPI communicator.
58 subroutine mpifx_allgather_$1(mycomm, send, recv, error)
59 type(mpifx_comm), intent(in) :: mycomm
66 _assert(size(recv) == $4 * mycomm%size)
67 _assert(size(recv, dim=$6) == mycomm%size)
[all …]
H A Dmpifx_allgatherv.m417 !! \param mycomm MPI communicator.
26 type(mpifx_comm), intent(in) :: mycomm
38 allocate(displs0(mycomm%size))
40 _assert(size(displs) == mycomm%size)
44 do ii = 2, mycomm%size
50 & $5, mycomm%id, error0)
70 !! \param mycomm MPI communicator.
79 type(mpifx_comm), intent(in) :: mycomm
91 allocate(displs0(mycomm%size))
97 do ii = 2, mycomm%size
[all …]
H A Dmpifx_allreduce.m415 !! \param mycomm MPI communicator.
21 subroutine mpifx_allreduce_$1(mycomm, operand, result, operator, error)
22 type(mpifx_comm), intent(in) :: mycomm
30 call mpi_allreduce(operand, result, $4, $5, operator, mycomm%id, error0)
48 !! \param mycomm MPI communicator.
53 subroutine mpifx_allreduceip_$1(mycomm, opres, operator, error)
54 type(mpifx_comm), intent(in) :: mycomm
61 call mpi_allreduce(MPI_IN_PLACE, opres, $4, $5, operator, mycomm%id, error0)
H A Dmpifx_bcast.m414 !! \param mycomm MPI descriptor
17 !! \param root Root node for the broadcast (default: mycomm%masterrank).
20 subroutine mpifx_bcast_$1(mycomm, msg, root, error)
21 type(mpifx_comm), intent(in) :: mycomm
28 _handle_inoptflag(root0, root, mycomm%masterrank)
29 call mpi_bcast(msg, $4, $5, root0, mycomm%id, error0)
/dports/net/mpich2/mpich2-1.5/test/mpi/cxx/errhan/
H A Dcommcallx.cxx30 static MPI::Intracomm mycomm; variable
37 if (comm != mycomm) { in eh()
44 mycomm.Get_name( cname, len ); in eh()
60 mycomm = comm; in main()
61 mycomm.Set_name( "dup of comm_world" ); in main()
79 mycomm = comm; in main()
80 mycomm.Set_name( "dup of comm_world" ); in main()
91 mycomm = comm2; in main()
92 mycomm.Set_name( "dup of dup of comm_world" ); in main()
/dports/net/mpich/mpich-3.4.3/test/mpi/cxx/errhan/
H A Dcommcallx.cxx29 static MPI::Intracomm mycomm; variable
36 if (comm != mycomm) { in eh()
43 mycomm.Get_name(cname, len); in eh()
60 mycomm = comm; in main()
61 mycomm.Set_name("dup of comm_world"); in main()
78 mycomm = comm; in main()
79 mycomm.Set_name("dup of comm_world"); in main()
90 mycomm = comm2; in main()
91 mycomm.Set_name("dup of dup of comm_world"); in main()
/dports/science/lammps/lammps-stable_29Sep2021/unittest/fortran/
H A Dtest_fortran_create.f904 INTEGER :: mycomm variable
36 USE keepcreate, ONLY: lmp,mycomm
43 CALL mpi_comm_split(MPI_COMM_WORLD, color, key, mycomm, ierr)
44 lmp = lammps(comm=mycomm)
52 USE keepcreate, ONLY: lmp,mycomm
62 CALL mpi_comm_split(MPI_COMM_WORLD, color, key, mycomm, ierr)
63 lmp = lammps(args,mycomm)
79 USE keepcreate, ONLY: mycomm
83 f_lammps_get_comm = mycomm
/dports/science/dftbplus/dftbplus-19.1/external/mpifx/origin/doc/sphinx/
H A Dusing.rst22 type(mpifx_comm) :: mycomm
27 call mycomm%init()
30 vali0 = mycomm%rank * 2 ! Some arbitrary number
31 write(*, "(I2.2,'-',I3.3,'|',1X,A,I0)") 1, mycomm%rank, &
33 call mpifx_allreduce(mycomm, vali0, resvali0, MPI_SUM)
34 write(*, "(I2.2,'-',I3.3,'|',1X,A,I0)") 2, mycomm%rank, &
38 valr(:) = [ real(mycomm%rank + 1, dp) * 1.2, &
39 & real(mycomm%rank + 1, dp) * 4.3, real(mycomm%rank + 1, dp) * 3.8 ]
40 write(*, "(I2.2,'-',I3.3,'|',1X,A,3F8.2)") 3, mycomm%rank, &
42 call mpifx_allreduce(mycomm, valr, resvalr, MPI_PROD)
[all …]
/dports/net/mpich/mpich-3.4.3/test/mpi/errhan/
H A Dcommcall.c16 static MPI_Comm mycomm; variable
24 if (*comm != mycomm) { in eh()
42 mycomm = comm; in main()
60 mycomm = comm; in main()
71 mycomm = comm2; in main()
H A Dcommcall_oldapi.c19 static MPI_Comm mycomm; variable
27 if (*comm != mycomm) { in eh()
45 mycomm = comm; in main()
64 mycomm = comm; in main()
75 mycomm = comm2; in main()
/dports/net/mpich2/mpich2-1.5/test/mpi/errhan/
H A Dcommcall.c17 static MPI_Comm mycomm; variable
25 if (*comm != mycomm) { in eh()
42 mycomm = comm; in main()
60 mycomm = comm; in main()
71 mycomm = comm2; in main()
/dports/science/lammps/lammps-stable_29Sep2021/unittest/c-library/
H A Dtest_library_open.cpp47 MPI_Comm mycomm; in TEST() local
48 MPI_Comm_split(MPI_COMM_WORLD, 0, 1, &mycomm); in TEST()
51 void *handle = lammps_open(argc, argv, mycomm, &alt_ptr); in TEST()
63 EXPECT_EQ(lmp->world, mycomm); in TEST()
75 MPI_Comm_free(&mycomm); in TEST()
174 MPI_Comm mycomm; in TEST() local
175 MPI_Comm_split(MPI_COMM_WORLD, 0, 1, &mycomm); in TEST()
176 int fcomm = MPI_Comm_c2f(mycomm); in TEST()
189 EXPECT_EQ(lmp->world, mycomm); in TEST()
199 MPI_Comm_free(&mycomm); in TEST()

123