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

Make string lengths compatible

Browse source
This commit is contained in:
Matthias Krack 2026-03-12 10:31:50 +01:00
parent 8df37ddd93
commit f5b900e883
1 changed files with 3 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

7
src/input/cp_output_handling_openpmd.F
View file

@ -314,8 +314,7 @@ CONTAINS
CHARACTER(len=*), INTENT(IN) :: openpmd_basename, extension
CHARACTER(len=default_path_length) :: filename
CHARACTER(len=default_path_length) :: outPath, root
CHARACTER(len=default_string_length) :: outName
CHARACTER(len=default_path_length) :: outName, outPath, root
INTEGER :: my_ind1, my_ind2
LOGICAL :: has_root
@ -326,7 +325,7 @@ CONTAINS
RETURN
END IF
IF (outPath == "__STD_OUT__") outPath = ""
outName = outPath
outName = TRIM(outPath)
has_root = .FALSE.
my_ind1 = INDEX(outPath, "/")
my_ind2 = LEN_TRIM(outPath)
@ -601,7 +600,7 @@ CONTAINS
IF (LEN_TRIM(openpmd_config) == 0) THEN
CALL section_vals_val_get(print_key, "OPENPMD_CFG", c_val=openpmd_config)
ELSE
openpmd_config = "@"//openpmd_config
openpmd_config = "@"//TRIM(openpmd_config)
END IF
filename = cp_print_key_generate_openpmd_filename(logger, print_key, openpmd_basename, file_extension)