MODULE omp_lib
  IMPLICIT NONE
  PUBLIC

  CONTAINS
    
    FUNCTION omp_in_parallel()
      LOGICAL :: omp_in_parallel
      omp_in_parallel = .TRUE.
    END FUNCTION omp_in_parallel

END MODULE omp_lib