DBM: Workaround CCE error

cp2k · Jan 18, 2022 · 3a0bea3 · 3a0bea3
1 parent 17d88d9
commit 3a0bea3
Showing 1 changed file with 8 additions and 2 deletions.
diff --git a/src/dbm/dbm_api.F b/src/dbm/dbm_api.F
@@ -264,11 +264,17 @@ SUBROUTINE dbm_create_from_template(matrix, name, template)
       CHARACTER(len=*), INTENT(IN)                       :: name
       TYPE(dbm_type), INTENT(IN)                         :: template
 
+      INTEGER, CONTIGUOUS, DIMENSION(:), POINTER         :: col_block_sizes, row_block_sizes
+
+      ! Store pointers in intermediate variables to workaround a CCE error.
+      row_block_sizes => dbm_get_row_block_sizes(template)
+      col_block_sizes => dbm_get_col_block_sizes(template)
+
       CALL dbm_create(matrix, &
                       name=name, &
                       dist=dbm_get_distribution(template), &
-                      row_block_sizes=dbm_get_row_block_sizes(template), &
-                      col_block_sizes=dbm_get_col_block_sizes(template))
+                      row_block_sizes=row_block_sizes, &
+                      col_block_sizes=col_block_sizes)
 
    END SUBROUTINE dbm_create_from_template