<div class="gmail_quote">On Mon, Mar 19, 2012 at 22:15, Dave Nystrom <span dir="ltr"><<a href="mailto:Dave.Nystrom@tachyonlogic.com">Dave.Nystrom@tachyonlogic.com</a>></span> wrote:<br><blockquote class="gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex">
OK.  I was thinking of a function but that should work.</blockquote></div><br><div>subroutine does_petsc_have_cuda(does)</div><div>logical :: does</div><div>does = .false.</div><div>#ifdef PETSC_HAVE_CUDA</div><div>does = .true.</div>
<div>#endif</div><div>end subroutine</div>