[petsc-users] PetscLogStage functions not working in fortran

[Luc Berger-Vergiat]

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:

       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