[petsc-dev] Checking for PETSc Cuda Support

[Dave Nystrom]

Jed Brown writes:
 > On Mon, Mar 19, 2012 at 22:15, Dave Nystrom <dnystrom1 at comcast.net> wrote:
 > 
 > > OK.  I was thinking of a function but that should work.
 > 
 > subroutine does_petsc_have_cuda(does)
 > logical :: does
 > does = .false.
 > #ifdef PETSC_HAVE_CUDA
 > does = .true.
 > #endif
 > end subroutine

Well, I did not really mean for you to write such a trivial function because
of my comment above.  I certainly know how to write something like that.