<div dir="ltr">Don't you need a 'call' first?<div><br></div><div> Matt</div></div><div class="gmail_extra"><br><div class="gmail_quote">On Sun, Mar 1, 2015 at 8:09 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:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex"><div style="word-wrap:break-word">I get the following:<div><br></div><div><div style="margin:0px;font-size:10px;font-family:Monaco;color:rgb(245,245,245);background-color:rgb(0,0,0)">nm /home/luc/research/petsc-3.5.2/arch-opt/lib/libpetsc.a | grep -i PetscLogStageRegister</div><div style="margin:0px;font-size:10px;font-family:Monaco;color:rgb(195,55,32);background-color:rgb(0,0,0)"><span style="color:#f5f5f5">0000000000000338 T </span>PetscLogStageRegister</div><div style="margin:0px;font-size:10px;font-family:Monaco;color:rgb(195,55,32);background-color:rgb(0,0,0)"><span style="color:#f5f5f5">00000000000004ba T </span>petsclogstageregister<span style="color:#f5f5f5">_</span></div><div style="margin:0px;font-size:10px;font-family:Monaco;color:rgb(195,55,32);background-color:rgb(0,0,0)"><span style="color:#f5f5f5"> U </span>PetscLogStageRegister</div><div style="margin:0px;font-size:10px;font-family:Monaco;color:rgb(195,55,32);background-color:rgb(0,0,0)"><span style="color:#f5f5f5"> U </span>PetscLogStageRegister</div></div><div><br><div><blockquote type="cite"><div>On Mar 1, 2015, at 9:06 AM, Matthew Knepley <<a href="mailto:knepley@gmail.com" target="_blank">knepley@gmail.com</a>> wrote:</div><br><div><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" target="_blank">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="HOEnZb"><font color="#888888"><span><font color="#888888"><br>
<br>
-- <br>
Best,<br>
Luc<br>
<br>
<br>
</font></span></font></span></blockquote></div><span class="HOEnZb"><font color="#888888"><br><br clear="all"><div><br></div>-- <br><div>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>
</font></span></div></div>
</div></blockquote></div><br></div></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>