<div dir="ltr"><div dir="ltr"><br></div><div class="gmail_quote"><div dir="ltr" class="gmail_attr">On Sat, Jul 27, 2019 at 11:39 AM Smith, Barry F. <<a href="mailto:bsmith@mcs.anl.gov">bsmith@mcs.anl.gov</a>> wrote:<br></div><blockquote class="gmail_quote" style="margin:0px 0px 0px 0.8ex;border-left:1px solid rgb(204,204,204);padding-left:1ex"><br>
Good catch. Thanks. Maybe the SeqCUDA has the same problem?<br></blockquote><div><br></div><div>THis is done (I may have done it).</div><div><br></div><div>Now it seems to me that when you call VecPinToCPU you are setting up and don't have data, so this copy does not seem necessary. Maybe remove the copy here:</div><div><br></div><div>PetscErrorCode VecPinToCPU_MPICUDA(Vec V,PetscBool pin)<br>{<br> PetscErrorCode ierr;<br><br> PetscFunctionBegin;<br> V->pinnedtocpu = pin;<br> if (pin) {<br><b> ierr = VecCUDACopyFromGPU(V);CHKERRQ(ierr); ????<br></b><br class="gmail-Apple-interchange-newline"></div><div>or</div><div><br></div><div>Not allocate the GPU if it is pinned by added in <b>a check </b>here:</div><div><br></div><div>PetscErrorCode VecCUDAAllocateCheck(Vec v)<br>{<br> PetscErrorCode ierr;<br> cudaError_t err;<br> cudaStream_t stream;<br> Vec_CUDA *veccuda;<br><br> PetscFunctionBegin;<br> if (!v->spptr) {<br> ierr = PetscMalloc(sizeof(Vec_CUDA),&v->spptr);CHKERRQ(ierr);<br> veccuda = (Vec_CUDA*)v->spptr;</div><div><b>if (v->valid_GPU_array != PETSC_OFFLOAD_CPU) {</b></div><div> err = cudaMalloc((void**)&veccuda->GPUarray_allocated,sizeof(PetscScalar)*((PetscBLASInt)v->map->n));CHKERRCUDA(err);<br> veccuda->GPUarray = veccuda->GPUarray_allocated;<br> err = cudaStreamCreate(&stream);CHKERRCUDA(err);<br> veccuda->stream = stream;<br> veccuda->hostDataRegisteredAsPageLocked = PETSC_FALSE;<br> if (v->valid_GPU_array == PETSC_OFFLOAD_UNALLOCATED) {<br> if (v->data && ((Vec_Seq*)v->data)->array) {<br> v->valid_GPU_array = PETSC_OFFLOAD_CPU;<br> } else {<br> v->valid_GPU_array = PETSC_OFFLOAD_GPU;<br> }<br> }</div><div><b>}</b></div><div> }<br> PetscFunctionReturn(0);<br>}<br></div><div><br></div><div><br></div><div><br></div><div> </div><blockquote class="gmail_quote" style="margin:0px 0px 0px 0.8ex;border-left:1px solid rgb(204,204,204);padding-left:1ex">
<br>
> On Jul 27, 2019, at 10:40 AM, Mark Adams <<a href="mailto:mfadams@lbl.gov" target="_blank">mfadams@lbl.gov</a>> wrote:<br>
> <br>
> Yea, I just figured out the problem. VecDuplicate_MPICUDA did not call PinToCPU or even copy pinnedtocpu. It just copied ops, so I added and am testing:<br>
> <br>
> ierr = VecCreate_MPICUDA_Private(*v,PETSC_TRUE,w->nghost,0);CHKERRQ(ierr);<br>
> vw = (Vec_MPI*)(*v)->data;<br>
> ierr = PetscMemcpy((*v)->ops,win->ops,sizeof(struct _VecOps));CHKERRQ(ierr);<br>
> ierr = VecPinToCPU(*v,win->pinnedtocpu);CHKERRQ(ierr);<br>
> <br>
> Thanks,<br>
> <br>
> On Sat, Jul 27, 2019 at 11:33 AM Smith, Barry F. <<a href="mailto:bsmith@mcs.anl.gov" target="_blank">bsmith@mcs.anl.gov</a>> wrote:<br>
> <br>
> I don't understand the context. Once a vector is pinned to the CPU the flag should be PETSC_OFFLOAD_CPU permanently until the pin to cpu is turned off. Do you have a pinned vector that has the value PETSC_OFFLOAD_GPU? For example here it is set to PETSC_OFFLOAD_CPU<br>
> <br>
> PetscErrorCode VecPinToCPU_MPICUDA(Vec V,PetscBool pin)<br>
> {<br>
> ....<br>
> if (pin) {<br>
> ierr = VecCUDACopyFromGPU(V);CHKERRQ(ierr);<br>
> V->valid_GPU_array = PETSC_OFFLOAD_CPU; /* since the CPU code will likely change values in the vector */<br>
> <br>
> <br>
> Is there any way to reproduce the problem?<br>
> <br>
> Barry<br>
> <br>
> <br>
> <br>
> <br>
> > On Jul 27, 2019, at 10:28 AM, Mark Adams <<a href="mailto:mfadams@lbl.gov" target="_blank">mfadams@lbl.gov</a>> wrote:<br>
> > <br>
> > I'm not sure what to do here. The problem is that pinned-to-cpu vectors are calling VecCUDACopyFromGPU here.<br>
> > <br>
> > Should I set x->valid_GPU_array to something else, like PETSC_OFFLOAD_CPU, in PinToCPU so this block of code i s not executed?<br>
> > <br>
> > PetscErrorCode VecGetArray(Vec x,PetscScalar **a)<br>
> > {<br>
> > PetscErrorCode ierr;<br>
> > #if defined(PETSC_HAVE_VIENNACL)<br>
> > PetscBool is_viennacltype = PETSC_FALSE;<br>
> > #endif<br>
> > <br>
> > PetscFunctionBegin;<br>
> > PetscValidHeaderSpecific(x,VEC_CLASSID,1);<br>
> > ierr = VecSetErrorIfLocked(x,1);CHKERRQ(ierr);<br>
> > if (x->petscnative) {<br>
> > #if defined(PETSC_HAVE_VIENNACL) || defined(PETSC_HAVE_CUDA)<br>
> > if (x->valid_GPU_array == PETSC_OFFLOAD_GPU) {<br>
> > #if defined(PETSC_HAVE_VIENNACL)<br>
> > ierr = PetscObjectTypeCompareAny((PetscObject)x,&is_viennacltype,VECSEQVIENNACL,VECMPIVIENNACL,VECVIENNACL,"");CHKERRQ(ierr);<br>
> > if (is_viennacltype) {<br>
> > ierr = VecViennaCLCopyFromGPU(x);CHKERRQ(ierr);<br>
> > } else<br>
> > #endif<br>
> > {<br>
> > #if defined(PETSC_HAVE_CUDA)<br>
> > ierr = VecCUDACopyFromGPU(x);CHKERRQ(ierr);<br>
> > #endif<br>
> > }<br>
> > } else if (x->valid_GPU_array == PETSC_OFFLOAD_UNALLOCATED) {<br>
> > #if defined(PETSC_HAVE_VIENNACL)<br>
> > ierr = PetscObjectTypeCompareAny((PetscObject)x,&is_viennacltype,VECSEQVIENNACL,VECMPIVIENNACL,VECVIENNACL,"");CHKERRQ(ierr);<br>
> > if (is_viennacltype) {<br>
> > ierr = VecViennaCLAllocateCheckHost(x);CHKERRQ(ierr);<br>
> > } else<br>
> > #endif<br>
> > {<br>
> > #if defined(PETSC_HAVE_CUDA)<br>
> > ierr = VecCUDAAllocateCheckHost(x);CHKERRQ(ierr);<br>
> > #endif<br>
> > }<br>
> > }<br>
> > #endif<br>
> > *a = *((PetscScalar**)x->data);<br>
> > } else {<br>
> > <br>
> > <br>
> > On Tue, Jul 23, 2019 at 9:18 PM Smith, Barry F. <<a href="mailto:bsmith@mcs.anl.gov" target="_blank">bsmith@mcs.anl.gov</a>> wrote:<br>
> > <br>
> > Yes, it needs to be able to switch back and forth between the CPU and GPU methods so you need to move into it the setting of the methods that is currently directly in the create method. See how MatConvert_SeqAIJ_SeqAIJViennaCL() calls ierr = MatPinToCPU_SeqAIJViennaCL(A,PETSC_FALSE);CHKERRQ(ierr); to set the methods for the GPU initially.<br>
> > <br>
> > Barry<br>
> > <br>
> > <br>
> > > On Jul 23, 2019, at 7:32 PM, Mark Adams <<a href="mailto:mfadams@lbl.gov" target="_blank">mfadams@lbl.gov</a>> wrote:<br>
> > > <br>
> > > <br>
> > > What are the symptoms of it not working? Does it appear to be still copying the matrices to the GPU? then running the functions on the GPU?<br>
> > > <br>
> > > <br>
> > > The object is dispatching the CUDA mat-vec etc.<br>
> > > <br>
> > > I suspect the pinning is incompletely done for CUDA (and MPIOpenCL) matrices. <br>
> > > <br>
> > > <br>
> > > Yes, git grep MatPinToCPU shows stuff for ViennaCL but not CUDA.<br>
> > > <br>
> > > I guess I can add something like this below. Do we need to set the device methods? They are already set when this method is set, right?<br>
> > > <br>
> > > We need the equivalent of <br>
> > > <br>
> > > static PetscErrorCode MatPinToCPU_SeqAIJViennaCL(Mat A,PetscBool flg)<br>
> > > {<br>
> > > PetscFunctionBegin;<br>
> > > A->pinnedtocpu = flg;<br>
> > > if (flg) {<br>
> > > A->ops->mult = MatMult_SeqAIJ;<br>
> > > A->ops->multadd = MatMultAdd_SeqAIJ;<br>
> > > A->ops->assemblyend = MatAssemblyEnd_SeqAIJ;<br>
> > > A->ops->duplicate = MatDuplicate_SeqAIJ;<br>
> > > } else {<br>
> > > A->ops->mult = MatMult_SeqAIJViennaCL;<br>
> > > A->ops->multadd = MatMultAdd_SeqAIJViennaCL;<br>
> > > A->ops->assemblyend = MatAssemblyEnd_SeqAIJViennaCL;<br>
> > > A->ops->destroy = MatDestroy_SeqAIJViennaCL;<br>
> > > A->ops->duplicate = MatDuplicate_SeqAIJViennaCL;<br>
> > > }<br>
> > > PetscFunctionReturn(0);<br>
> > > }<br>
> > > <br>
> > > for MPIViennaCL and MPISeqAIJ Cusparse but it doesn't look like it has been written yet. <br>
> > > <br>
> > > <br>
> > > > <br>
> > > > It does not seem to work. It does not look like CUDA has an MatCreateVecs. Should I add one and copy this flag over?<br>
> > > <br>
> > > We do need this function. But I don't see how it relates to pinning. When the matrix is pinned to the CPU we want it to create CPU vectors which I assume it does.<br>
> > > <br>
> > > <br>
> > > > <br>
> > > > Mark<br>
> > > <br>
> > <br>
> <br>
<br>
</blockquote></div></div>