comp-chem/cp2k
1
0
Fork 0
mirror of https://github.com/cp2k/cp2k.git synced 2026-07-27 21:55:16 -04:00
Code Issues Projects Releases Packages Wiki Activity Actions

lsGW: minor bugfix for read of restart files (#5105)

Browse source
This commit is contained in:
Max Graml 2026-04-27 16:34:10 +02:00 • committed by GitHub
parent 96eb417b72
commit 90d8299cb6
No known key found for this signature in database
GPG key ID: B5690EEEBB952194
3 changed files with 9 additions and 10 deletions
Download patch file Download diff file Expand all files Collapse all files

8
src/gw_large_cell_gamma.F
View file

@ -66,7 +66,7 @@ MODULE gw_large_cell_gamma
time_to_freq
USE input_constants, ONLY: rtp_method_bse
USE input_section_types, ONLY: section_vals_type
USE kinds, ONLY: default_string_length,&
USE kinds, ONLY: default_path_length,&
dp,&
int_8
USE kpoint_coulomb_2c, ONLY: build_2c_coulomb_matrix_kp
@ -347,7 +347,7 @@ CONTAINS
CHARACTER(LEN=*), PARAMETER :: routineN = 'fm_read'
CHARACTER(LEN=default_string_length) :: f_chi
CHARACTER(LEN=default_path_length) :: f_chi
INTEGER :: handle, unit_nr
CALL timeset(routineN, handle)
@ -500,7 +500,7 @@ CONTAINS
CHARACTER(LEN=*), PARAMETER :: key = 'PROPERTIES%BANDSTRUCTURE%GW%PRINT%RESTART', &
routineN = 'fm_write'
CHARACTER(LEN=default_string_length) :: filename
CHARACTER(LEN=default_path_length) :: filename
INTEGER :: handle, unit_nr
TYPE(cp_logger_type), POINTER :: logger
TYPE(section_vals_type), POINTER :: input
@ -2368,7 +2368,7 @@ CONTAINS
CHARACTER(LEN=*), PARAMETER :: routineN = 'delete_unnecessary_files'
CHARACTER(LEN=default_string_length) :: f_chi, f_W_t, prefix
CHARACTER(LEN=default_path_length) :: f_chi, f_W_t, prefix
INTEGER :: handle, i_t
CALL timeset(routineN, handle)

7
src/gw_utils.F
View file

@ -72,7 +72,6 @@ MODULE gw_utils
section_vals_val_get,&
section_vals_val_set
USE kinds, ONLY: default_path_length,&
default_string_length,&
dp,&
int_8
USE kpoint_k_r_trafo_simple, ONLY: rs_to_kp
@ -1252,8 +1251,8 @@ CONTAINS
CHARACTER(LEN=*), PARAMETER :: routineN = 'check_for_restart_files'
CHARACTER(LEN=9) :: frmt
CHARACTER(len=default_path_length) :: project_name
CHARACTER(len=default_string_length) :: f_chi, f_s_n, f_s_p, f_s_x, f_w_t, prefix
CHARACTER(len=default_path_length) :: f_chi, f_s_n, f_s_p, f_s_x, f_w_t, &
prefix, project_name
INTEGER :: handle, i_spin, i_t_or_w, ind, n_spin, &
num_time_freq_points
LOGICAL :: chi_exists, Sigma_neg_time_exists, &
@ -3258,7 +3257,7 @@ CONTAINS
CHARACTER(LEN=*), PARAMETER :: routineN = 'analyt_conti_and_print'
CHARACTER(len=3) :: occ_vir
CHARACTER(len=default_string_length) :: fname
CHARACTER(len=default_path_length) :: fname
INTEGER :: handle, i_mo, ikp_for_print, iunit, &
n_mo, nkp
LOGICAL :: is_bandstruc_kpoint, print_DOS_kpoints, &

4
src/post_scf_bandstructure_types.F
View file

@ -23,7 +23,7 @@ MODULE post_scf_bandstructure_types
dbt_type
USE input_constants, ONLY: rtp_method_bse,&
small_cell_full_kp
USE kinds, ONLY: default_string_length,&
USE kinds, ONLY: default_path_length,&
dp
USE kpoint_types, ONLY: kpoint_release,&
kpoint_type
@ -244,7 +244,7 @@ MODULE post_scf_bandstructure_types
CHARACTER(LEN=7) :: Sigma_x_name = "Sigma_x"
CHARACTER(LEN=13) :: Sigma_p_name = "Sigma_pos_tau", &
Sigma_n_name = "Sigma_neg_tau"
CHARACTER(LEN=default_string_length) :: prefix = ""
CHARACTER(LEN=default_path_length) :: prefix = ""
INTEGER :: unit_nr = -1, &
unit_nr_contract = -1