From bf82eeca4c98e3204748fffbec0abaa7ddea56a3 Mon Sep 17 00:00:00 2001 From: Jan Wilhelm Date: Thu, 6 Jun 2024 20:23:21 +0200 Subject: [PATCH] initialize pointers and avoid conversion (#3454) Co-authored-by: JWilhelm --- src/gw_small_cell_full_kp.F | 2 +- src/post_scf_bandstructure_types.F | 4 ++-- 2 files changed, 3 insertions(+), 3 deletions(-) diff --git a/src/gw_small_cell_full_kp.F b/src/gw_small_cell_full_kp.F index b24cd5d10d..aba3fc0431 100644 --- a/src/gw_small_cell_full_kp.F +++ b/src/gw_small_cell_full_kp.F @@ -1009,7 +1009,7 @@ CONTAINS IF (eigenvalues(i) > eps) THEN pos_eval = (eigenvalues(i))**(0.5_dp*exponent) ELSE - pos_eval = z_zero + pos_eval = 0.0_dp END IF eigenvectors(:, i) = eigenvectors(:, i)*pos_eval END DO diff --git a/src/post_scf_bandstructure_types.F b/src/post_scf_bandstructure_types.F index 8e831d8471..cbb8a8d398 100644 --- a/src/post_scf_bandstructure_types.F +++ b/src/post_scf_bandstructure_types.F @@ -260,8 +260,8 @@ MODULE post_scf_bandstructure_types INTEGER, DIMENSION(3) :: cell_grid_scf_desymm = -1 INTEGER, DIMENSION(:, :), ALLOCATABLE :: index_to_cell_3c, & index_to_cell_Delta_R - INTEGER, DIMENSION(:, :, :), POINTER :: cell_to_index_3c, & - cell_to_index_Delta_R + INTEGER, DIMENSION(:, :, :), POINTER :: cell_to_index_3c => NULL(), & + cell_to_index_Delta_R => NULL() REAL(KIND=dp) :: heuristic_filter_factor = -1.0_dp ! small_cell_full_kp parallelization