NAME

PTIM_omp_start - starts thread elapsed time counter.

SYNOPSIS

call PTIM_omp_start()

NOTES

PTIM_omp_start is a local thread call.

EXAMPLES

The program below, invokes PTIM_omp_start/stop subroutines to time-instrument OpenMP parallel regions of each MPI process.

     USE PTIM
     INTEGER :: ierr

     CALL MPI_INIT(ierr)
     call PTIM_start("Mixed_parallel_work")
     ...CALL do_mpi_parallel_work(...)
     !$OMP PARALLEL
       call PTIM_omp_start()
       CALL do_OpenMp_parallel_work(...)
       call PTIM_omp_stop()
     !$OMP END PARALLEL
     ...
     call PTIM_stop("Mixed_parallel_work")
     ...
     CALL MPI_FINALIZE(ierr)

SEE ALSO

PTIM_start, PTIM_stop, PTIM_omp_stop

Back to the routines' list...


Last modified: Thu Nov 18 16:06:18 CET 2004