<html><head><meta http-equiv="Content-Type" content="text/html charset=us-ascii"></head><body style="word-wrap: break-word; -webkit-nbsp-mode: space; -webkit-line-break: after-white-space;" class="">I get the following:<div class=""><br class=""></div><div class=""><div style="margin: 0px; font-size: 10px; font-family: Monaco; color: rgb(245, 245, 245); background-color: rgb(0, 0, 0);" class="">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);" class=""><span style="font-variant-ligatures: no-common-ligatures; color: #f5f5f5" class="">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);" class=""><span style="font-variant-ligatures: no-common-ligatures; color: #f5f5f5" class="">00000000000004ba T </span>petsclogstageregister<span style="font-variant-ligatures: no-common-ligatures; color: #f5f5f5" class="">_</span></div><div style="margin: 0px; font-size: 10px; font-family: Monaco; color: rgb(195, 55, 32); background-color: rgb(0, 0, 0);" class=""><span style="font-variant-ligatures: no-common-ligatures; color: #f5f5f5" class=""> 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);" class=""><span style="font-variant-ligatures: no-common-ligatures; color: #f5f5f5" class=""> U </span>PetscLogStageRegister</div></div><div class=""><br class=""><div><blockquote type="cite" class=""><div class="">On Mar 1, 2015, at 9:06 AM, Matthew Knepley <<a href="mailto:knepley@gmail.com" class="">knepley@gmail.com</a>> wrote:</div><br class="Apple-interchange-newline"><div class=""><div dir="ltr" class=""><div class="gmail_extra"><div class="gmail_quote">On Sun, Mar 1, 2015 at 12:28 AM, Luc Berger-Vergiat <span dir="ltr" class=""><<a href="mailto:lb2653@columbia.edu" target="_blank" class="">lb2653@columbia.edu</a>></span> wrote:<br class=""><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 class="">
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 class="">
Here is my fortran subroutine:<br class=""></blockquote><div class=""><br class=""></div><div class="">They are certainly there:</div><div class=""><br class=""></div><div class=""> <a href="https://bitbucket.org/petsc/petsc/src/5620d6dc8304f23d8d30f97758f32d1dd71aa0ff/src/sys/logging/ftn-custom/zplogf.c?at=master#cl-118" class="">https://bitbucket.org/petsc/petsc/src/5620d6dc8304f23d8d30f97758f32d1dd71aa0ff/src/sys/logging/ftn-custom/zplogf.c?at=master#cl-118</a></div><div class=""><br class=""></div><div class="">What do you get for</div><div class=""><br class=""></div><div class=""> nm $PETSC_ARCH/lib/libpetsc.a | grep -i PetscLogStageRegister</div><div class=""><br class=""></div><div class=""> Matt</div><div class=""> </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 class="">
<br class="">
implicit none<br class="">
<br class="">
# include "finclude/petsc.h"<br class="">
<br class="">
integer StageNum<br class="">
character StageName*5<br class="">
PetscErrorCode ierr<br class="">
PetscInt Stage<br class="">
<br class="">
if(StageNum.eq.1) then<br class="">
Stage = 1<br class="">
PetscLogStageRegister("<u class=""></u>Jacobian and residual assembly",<br class="">
& Stage,ierr)<br class="">
PetscLogStagePush(Stage,ierr)<br class="">
elseif(StageNum.eq.11) then<br class="">
PetscLogStagePop()<br class="">
endif<br class="">
<br class="">
end<br class="">
<br class="">
I get the following compiler error when I try to make my program:<br class="">
<br class="">
SetPetscStage.F:14.9:<br class="">
<br class="">
PetscLogStageRegister("<u class=""></u>Jacobian and residual assembly",<br class="">
1<br class="">
Error: Unclassifiable statement at (1)<br class="">
SetPetscStage.F:16.9:<br class="">
<br class="">
PetscLogStagePush(Stage,ierr)<br class="">
1<br class="">
Error: Unclassifiable statement at (1)<br class="">
SetPetscStage.F:18.9:<br class="">
<br class="">
PetscLogStagePop()<br class="">
1<br class="">
Error: Unclassifiable statement at (1)<br class="">
<br class="">
Any idea on what is be happening?<span class=""><font color="#888888" class=""><br class="">
<br class="">
-- <br class="">
Best,<br class="">
Luc<br class="">
<br class="">
<br class="">
</font></span></blockquote></div><br class=""><br clear="all" class=""><div class=""><br class=""></div>-- <br class=""><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 class="">-- Norbert Wiener</div>
</div></div>
</div></blockquote></div><br class=""></div></body></html>