Don't you need a 'call' first? Matt
On Sun, Mar 1, 2015 at 8:09 AM, luc berger-vergiat <[email protected]> wrote: > 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 <[email protected]> wrote: > > On Sun, Mar 1, 2015 at 12:28 AM, Luc Berger-Vergiat <[email protected]> > 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 > > > -- 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
