From f5b900e883ca3fdcda89a19dc2ff8f43edcdc5bd Mon Sep 17 00:00:00 2001 From: Matthias Krack Date: Thu, 12 Mar 2026 10:31:50 +0100 Subject: [PATCH] Make string lengths compatible --- src/input/cp_output_handling_openpmd.F | 7 +++---- 1 file changed, 3 insertions(+), 4 deletions(-) diff --git a/src/input/cp_output_handling_openpmd.F b/src/input/cp_output_handling_openpmd.F index df5576b5b0..9d856068d8 100644 --- a/src/input/cp_output_handling_openpmd.F +++ b/src/input/cp_output_handling_openpmd.F @@ -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)