[petsc-users] PetscLogStage functions not working in fortran

[luc berger-vergiat]

I get the following:

nm /home/luc/research/petsc-3.5.2/arch-opt/lib/libpetsc.a | grep -i PetscLogStageRegister
0000000000000338 T PetscLogStageRegister
00000000000004ba T petsclogstageregister_
                 U PetscLogStageRegister
                 U PetscLogStageRegister

> On Mar 1, 2015, at 9:06 AM, Matthew Knepley <knepley at gmail.com> wrote:
> 
> On Sun, Mar 1, 2015 at 12:28 AM, Luc Berger-Vergiat <lb2653 at columbia.edu <mailto:lb2653 at columbia.edu>> wrote:
> Hi all,
> I am trying to fine gain a little my program profiling but cannot get PetscLogStageRegiset, PetscLogStagePush and PetscLogStagePop to work in my Fortran code.
> Here is my fortran subroutine:
> 
> They are certainly there:
> 
>   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>
> 
> What do you get for
> 
>   nm $PETSC_ARCH/lib/libpetsc.a | grep -i PetscLogStageRegister
> 
>      Matt
>  
>       subroutine SetPetscStage(StageNum)
> 
>       implicit  none
> 
> #     include  "finclude/petsc.h"
> 
>       integer        StageNum
>       character      StageName*5
>       PetscErrorCode ierr
>       PetscInt       Stage
> 
>       if(StageNum.eq.1) then
>          Stage = 1
>          PetscLogStageRegister("Jacobian and residual assembly",
>      &        Stage,ierr)
>          PetscLogStagePush(Stage,ierr)
>       elseif(StageNum.eq.11) then
>          PetscLogStagePop()
>       endif
> 
>       end
> 
> I get the following compiler error when I try to make my program:
> 
> SetPetscStage.F:14.9:
> 
>          PetscLogStageRegister("Jacobian and residual assembly",
>          1
> Error: Unclassifiable statement at (1)
> SetPetscStage.F:16.9:
> 
> PetscLogStagePush(Stage,ierr)
>          1
> Error: Unclassifiable statement at (1)
> SetPetscStage.F:18.9:
> 
> PetscLogStagePop()
>          1
> Error: Unclassifiable statement at (1)
> 
> Any idea on what is be happening?
> 
> -- 
> Best,
> Luc
> 
> 
> 
> 
> 
> -- 
> What most experimenters take for granted before they begin their experiments is infinitely more interesting than any results to which their experiments lead.
> -- Norbert Wiener

-------------- next part --------------
An HTML attachment was scrubbed...
URL: <http://lists.mcs.anl.gov/pipermail/petsc-users/attachments/20150301/d3285cb9/attachment.html>