1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
|
! { dg-do compile }
! { dg-options "-O -fopenmp -fexceptions" }
SUBROUTINE dbcsr_mult_m_e_e ( )
LOGICAL, PARAMETER :: use_combined_types = .FALSE.
INTEGER, ALLOCATABLE, DIMENSION(:, :) :: right_index_sr
INTEGER, ALLOCATABLE, DIMENSION(:, :, :) :: my_sizes
INTEGER, ALLOCATABLE, DIMENSION(:, :, :, :) :: all_sizes
ALLOCATE (all_sizes(4, LBOUND(my_sizes,2):UBOUND(my_sizes,2), &
LBOUND(my_sizes,3):UBOUND(my_sizes,3), 0:numnodes-1))
IF (use_combined_types) THEN
CALL mp_waitall (right_index_sr)
ENDIF
DO ki = 0, min_nimages-1
!$omp parallel default (none) &
!$omp reduction (+: flop_single, t_all, t_dgemm)
!$omp end parallel
ENDDO
checksum = dbcsr_checksum (product_matrix, error)
END SUBROUTINE dbcsr_mult_m_e_e
|
