From 0df64db49a163780d8a5d4fd0976f2f6e49c64cd Mon Sep 17 00:00:00 2001 From: Matthias Krack Date: Wed, 3 Mar 2021 13:52:15 +0100 Subject: [PATCH] Add newline in output format --- src/qs_kind_types.F | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/src/qs_kind_types.F b/src/qs_kind_types.F index 9e49569f09..dd38c5f863 100644 --- a/src/qs_kind_types.F +++ b/src/qs_kind_types.F @@ -2787,12 +2787,12 @@ CONTAINS "The atoms of this atomic kind are FLOATING BASIS FUNCTIONS." END IF IF (qs_kind%covalent_radius > 0.0_dp) THEN - WRITE (UNIT=output_unit, FMT="(T8,A,T71,F10.3)") & + WRITE (UNIT=output_unit, FMT="(/,T8,A,T71,F10.3)") & "Atomic covalent radius [Angstrom]:", & qs_kind%covalent_radius*angstrom END IF IF (qs_kind%vdw_radius > 0.0_dp) THEN - WRITE (UNIT=output_unit, FMT="(T8,A,T71,F10.3)") & + WRITE (UNIT=output_unit, FMT="(/,T8,A,T71,F10.3)") & "Atomic van der Waals radius [Angstrom]:", & qs_kind%vdw_radius*angstrom END IF