You must have something else going on. The following works fine, for example.<div><br></div><div><div>diff --git a/src/snes/examples/tutorials/ex5f.F b/src/snes/examples/tutorials/ex5f.F</div><div>--- a/src/snes/examples/tutorials/ex5f.F</div>
<div>+++ b/src/snes/examples/tutorials/ex5f.F</div><div>@@ -58,6 +58,7 @@</div><div>       PetscErrorCode ierr</div><div>       PetscReal      lambda_max,lambda_min</div><div>       PetscBool      flg</div><div>+      DM da2</div>
<div> </div><div> </div><div> !  Note: Any user-defined Fortran routines (such as FormJacobianLocal)</div><div>@@ -144,6 +145,9 @@</div><div>       call DMDASetLocalFunction(da,FormFunctionLocal,ierr)</div><div>       call DMDASetLocalJacobian(da,FormJacobianLocal,ierr)</div>
<div>       call SNESSetDM(snes,da,ierr)</div><div>+      da2 = da</div><div>+      call PetscObjectReference(da2,ierr)</div><div>+      call DMDestroy(da2,ierr)</div><div> </div><div> ! - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -</div>
<div> !  Customize nonlinear solver; set runtime options</div><div><br></div><br><div class="gmail_quote">On Thu, Aug 30, 2012 at 5:36 PM, Chris Eldred <span dir="ltr"><<a href="mailto:chris.eldred@gmail.com" target="_blank">chris.eldred@gmail.com</a>></span> wrote:<br>
<blockquote class="gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex">I get an error when I try to use that:<br>
<br>
[0]PETSC ERROR: --------------------- Error Message<br>
------------------------------------<br>
[0]PETSC ERROR: Corrupt argument:<br>
see <a href="http://www.mcs.anl.gov/petsc/documentation/faq.html#valgrind" target="_blank">http://www.mcs.anl.gov/petsc/documentation/faq.html#valgrind</a>!<br>
[0]PETSC ERROR: Invalid type of object: Parameter # 1!<br>
[0]PETSC ERROR:<br>
------------------------------------------------------------------------<br>
[0]PETSC ERROR: Petsc Development HG revision:<br>
56f27b189e4fd57f5a4b7ffd6aa6bb08bd8a4d5b  HG Date: Wed Aug 29 12:03:50<br>
2012 -0500<br>
[0]PETSC ERROR: See docs/changes/index.html for recent updates.<br>
[0]PETSC ERROR: See docs/faq.html for hints about trouble shooting.<br>
[0]PETSC ERROR: See docs/index.html for manual pages.<br>
[0]PETSC ERROR:<br>
------------------------------------------------------------------------<br>
[0]PETSC ERROR: ./swe on a arch-linu named Puget-101334 by user Thu<br>
Aug 30 16:35:51 2012<br>
[0]PETSC ERROR: Libraries linked from<br>
/home/user/Desktop/LIBRARIES/petsc-dev/arch-linux2-cxx-debug/lib<br>
[0]PETSC ERROR: Configure run at Wed Aug 29 12:49:26 2012<br>
[0]PETSC ERROR: Configure options --download-boost --download-chaco<br>
--download-ctetgen --download-f-blas-lapack --download-fiat<br>
--download-generator --download-metis --download-ml --download-mpich<br>
--download-parmetis --download-scientificpython --download-triangle<br>
--with-clanguage=cxx --with-dynamic-loading --with-shared-libraries<br>
--with-sieve PETSC_ARCH=arch-linux2-cxx-debug<br>
[0]PETSC ERROR:<br>
------------------------------------------------------------------------<br>
[0]PETSC ERROR: PetscObjectReference() line 378 in<br>
/home/user/Desktop/LIBRARIES/petsc-dev/src/sys/objects/inherit.c<br>
application called MPI_Abort(MPI_COMM_WORLD, 64) - process 0<br>
[unset]: aborting job:<br>
application called MPI_Abort(MPI_COMM_WORLD, 64) - process 0<br>
<div class="HOEnZb"><div class="h5"><br>
<br>
On Thu, Aug 30, 2012 at 4:32 PM, Jed Brown <<a href="mailto:jedbrown@mcs.anl.gov">jedbrown@mcs.anl.gov</a>> wrote:<br>
> On Thu, Aug 30, 2012 at 5:30 PM, Chris Eldred <<a href="mailto:chris.eldred@gmail.com">chris.eldred@gmail.com</a>><br>
> wrote:<br>
>><br>
>> How would I use PetscObjectReference((PetscObject)section) in Fortran?<br>
><br>
><br>
> call PetscObjectReference(section,ierr)<br>
><br>
>><br>
>><br>
>> On Thu, Aug 30, 2012 at 4:16 PM, Jed Brown <<a href="mailto:jedbrown@mcs.anl.gov">jedbrown@mcs.anl.gov</a>> wrote:<br>
>> > On Thu, Aug 30, 2012 at 5:12 PM, Matthew Knepley <<a href="mailto:knepley@gmail.com">knepley@gmail.com</a>><br>
>> > wrote:<br>
>> >><br>
>> >> Its not wrong. This is the way I wanted it. You set the PetscSection<br>
>> >> and<br>
>> >> give up control. If you<br>
>> >> do not want to give up control, then call PetscObjectReference() before<br>
>> >> passing it in.<br>
>> ><br>
>> ><br>
>> > Since this is (a) different from everything else in PETSc and (b) not<br>
>> > explicitly documented, it is doubly wrong.<br>
>><br>
>><br>
>><br>
>> --<br>
>> Chris Eldred<br>
>> DOE Computational Science Graduate Fellow<br>
>> Graduate Student, Atmospheric Science, Colorado State University<br>
>> B.S. Applied Computational Physics, Carnegie Mellon University, 2009<br>
>> <a href="mailto:chris.eldred@gmail.com">chris.eldred@gmail.com</a><br>
><br>
><br>
<br>
<br>
<br>
--<br>
Chris Eldred<br>
DOE Computational Science Graduate Fellow<br>
Graduate Student, Atmospheric Science, Colorado State University<br>
B.S. Applied Computational Physics, Carnegie Mellon University, 2009<br>
<a href="mailto:chris.eldred@gmail.com">chris.eldred@gmail.com</a><br>
</div></div></blockquote></div><br></div>