From c2c515516bad69ee3fa2c7bd2cdac7377b815854 Mon Sep 17 00:00:00 2001 From: "Kyle Fernandes, ne Jacobs" Date: Sun, 20 Nov 2016 14:16:53 +0000 Subject: [PATCH] Remove irrelevant output from ncclReduce Fortran tests --- fortran/test/reduce_arr_out.f90 | 11 ----------- fortran/test/reduce_ptr_out.f90 | 10 ---------- 2 files changed, 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