[petsc-users] PetscLogStage functions not working in fortran

[Matthew Knepley]

On Sun, Mar 1, 2015 at 12:28 AM, Luc Berger-Vergiat <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

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/2a04edee/attachment.html>