/dports/science/dftbplus/dftbplus-19.1/external/mpifx/origin/test/ |
H A D | test_allgatherv.f90 | 5 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 D | test_gatherv.f90 | 5 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 D | test_bcast.f90 | 8 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 D | test_gather.f90 | 5 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 D | test_allreduce.f90 | 7 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 D | test_allgather.f90 | 5 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 D | test_reduce.f90 | 7 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 D | test_scatter.f90 | 5 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 D | test_send_recv.f90 | 6 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 D | mpifx_gather.m4 | 17 !! \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 D | mpifx_scatter.m4 | 17 !! \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 D | mpifx_gatherv.m4 | 17 !! \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 D | mpifx_reduce.m4 | 15 !! \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 D | mpifx_allgather.m4 | 17 !! \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 D | mpifx_allgatherv.m4 | 17 !! \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 D | mpifx_allreduce.m4 | 15 !! \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 D | mpifx_bcast.m4 | 14 !! \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 D | commcallx.cxx | 30 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 D | commcallx.cxx | 29 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 D | test_fortran_create.f90 | 4 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 D | using.rst | 22 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 D | commcall.c | 16 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 D | commcall_oldapi.c | 19 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 D | commcall.c | 17 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 D | test_library_open.cpp | 47 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()
|