Fix INTENT attribute

cp2k · Mar 24, 2021 · 3b4152c · 3b4152c
1 parent 8bcee93
commit 3b4152c
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/src/mp2_ri_gpw.F b/src/mp2_ri_gpw.F
@@ -1947,7 +1947,7 @@ SUBROUTINE mp2_redistribute_gamma(mp2_env, ij_index, my_B_size, &
       REAL(KIND=dp), ALLOCATABLE, DIMENSION(:, :, :), &
          INTENT(IN)                                      :: Y_i_aP, Y_j_aP
       TYPE(cp_para_env_type), POINTER                    :: para_env_exchange
-      REAL(KIND=dp), INTENT(OUT)                         :: null_mat_rec(:, :, :), &
+      REAL(KIND=dp), INTENT(INOUT)                       :: null_mat_rec(:, :, :), &
                                                             null_mat_send(:, :, :)
       INTEGER, ALLOCATABLE, DIMENSION(:), INTENT(IN)     :: sizes_array
       LOGICAL, INTENT(IN)                                :: alpha_alpha, beta_beta, alpha_beta, &