<div dir="ltr"><div class="gmail_extra"><div class="gmail_quote">On Sun, Mar 1, 2015 at 12:28 AM, Luc Berger-Vergiat <span dir="ltr"><<a href="mailto:lb2653@columbia.edu" target="_blank">lb2653@columbia.edu</a>></span> wrote:<br><blockquote class="gmail_quote" style="margin:0px 0px 0px 0.8ex;border-left-width:1px;border-left-color:rgb(204,204,204);border-left-style:solid;padding-left:1ex">Hi all,<br>
I am trying to fine gain a little my program profiling but cannot get PetscLogStageRegiset, PetscLogStagePush and PetscLogStagePop to work in my Fortran code.<br>
Here is my fortran subroutine:<br></blockquote><div><br></div><div>They are certainly there:</div><div><br></div><div>  <a href="https://bitbucket.org/petsc/petsc/src/5620d6dc8304f23d8d30f97758f32d1dd71aa0ff/src/sys/logging/ftn-custom/zplogf.c?at=master#cl-118">https://bitbucket.org/petsc/petsc/src/5620d6dc8304f23d8d30f97758f32d1dd71aa0ff/src/sys/logging/ftn-custom/zplogf.c?at=master#cl-118</a></div><div><br></div><div>What do you get for</div><div><br></div><div>  nm $PETSC_ARCH/lib/libpetsc.a | grep -i PetscLogStageRegister</div><div><br></div><div>     Matt</div><div> </div><blockquote class="gmail_quote" style="margin:0px 0px 0px 0.8ex;border-left-width:1px;border-left-color:rgb(204,204,204);border-left-style:solid;padding-left:1ex">
      subroutine SetPetscStage(StageNum)<br>
<br>
      implicit  none<br>
<br>
#     include  "finclude/petsc.h"<br>
<br>
      integer        StageNum<br>
      character      StageName*5<br>
      PetscErrorCode ierr<br>
      PetscInt       Stage<br>
<br>
      if(StageNum.eq.1) then<br>
         Stage = 1<br>
         PetscLogStageRegister("<u></u>Jacobian and residual assembly",<br>
     &        Stage,ierr)<br>
         PetscLogStagePush(Stage,ierr)<br>
      elseif(StageNum.eq.11) then<br>
         PetscLogStagePop()<br>
      endif<br>
<br>
      end<br>
<br>
I get the following compiler error when I try to make my program:<br>
<br>
SetPetscStage.F:14.9:<br>
<br>
         PetscLogStageRegister("<u></u>Jacobian and residual assembly",<br>
         1<br>
Error: Unclassifiable statement at (1)<br>
SetPetscStage.F:16.9:<br>
<br>
PetscLogStagePush(Stage,ierr)<br>
         1<br>
Error: Unclassifiable statement at (1)<br>
SetPetscStage.F:18.9:<br>
<br>
PetscLogStagePop()<br>
         1<br>
Error: Unclassifiable statement at (1)<br>
<br>
Any idea on what is be happening?<span class=""><font color="#888888"><br>
<br>
-- <br>
Best,<br>
Luc<br>
<br>
<br>
</font></span></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>