diff options
author | Kyle Fernandes, ne Jacobs <kj333@cam.ac.uk> | 2016-11-20 17:16:53 +0300 |
---|---|---|
committer | Sylvain Jeaugey <sjeaugey@nvidia.com> | 2016-11-21 21:18:04 +0300 |
commit | c2c515516bad69ee3fa2c7bd2cdac7377b815854 (patch) | |
tree | 6c49963d48993c61c16a324222de64766e2b6351 | |
parent | 9c18468fe235f1fe39e9b05313d4eef842f4a669 (diff) |
Remove irrelevant output from ncclReduce Fortran tests
-rw-r--r-- | fortran/test/reduce_arr_out.f90 | 11 | ||||
-rw-r--r-- | fortran/test/reduce_ptr_out.f90 | 10 |
2 files changed, 0 insertions, 21 deletions
diff --git a/fortran/test/reduce_arr_out.f90 b/fortran/test/reduce_arr_out.f90 index 3db254b..17e41b4 100644 --- a/fortran/test/reduce_arr_out.f90 +++ b/fortran/test/reduce_arr_out.f90 @@ -125,17 +125,6 @@ type(c_devptr), allocatable :: recvBuffPtr(:) err = maxval(abs(hostBuff(:, nDev + 1) / hostBuff(:, i) - 1.0_real32)) print "(a, i2.2, a, e11.4e2)", "maximum error in sendbuff of rank ", i - 1," = ", err end do - - print "(a)", "" - do i = 1, nDev - if (i - 1 /= root) then - stat = cudaSetDevice(devList(i)) - call c_f_pointer(recvBuffPtr(i), recvBuff, [nEl]) - hostBuff(:, nDev + 1) = recvBuff - err = maxval(abs(hostBuff(:, nDev + 1) / hostBuff(:, i) - 1.0_real32)) - print "(a, i2.2, a, e11.4e2)", "maximum error in recvbuff of rank ", i - 1," = ", err - end if - end do print "(a)", "" do i = 1, nDev diff --git a/fortran/test/reduce_ptr_out.f90 b/fortran/test/reduce_ptr_out.f90 index bffc720..777f8ea 100644 --- a/fortran/test/reduce_ptr_out.f90 +++ b/fortran/test/reduce_ptr_out.f90 @@ -126,16 +126,6 @@ type(c_devptr), allocatable :: recvBuffPtr(:) err = maxval(abs(hostBuff(:, nDev + 1) / hostBuff(:, i) - 1.0_real32)) print "(a, i2.2, a, e11.4e2)", "maximum error in sendbuff of rank ", i - 1," = ", err end do - - print "(a)", "" - do i = 1, nDev - if (i - 1 /= root) then - stat = cudaSetDevice(devList(i)) - stat = cudaMemcpy(hostBuffPtr(nDev + 1), recvBuffPtr(i), nEl * c_sizeof(hostBuff(1, 1)), cudaMemcpyDeviceToHost) - err = maxval(abs(hostBuff(:, nDev + 1) / hostBuff(:, i) - 1.0_real32)) - print "(a, i2.2, a, e11.4e2)", "maximum error in recvbuff of rank ", i - 1," = ", err - end if - end do print "(a)", "" do i = 1, nDev |