program cublasTest use cublas use cudafor use iso_c_binding implicit none INTEGER,PARAMETER::m = 600 INTEGER,PARAMETER::n = 300 INTEGER,PARAMETER::p = 3 integer,pointer,device :: idev(:,:,:) integer ishap(3) type(cudaPitchedPtr) :: devPtr type(cudaExtent) :: extent INTEGER::i,wz(m,n,p),error extent%width = m extent%height = n extent%depth = p ! cudaMalloc3D error = cudaMalloc3D(devPtr, extent) ishap(1) = devPtr%pitch / 4 ishap(2) = n ishap(3) = p ! call c_f_pointer(devPtr%ptr, idev, ishap) ! cudaMemset3D error = cudaMemset3D(devPtr, 9, extent) call c_f_pointer(devPtr%ptr, idev, ishap) wz=idev(1:m,1:n,1:p) write(*,*),'wz =',wz(1,1,:) ! write(*,*),'size devPtr:', devPtr%pitch, devPtr%xsize, devPtr%ysize end program cublasTest