LCOV - code coverage report
Current view: top level - hybrid/progress_thread - fortran_check_mpi.f90 (source / functions) Hit Total Coverage
Test: FLEUR test coverage Lines: 3 3 100.0 %
Date: 2024-05-15 04:28:08 Functions: 1 1 100.0 % 

          Line data    Source code
       1        1020 : recursive subroutine fortran_check_mpi() bind(C, name="fortran_check_mpi")
       2             :     use MPI
       3             :     logical :: flag
       4             :     INTEGER :: ierr
       5        1020 :     call mpi_iprobe(MPI_ANY_SOURCE,MPI_ANY_TAG, MPI_COMM_WORLD,flag,MPI_STATUS_IGNORE,ierr)
       6        1020 :   end subroutine

Generated by: LCOV version 1.14