Fix intent of POINTER

This intent leads to the pointer being deallocated on entrance, i.e. no data can be transferred and the pointer is deferred.
cp2k · Sep 12, 2022 · 594a1fd · 594a1fd
1 parent b201fcf
commit 594a1fd
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/src/fm/cp_fm_diag_utils.F b/src/fm/cp_fm_diag_utils.F
@@ -465,7 +465,7 @@ SUBROUTINE cp_fm_redistribute_end(matrix, eigenvectors, eig, matrix_new, eigenve
 
       TYPE(cp_fm_type), INTENT(INOUT)          :: matrix, eigenvectors
       REAL(KIND=dp), DIMENSION(:), INTENT(IN)  :: eig
-      TYPE(cp_fm_type), POINTER, INTENT(OUT)   :: matrix_new, eigenvectors_new
+      TYPE(cp_fm_type), POINTER                :: matrix_new, eigenvectors_new
 
       CHARACTER(len=*), PARAMETER :: routineN = 'cp_fm_redistribute_end'