xref: /petsc/src/sys/tutorials/ex3f.F90 (revision 9b88ac225e01f016352a5f4cd90e158abe5f5675)

!
!
!   Description: Demonstrates how users can augment the PETSc profiling by
!                nserting their own event logging.
!
! -----------------------------------------------------------------------
#include <petsc/finclude/petscsys.h>
#include <petsc/finclude/petsclog.h>
program main
  use petscsys
  implicit none

!
! - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
!                   Variable declarations
! - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
!
  PetscLogEvent USER_EVENT1, USER_EVENT2
  PetscLogEvent USER_EVENT3, USER_EVENT4
  PetscLogEvent USER_EVENT5, USER_EVENT6
  PetscLogEvent USER_EVENT7, USER_EVENT8
  PetscLogEvent USER_EVENT9
  PetscClassId classid
  integer imax
  PetscErrorCode ierr
  parameter(imax=10000)
  PetscLogDouble onefp
  parameter(onefp=1.0d0)
  PetscReal onereal, tenreal
  parameter(onereal=1.0, tenreal=10.0)
  PetscInt n
!
! - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
!                 Beginning of program
! - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -

  PetscCallA(PetscInitialize(ierr))

!
!     Create a new user-defined event.
!      - Note that PetscLogEventRegister() returns to the user a unique
!        integer event number, which should then be used for profiling
!        the event via PetscLogEventBegin() and PetscLogEventEnd().
!      - The user can also optionally log floating point operations
!        with the routine PetscLogFlops().
!
  classid = 0
  PetscCallA(PetscLogEventRegister('Event 1', classid, USER_EVENT1, ierr))
  PetscCallA(PetscLogEventRegister('Event 2', classid, USER_EVENT2, ierr))
  PetscCallA(PetscLogEventRegister('Event 3', classid, USER_EVENT3, ierr))
  PetscCallA(PetscLogEventRegister('Event 4', classid, USER_EVENT4, ierr))
  PetscCallA(PetscLogEventRegister('Event 5', classid, USER_EVENT5, ierr))
  PetscCallA(PetscLogEventRegister('Event 6', classid, USER_EVENT6, ierr))
  PetscCallA(PetscLogEventRegister('Event 7', classid, USER_EVENT7, ierr))
  PetscCallA(PetscLogEventRegister('Event 8', classid, USER_EVENT8, ierr))
  PetscCallA(PetscLogEventRegister('Event 9', classid, USER_EVENT9, ierr))
  PetscCallA(PetscLogEventBegin(USER_EVENT1, ierr))
  PetscCallA(PetscLogFlops(imax*onefp, ierr))
  PetscCallA(PetscSleep(onereal, ierr))
  PetscCallA(PetscLogEventEnd(USER_EVENT1, ierr))
  PetscCallA(PetscLogEventBegin(USER_EVENT2, ierr))
  PetscCallA(PetscLogFlops(imax*onefp, ierr))
  PetscCallA(PetscSleep(onereal, ierr))
  PetscCallA(PetscLogEventEnd(USER_EVENT2, ierr))
  PetscCallA(PetscLogEventBegin(USER_EVENT3, ierr))
  PetscCallA(PetscLogFlops(imax*onefp, ierr))
  PetscCallA(PetscSleep(onereal, ierr))
  PetscCallA(PetscLogEventEnd(USER_EVENT3, ierr))
  PetscCallA(PetscLogEventBegin(USER_EVENT4, ierr))
  PetscCallA(PetscLogFlops(imax*onefp, ierr))
  PetscCallA(PetscSleep(onereal, ierr))
  PetscCallA(PetscLogEventEnd(USER_EVENT4, ierr))
  PetscCallA(PetscLogEventBegin(USER_EVENT5, ierr))
  PetscCallA(PetscLogFlops(imax*onefp, ierr))
  PetscCallA(PetscSleep(onereal, ierr))
  PetscCallA(PetscLogEventEnd(USER_EVENT5, ierr))
  PetscCallA(PetscLogEventBegin(USER_EVENT6, ierr))
  PetscCallA(PetscLogFlops(imax*onefp, ierr))
  PetscCallA(PetscSleep(onereal, ierr))
  PetscCallA(PetscLogEventEnd(USER_EVENT6, ierr))
  PetscCallA(PetscLogEventBegin(USER_EVENT7, ierr))
  PetscCallA(PetscLogFlops(imax*onefp, ierr))
  PetscCallA(PetscSleep(onereal, ierr))
  PetscCallA(PetscLogEventEnd(USER_EVENT7, ierr))
  PetscCallA(PetscLogEventBegin(USER_EVENT8, ierr))
  PetscCallA(PetscLogFlops(imax*onefp, ierr))
  PetscCallA(PetscSleep(onereal, ierr))
  PetscCallA(PetscLogEventEnd(USER_EVENT8, ierr))
  PetscCallA(PetscLogEventBegin(USER_EVENT9, ierr))
  PetscCallA(PetscLogFlops(imax*onefp, ierr))
  PetscCallA(PetscSleep(onereal, ierr))
  PetscCallA(PetscLogEventEnd(USER_EVENT9, ierr))
!
!    We disable the logging of an event.
!      - Note that the user can activate/deactivate both user-defined
!        events and predefined PETSc events.
!
  PetscCallA(PetscLogEventDeactivate(USER_EVENT1, ierr))
  PetscCallA(PetscLogEventBegin(USER_EVENT1, ierr))
  PetscCallA(PetscSleep(onereal, ierr))
  PetscCallA(PetscLogEventEnd(USER_EVENT1, ierr))
!
!    We next enable the logging of an event
!
  PetscCallA(PetscLogEventActivate(USER_EVENT1, ierr))
  PetscCallA(PetscLogEventBegin(USER_EVENT1, ierr))
  PetscCallA(PetscSleep(onereal, ierr))
  PetscCallA(PetscLogEventEnd(USER_EVENT1, ierr))

  PetscCallA(PetscInfo('PETSc info message\n'//'Another line\n', ierr))
  PetscCallA(PetscOptionsAllUsed(PETSC_NULL_OPTIONS, n, ierr))
  PetscCallA(PetscFinalize(ierr))

end

!
!/*TEST
!
!   test:
!     output_file: output/empty.out
!
!TEST*/