<div dir="ltr">On Tue, Oct 29, 2013 at 4:38 PM, Barry Smith <span dir="ltr"><<a href="mailto:bsmith@mcs.anl.gov" target="_blank">bsmith@mcs.anl.gov</a>></span> wrote:<br><div class="gmail_extra"><div class="gmail_quote">
<blockquote class="gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex"><br>
   Is your question, why is there a<br>
<br>
PETSC_EXTERN void PETSC_STDCALL petscinitialize_(CHAR filename PETSC_MIXED_LEN(len),PetscErrorCode *ierr PETSC_END_LEN(len))<br>
{<br>
#if defined (PETSC_USE_NARGS)<br>
  short       flg,i;<br>
#else<br>
  int         i;<br>
#if !defined(PETSC_HAVE_PXFGETARG_NEW) && !defined (PETSC_HAVE_PXFGETARG_NEW)<br>
  int         j;<br>
#endif<br>
#endif<br>
<br>
function in zstart.c that has a great deal of code duplication (yuck) with the C PetscInitialize() function?<br>
<br>
The reason is because a long long long time ago we had great difficulty using the exact same code for most of the initialization in C and Fortran for a bunch of subtle and machine specific reasons I forgot (Satish may remember). We introduced the code duplication and have had no problems since (except sometimes forgetting to put new things added to PetscInitialize() into petscinitialize_() !)    Yes ideally we would eliminate the code duplication with a refactorization but the gain would mostly be a good feeling and since Satish and I sweated a lot of tears long ago with crazy stuff that went wrong until we duplicated code I would vote against trying to put them together.<br>
</blockquote><div><br></div><div>I had a "forgot to duplicate the code" problem and was unhappy.</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">

If your question is something else then please restate your question.<br>
<span class="HOEnZb"><font color="#888888"><br>
   Barry<br>
</font></span><div class="HOEnZb"><div class="h5"><br>
<br>
<br>
On Oct 29, 2013, at 4:03 PM, Matthew Knepley <<a href="mailto:knepley@gmail.com">knepley@gmail.com</a>> wrote:<br>
<br>
> Why do we have a copy of PetscInitialize() in zstart.c? We just call PetscFinalize()<br>
> from there.<br>
><br>
>    Matt<br>
><br>
> --<br>
> 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<br>
<br>
</div></div></blockquote></div><br><br clear="all"><div><br></div>-- <br>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>