yezhengmao/nccl
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Remove irrelevant output from ncclReduce Fortran tests

Browse Source
This commit is contained in:
Kyle Fernandes, ne Jacobs 2016-11-20 14:16:53 +00:00 committed by Sylvain Jeaugey
parent 9c18468fe2
commit c2c515516b
2 changed files with 0 additions and 21 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
fortran/test/reduce_arr_out.f90
View File

@ -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

10
fortran/test/reduce_ptr_out.f90
View File

@ -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