Skip to content

Commit

Permalink
Add newline in output format
Browse files Browse the repository at this point in the history
  • Loading branch information
mkrack committed Mar 3, 2021
1 parent 1ca3b7d commit 0df64db
Showing 1 changed file with 2 additions and 2 deletions.
4 changes: 2 additions & 2 deletions src/qs_kind_types.F
Original file line number Diff line number Diff line change
Expand Up @@ -2787,12 +2787,12 @@ SUBROUTINE write_qs_kind(qs_kind, kind_number, output_unit)
"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
Expand Down

0 comments on commit 0df64db

Please sign in to comment.