dbcsr_distribution_no_threads Subroutine

public subroutine dbcsr_distribution_no_threads(dist)

Removes the thread distribution from a distribution

Arguments

Type IntentOptional Attributes Name
type(dbcsr_distribution_obj), intent(inout) :: dist

Contents

Source Code

dbcsr_distribution_no_threads

Source Code

   SUBROUTINE dbcsr_distribution_no_threads(dist)
      !! Removes the thread distribution from a distribution
      TYPE(dbcsr_distribution_obj), INTENT(INOUT)        :: dist

!$OMP MASTER
      CALL array_release(dist%d%thread_dist)
      dist%d%has_thread_dist = .FALSE.
!$OMP END MASTER
   END SUBROUTINE dbcsr_distribution_no_threads