From 95aecd4ddddac6f424fd5603e0efb1473f0c57c8 Mon Sep 17 00:00:00 2001 From: Max Graml Date: Mon, 13 Jan 2025 15:11:13 +0100 Subject: [PATCH] clarify print of spectrum files --- src/bse_properties.F | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) diff --git a/src/bse_properties.F b/src/bse_properties.F index 03b83b1872..1bb6908aef 100644 --- a/src/bse_properties.F +++ b/src/bse_properties.F @@ -364,10 +364,10 @@ CONTAINS IF (unit_nr > 0) THEN WRITE (unit_nr, '(T2,A4)') 'BSE|' - WRITE (unit_nr, '(T2,A4,T7,A50,A)') & - 'BSE|', "Printed optical absorption spectrum to local file ", file_name_spectrum - WRITE (unit_nr, '(T2,A4,T7,A44,A)') & - 'BSE|', "as well as photoabsorption cross section to ", file_name_crosssection + WRITE (unit_nr, '(T2,A4,T7,A,A)') & + 'BSE|', "Printed optical absorption spectrum to local files, e.g. ", file_name_spectrum + WRITE (unit_nr, '(T2,A4,T7,A,A)') & + 'BSE|', "as well as photoabsorption cross section to, e.g. ", file_name_crosssection WRITE (unit_nr, '(T2,A4,T7,A52)') & 'BSE|', "using the Eq. (7.51) from C. Ullrichs Book on TDDFT:" WRITE (unit_nr, '(T2,A4)') 'BSE|'