[petsc-users] PetscLogStage functions not working in fortran

[Matthew Knepley]

Don't you need a 'call' first?

   Matt

On Sun, Mar 1, 2015 at 8:09 AM, luc berger-vergiat <lb2653 at columbia.edu>
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 <knepley at gmail.com> wrote:
>
> 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
>
>
>


-- 
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/51dedd9b/attachment.html>