<div dir="ltr"><div class="gmail_extra"><div class="gmail_quote">On Tue, May 31, 2016 at 7:34 AM, Mark Adams <span dir="ltr"><<a href="mailto:mfadams@lbl.gov" target="_blank">mfadams@lbl.gov</a>></span> wrote:<br><blockquote class="gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex"><div dir="ltr">Wrapper code like this does is not working for Robert:</div></blockquote><div><br></div><div>The easiest thing to do is just look at it in the debugger.</div><div><br></div><div>  Matt</div><div> </div><blockquote class="gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex"><div dir="ltr"><div><div style="margin:0px;font-size:11px;font-family:Menlo;background-color:rgb(249,249,249)"><span style="color:rgb(209,55,208)">subroutine</span> my_PetscOptionsClearValue(value,ierr)</div><div style="margin:0px;font-size:11px;font-family:Menlo;background-color:rgb(249,249,249)">  <span style="color:rgb(209,55,208)">use</span> petscsys</div><div style="margin:0px;font-size:11px;font-family:Menlo;color:rgb(47,185,34);background-color:rgb(249,249,249)"><span style="color:rgb(0,0,0)">  </span>implicit<span style="color:rgb(0,0,0)"> </span>none</div><div style="margin:0px;font-size:11px;font-family:Menlo;color:rgb(47,185,34);background-color:rgb(249,249,249)"><span style="color:rgb(0,0,0)">  </span>character<span style="color:rgb(0,0,0)">(</span>len<span style="color:rgb(202,118,31)">=</span><span style="color:rgb(192,53,30)">250</span><span style="color:rgb(0,0,0)">), </span>intent<span style="color:rgb(0,0,0)">(</span>in<span style="color:rgb(0,0,0)">) :: value</span></div><div style="margin:0px;font-size:11px;font-family:Menlo;background-color:rgb(249,249,249)">  PetscErrorCode, <span style="color:rgb(47,185,34)">intent</span>(<span style="color:rgb(47,185,34)">inout</span>) :: ierr</div><div style="margin:0px;font-size:11px;font-family:Menlo;background-color:rgb(249,249,249)"><br></div><div style="margin:0px;font-size:11px;font-family:Menlo;color:rgb(209,55,208);background-color:rgb(249,249,249)">#if PETSC_VERSION_LT(3,7,0)</div><div style="margin:0px;font-size:11px;font-family:Menlo;background-color:rgb(249,249,249)">  <span style="color:rgb(209,55,208);background-color:rgb(255,255,255)">call</span> PetscOptionsClearValue(value,ierr)</div><div style="margin:0px;font-size:11px;font-family:Menlo;color:rgb(209,55,208);background-color:rgb(249,249,249)">#else</div><div style="margin:0px;font-size:11px;font-family:Menlo;background-color:rgb(249,249,249)">  <span style="color:rgb(209,55,208);background-color:rgb(255,255,255)">call</span> PetscOptionsClearValue(PETSC_NULL_OBJECT,value,ierr)</div><div style="margin:0px;font-size:11px;font-family:Menlo;color:rgb(209,55,208);background-color:rgb(249,249,249)">#endif</div></div><br>Direct calls to <span style="font-family:Menlo;font-size:11px;background-color:rgb(249,249,249)">PetscOptionsClearValue work</span>, but calling through his wrapper does not seem to do anything. Is Fortran doing something funny with strings here?<span class="HOEnZb"><font color="#888888"><div><br></div><div>Mark</div></font></span></div>
</blockquote></div><br><br clear="all"><div><br></div>-- <br><div class="gmail_signature">What most experimenters take for granted before they begin their experiments is infinitely more interesting than any results to which their experiments lead.<br>-- Norbert Wiener</div>
</div></div>